(defn add-function*
([chart function min-range max-range & options]
(let [opts (when options (apply assoc {} options))
step-size (or (:step-size opts)
(float (/ (- max-range min-range) 500)))
x (range min-range max-range step-size)
series-lab (or (:series-label opts)
(format "%s" 'function))]
(add-lines chart x (map function x) :series-label series-lab))))
Comments top
No comments for add-function*. Log in to add a comment.