(load "packs") (load "ga") ;generic arithmetic ;(load "df") ;auto diff "AD" ;(load "simpsimp") ;simple algebraic simplifier for math ;(load "ma") ;generic math ;(load "p2i") ;prefix to infix formatter ;; the next 4 taken from MockMMA to provide a better polynomial simplifier ;(load "ucons") ;utility for unique conses used below ;(load "poly") ;canonical polynomial arith ;(load "rat1") ;rational function arithmetic ;(load "simprat") ;rational function simplifier ;;(load "proj-rat") ;projective rationals with 1/0, 0/0 ;(load "aml-small") (load "gmp.dll") ; not lisp (load "gc-mpfr.dll") ; not lisp (load "mpfr") (load "qd.dll") ; not lisp (load "qd") (load "octi") ; yes lisp, like qd. (load "oct-const") (load "oct") (defpackage :ms (:use :ga :ma :cl :df) (:shadowing-import-from :ga "+" "-" "/" "*" "expt" ;binary arith "=" "/=" ">" "<" "<=" ">=" ;binary comparisons expt log exp sqrt sin cos tan atan asin acos atan2 sinh cosh tanh asinh acosh atanh "1-" "1+" "abs" "tocl" "re-intern" "incf" "decf" "numerator" "denominator" max min ) ;; (:import-from :df "df") ;; (:import-from :ma "ma" "simp" "ratsimp" "ratexpand" ;; "p" "ex" ;; some fun examples ;; ) ) ;; put your code in here..