Feigenbaum constant calculation: Difference between revisions

Content deleted Content added

Inline

@@ Line 209: / Line 209: @@
             let a =
                   iterate
-                    (\acc ->
+                    (\a ->
                         let (x, y) =
                               iterate
-                                (\(p, q) ->
+                                (\(x, y) -> (a - (x * x), 1.0 - ((2.0 * x) * y)))
-                                    (acc - (p * p), 1.0 - ((2.0 * p) * q)))
                                 (0.0, 0.0) !!
                               (2 ^ i)
-                        in acc - (x / y))
+                        in a - (x / y))
                     (a1 + (a1 - a2) / d1) !!
                   mxj