Golden ratio/Convergence: Difference between revisions

==={{header|Craft Basic}}===

<syntaxhighlight lang="basic">precision 6

define i = 0, d = 0, phi0 = 1, phi1 = 0

do

let phi1 = 1 / phi0 + 1

let d = abs(phi1 - phi0)

let phi0 = phi1

let i = i + 1

wait

loopuntil .00001 > d

print "result: ", phi1, " after ", i, " iterations"

print "the error is approximately ", phi1 - (.5 * (1 + sqrt(5)))

end</syntaxhighlight>