              :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]

(defonce height (reagent/atom 600))

(defonce pause (reagent/atom 1100))

(def options
  {:chart       {:type "line"}

   [:div
    [:label {:for "pause"} "pause"]
    [slider "pause" pause 200 2000]]
   [:div
    [:label {:for "skip"} "skip"]
    [slider "skip" skip 0 1000]]
   [:div
    [:label {:for "scale"} "scale"]
    [slider "scale" scale 1 10]]
   [chart width height points]])

(reagent/render-component [page]
