aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Golden-ratio-Convergence/Chipmunk-Basic/golden-ratio-convergence.basic Normal file
View file

@ -0,0 +1,14 @@
100 iterate
110 end
120 sub iterate()
130 iter = 0
140 phi0 = 1
150 do
160 phi1 = 1+(1/phi0)
170 diff = abs(phi1-phi0)
180 phi0 = phi1
190 iter = iter+1
200 loop until (1.000000E-05 > diff)
210 print "Result: ";phi1;" after ";iter;" iterations"
220 print "The error is approximately ";phi1-(0.5*(1+sqr(5)))
230 end sub