15 lines
341 B
Text
15 lines
341 B
Text
SUB iterate
|
|
LET iter = 0
|
|
LET phi0 = 1
|
|
DO
|
|
LET phi1 = 1+(1/phi0)
|
|
LET diff = abs(phi1-phi0)
|
|
LET phi0 = phi1
|
|
LET iter = iter+1
|
|
LOOP until (.00001 > diff)
|
|
PRINT "Result: "; phi1; " after "; iter; " iterations"
|
|
PRINT "The error is approximately "; phi1-(.5*(1+sqr(5)))
|
|
END SUB
|
|
|
|
CALL iterate
|
|
END
|