Anonymous user
Continued fraction: Difference between revisions
→{{header|Mathematica}} / {{header|Wolfram Language}}
m (→{{header|AutoHotkey}}: Typo: navier->napier) |
|||
Line 1,187:
pi : 3.141592653589793 : 3.1415926535892935 (1e-12)</lang>
=={{header|Julia}}==
<lang Julia>function sqrt2(a,n)
if a
return n>0?2.0:1.0
else
return 1.0
end
end
function napier(a,n)
if a
return n>0?Float64(n):2.0
else
return n>1?n-1.0:1.0
end
end
function _pi(a,n)
if a
return n>0?6.0:3.0
else
return (2.0*n-1.0)^2.0 # exponentiation operator
end
end
function calc(f,expansions)
a=true;b=false
r=0.0
for i=expansions:-1:1
r=f(b,i)/(f(a,i)+r)
end
return f(a,0)+r
end
print("""
sqrt 2 = $(calc(sqrt2, 1000))
e = $(calc(napier, 1000))
pi = $(calc(_pi, 1000))
""")</lang>
Output:
<lang Julia>sqrt 2 = 1.4142135623730951
e = 2.7182818284590455
pi = 3.141592653340542</lang>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>sqrt2=Function[n,{1,Transpose@{Array[2&,n],Array[1&,n]}}];
| |||