tanの半角公式から
(define (h x) (sqrt (/ (- 1 (/ 1 (sqrt (+ 1 (* x x))))) (+ 1 (/ 1 (sqrt (+ 1 (* x x))))))))
> (* 4 1)
4
> (* 8 (h 1))
3.3137084989847607
> (* 16 (h (h 1)))
3.1825978780745285
> (* 32 (h (h (h 1))))
3.1517249074292577
> (* 64 (h (h (h (h 1)))))
3.14411838524589
> (* 128 (h (h (h (h (h 1))))))
3.142223629942441
> (* 256 (h (h (h (h (h (h 1)))))))
3.1417503691693897
> (* 512 (h (h (h (h (h (h (h 1))))))))
3.1416320807039732
> (* 1024 (h (h (h (h (h (h (h (h 1)))))))))
3.1416025102688744
すごーい。
きみはマストドンのフレンズなんだね。