Golden ratio/Convergence: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: split the overlong printf) |
(Added Shen before Wren.) |
||
Line 1,126: | Line 1,126: | ||
<pre>Result: 987/610 (1.618032786885246) after 14 iterations |
<pre>Result: 987/610 (1.618032786885246) after 14 iterations |
||
The error is approximately -1.2018646489142526e-6</pre> |
The error is approximately -1.2018646489142526e-6</pre> |
||
=={{header|Shen}}== |
|||
I plugged in a value for <math>\phi</math> rather than write a sqrt procedure or see what there might be in the standard library. (''Actually I wrote a sqrt procedure, but eventually decided to do this instead.'') |
|||
<syntaxhighlight lang="shen"> |
|||
(define iterate |
|||
PHI N -> |
|||
(let PHI1 (+ 1 (/ 1 PHI)) |
|||
N1 (+ N 1) |
|||
DIFF (* 100000 (- PHI1 PHI)) |
|||
(if (and (<= -1 DIFF) (<= DIFF 1)) |
|||
[PHI1 N1 (- PHI1 1.618033988749895)] |
|||
(iterate PHI1 N1)))) |
|||
(print (iterate 1 0)) |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
I ran this with shen-scheme. |
|||
<pre>[1.6180327868852458 14 -1.2018646493583418e-6]</pre> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |