Anonymous user
Continued fraction: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 496:
2.7182818284590452353602874713526624977572470936999595749669676277240766303535475945713821785251664274
</lang>
=={{header|Mathematica}}==
<lang Mathematica>
sqrt2=Function[n,{1,Transpose@{Array[2&,n],Array[1&,n]}}];
napier=Function[n,{2,Transpose@{Range[n],Prepend[Range[n-1],1]}}];
pi=Function[n,{3,Transpose@{Array[6&,n],Array[(2#-1)^2&,n]}}];
approx=Function[l,
N[Divide@@First@Fold[{{#2.#[[;;,1]],#2.#[[;;,2]]},#[[1]]}&,{{l[[2,1,1]]l[[1]]+l[[2,1,2]],l[[2,1,1]]},{l[[1]],1}},l[[2,2;;]]],10]];
r2=approx/@{sqrt2@#,napier@#,pi@#}&@10000;r2//TableForm
</lang>
Output:
<pre>
1.414213562
2.718281828
3.141592654
</pre>
=={{header|Maxima}}==
| |||