Hatena::Groupcsnagoya-sicp

Gemmaの日記

2008-10-30

lim[n→∞]√2↑↑n=2(続き)

15:52

実際に計算してみました。

(use util.stream)

(define (gen x)
  (stream-delay (stream-cons x (gen (expt (sqrt 2) x)))))

(stream-for-each print (stream-take (gen 1) 40))
1
1.4142135623730951
1.632526919438153
1.7608395558800285
1.8409108692910108
1.892712696828511
1.926999701847101
1.9500347738058181
1.9656648865173194
1.976341754409703
1.9836683993038218
1.988711773413954
1.9921908829470578
1.9945944507121018
1.9962566662658592
1.9974070011413367
1.9982034775087025
1.9987551330845927
1.9991373101193919
1.9994021183249975
#<undef>

athosさんの証明FAです。athos++

f:id:Gemma:20081030164128p:image