June 2018 Update

Task/Continued-fraction/Ring/continued-fraction.ring

@@ -0,0 +1,21 @@
+# Project : Continued fraction
+# Date    : 2018/03/17
+# Author : Gal Zsolt [~ CalmoSoft ~]
+# Email   : <calmosoft@gmail.com>
+
+see "SQR(2) = " + contfrac(1, 1, "2", "1") + nl
+see "        e = " + contfrac(2, 1, "n", "n") + nl
+see "       PI = " + contfrac(3, 1, "6", "(2*n+1)^2") + nl
+
+func contfrac(a0, b1, a, b)
+        expr = ""
+        n = 0
+        while len(expr) < (700 - n)
+                 n = n + 1
+                 eval("temp1=" + a)
+                 eval("temp2=" + b)
+                 expr = expr + string(temp1) + char(43) + string(temp2) + "/("
+        end
+        str = copy(")",n)
+        eval("temp3=" + expr + "1" + str)
+        return a0 + b1 / temp3