Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Golden-ratio-Convergence/ObjectIcon/golden-ratio-convergence.oi
+++ b/Task/Golden-ratio-Convergence/ObjectIcon/golden-ratio-convergence.oi
@ -0,0 +1,16 @@
+import io, util
+
+procedure main ()
+  local phi0, phi1, count
+
+  count := 1
+  phi0 := 1.0
+  while abs ((phi1 := 1.0 + (1.0 / phi0)) - phi0) > 1.0e-5 do
+  {
+    phi0 := phi1
+    count +:= 1
+  }
+  io.write ("Result: ", phi1, " after ", count, " iterations")
+  io.write ("The error is approximately ",
+            phi1 - (0.5 * (1.0 + Math.sqrt (5.0))))
+end