算数のお勉強

数学：物理を学び楽しむためにをざっくりベースで読んでます。問 1.3.2.a の「εが 1 に比べてずっと小さいとき、sinε≅εが成り立つ」を関数電卓を使って云々、な部分を Scheme で確認してみます。
手続きてきには以下か。

(define 1.3.2.a
  (let inner-1.3.2.a ((x 0.1) (result '()))
       (if (< x 0.0000000001)
	   result
	 (inner-1.3.2.a (/ x 10) (cons (sin x) result)))))

これを reverse したのが以下 (整形してます)。

gosh> (reverse 1.3.2.a)
(0.09983341664682815 0.009999833334166664 9.999998333333417e-4 
9.999999983333334e-5 9.999999999833334e-6 9.999999999998335e-7 
9.999999999999985e-8 1.0000000000000002e-8 1.0000000000000003e-9 
1.0000000000000003e-10)
gosh> 

ある時点で同じになってしまっている件。成程。とりあえず、続きを読みつつ何かあれば追記の方向にて。