       (range (+ start-time timestep) end timestep))))
 
 
+;; Boring plots
 (defn dy-dt-1 [_ _]
   1)
 

    (render-state [this state]
      (dom/div
        #js {:className "ui segment"}
        (dom/h2 nil "Bro.")
        (dom/div
          #js {}
          (dom/h3 nil "A graph of your ODE solver!")
          (dom/svg #js {:className "ode-graph"}))))

    om/IWillUpdate

  y)


;; Circle
(defn circle-dy1-dt [y1 y2 t]
  y2)

(defn circle-dy2-dt [y1 y2 t]
  (- y1))

;; FitzHugh-Nagumo Model

(defn fhn-dv [alpha epsilon Iapp]
  (fn [v w t]
    (/
      (+
        (-
          (*
            (- v)
            (- v alpha)
            (- v 1))
          w)
        Iapp)
      epsilon)))

(defn fhn-dw [gamma]
  (fn [v w t]
    (- v (* gamma w))))

;; a beautiful plotter component
(defn plotter [[labels dataset title] owner]
  (reify
    om/IInitState
    (init-state [_]
