; Derivative of a product, e.g. (* u v)
; d/dx(u * v) = u * d/dx(v) + v * d/dx(u)
(defun deriv* (form var)
  (s+ (s* (lhs form) (deriv (rhs form) var))
      (s* (rhs form) (deriv (lhs form) var))) )

; Symbolic * (trivial version)
(defun s* (x y) (list '* x y))

Contents    Page-10    Prev    Next    Page+10    Index