              :on-change #(reset! upper-v (-> % .-target .-value))}]
     @upper-v]])
 
-(defn logistic-map [x]
-  (* 3.9341 x (- 1 x)))
+(defn logistic-map [n]
+  (* 3.9341 n (- 1 n)))
 
 (defn evolution! [seed ps interval]
   (letfn [(evol [x y]

   [:div
    [:label {:for "pause"} "pause"]
    [slider "pause" pause 200 2000]]
   [chart width height points]])

(reagent/render-component [page]

      (assoc-in [:xAxis :max] @x-max)
      (assoc-in [:yAxis :min] @y-min)
      (assoc-in [:yAxis :max] @y-max)
      (assoc-in [:series 0 :data]
                (take-nth (int @scale) (drop (int @skip) @points)))))

(defn chart-render [wd ht ps]
  @ps
