tighten the variable ratios for elliptics

dgtized · Sep 12, 2023 · a0035e6 · a0035e6
1 parent 980c04b
commit a0035e6
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/shimmers/sketches/elliptics.cljs b/src/shimmers/sketches/elliptics.cljs
@@ -18,9 +18,10 @@
 (defn generate-time-factors [n]
   (let [primes (sm/primes-between 2 50)]
     (->> (repeatedly (fn []
-                       (let [num (dr/rand-nth primes)]
-                         (/ num (dr/rand-nth (remove #{num} primes))))))
-         (filter (fn [x] (<= 0.1 x 2.5)))
+                       (let [num (dr/rand-nth primes)
+                             denom (dr/rand-nth (remove #{num} primes))]
+                         (/ num denom))))
+         (filter (fn [x] (<= 0.25 x 2.0)))
          (take n)
          vec)))