我有这样的事情:
(defn plot-simulation [f]
(let [x (range 1 1000)
ye0 (->> (run-simulation 5 0.000000000000000000000001) ;; needs to run all 2000 in paralell
(take 1000)
(map f))
ye01 (->> (run-simulation 5 1/10)
(take 1000)
(map f))
ye001 (->> (run-simulation 5 1/100)
(take 1000)
(map f))
]
;; How to add another chart in the view?
(-> (c/xy-plot x ye0
:x-label "Steps"
:y-label "Somethings"
:series-label "e=0"
:legend true)
(c/add-lines x ye01
:series-label "e=0.01")
(c/add-lines x ye001
:series-label "e=0.001")
(i/view))))
显示模拟中的三条线。现在不是在一个图表中绘制三条线,而是想绘制三个图表,每个图表只使用一个调用来查看。这可能是使用Incanter吗?