2

我有这样的事情:

(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 吗?

4

0 回答 0