cubic_fx_plot.clj

;; plot a user defined function and its derivative
(use '(incanter core charts optimize))

;; define the function, x^3 + 2x^2 + 2x + 3
(defn cubic [x] (+ (* x x x) (* 2 x x) (* 2 x) 3))

;; use the derivative function to get a function
;; that approximates the derivative of cubic
(def deriv-cubic (derivative cubic))

;; plot the cubic function and its derivative
(doto (function-plot cubic -10 10)
      (add-function deriv-cubic -10 10)
      view)