     
     (if (or (< spmax sp) (= new-gene (vec (replicate length 0)) )) 
       
-      (assoc (vec (repeat length 0)) (rand-int length) 1)
+      ;(assoc (vec (repeat length 0)) (rand-int length) 1)
     
-      ;(new-poly-term max_pow spmax length)
+      (new-poly-term max_pow spmax length)
       ;[0 1];;cant have this or else it will crash the mathematica
       new-gene
       )


;; @@
(def initial-zeitgeist (evolution/make-zeitgeist (random-initial-population 100 poly_length power power_sum term_length)))

;; @@
;; =>
;;; {"type":"html","content":"<span class='clj-var'>#&#x27;goliath/initial-zeitgeist</span>","value":"#'goliath/initial-zeitgeist"}
;; <=

;; @@
;;this function uses discrete differential to find speeds 

mathKernelSz
;; @@
;; =>
;;; {"type":"html","content":"<span class='clj-string'>&quot;/Applications/Mathematica.app/Contents/MacOS/MathKernel&quot;</span>","value":"\"/Applications/Mathematica.app/Contents/MacOS/MathKernel\""}
;; <=

;; **
