maximaをlispで拡張する: addn

2010年11月6日土曜日

file: opers.lisp
渡されたlistの中身をすべて足す。

(defmfun addn (terms simp-flag)
  (cond ((null terms) 0)
         (t (simplifya `((mplus) . ,terms) simp-flag))))