Data commit

Task/Feigenbaum-constant-calculation/Jq/feigenbaum-constant-calculation-1.jq

@@ -0,0 +1,22 @@
+def feigenbaum_delta(imax; jmax):
+  def lpad: tostring | (" " *  (4 - length)) + .;
+  def pp(i;x): "\(i|lpad)   \(x)";
+
+  "Feigenbaum's delta constant incremental calculation:",
+     pp("i"; "δ"),
+     pp(1; "3.20"),
+     ( foreach range(2; 1+imax) as $i (
+         {a1: 1.0, a2: 0.0, d1: 3.2};
+
+         .a = .a1 + (.a1 - .a2) / .d1
+         | reduce range(1; 1+jmax) as $j (.;
+             .x = 0 | .y = 0
+             | reduce range(1; 1+pow(2;$i)) as $k (.;
+                 .y = (1 - 2 * .x * .y)
+                 | .x = .a - (.x * .x) )
+             | .a -= (.x / .y) )
+         | .d = (.a1 - .a2) / (.a - .a1)
+         | .d1 = .d | .a2 = .a1 | .a1 = .a;
+	    pp($i; .d) ) ) ;
+
+Feigenbaum_delta(13; 10)

Task/Feigenbaum-constant-calculation/Jq/feigenbaum-constant-calculation-2.jq

@@ -0,0 +1,15 @@
+Feigenbaum's delta constant incremental calculation:
+   i   δ
+   1   3.20
+   2   3.2185114220380866
+   3   4.3856775985683365
+   4   4.600949276538056
+   5   4.6551304953919646
+   6   4.666111947822846
+   7   4.668548581451485
+   8   4.66906066077106
+   9   4.669171554514976
+  10   4.669195154039278
+  11   4.669200256503637
+  12   4.669200975097843
+  13   4.669205372040318