Golden ratio/Convergence: Difference between revisions
J
SqrtNegInf (talk | contribs) (Added Perl) |
(J) |
||
Line 917:
14 iterations
The error is approximately -1.201864649e-06</pre>
=={{header|J}}==
(Using IEEE754 64 bit binary floating point, of course):
<syntaxhighlight lang=J> (,({:p)-~{&p)>:1 i.~1e_5>:|2 -/\p=. 1&(+%)^:a:1 NB. iterations and error
14 _1.20186e_6</syntaxhighlight>
In other words, wait for the series to converge (33 iterations - a few microseconds), check the pairwise differences and calculate the discrepency.
=={{header|jq}}==
| |||