Continued fraction: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 496: | Line 496: | ||
2.7182818284590452353602874713526624977572470936999595749669676277240766303535475945713821785251664274 |
2.7182818284590452353602874713526624977572470936999595749669676277240766303535475945713821785251664274 |
||
</lang> |
</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}}== |
=={{header|Maxima}}== |