;; this should be packaged up in asdf or quicklisp or something.
;; 9/22/2011 RJF
(load "packs")
(load "ga") ;generic arithmetic
(load "p2i") ;prefix to infix formatter
(load "df") ;auto diff "AD"
(load "poly") ;canonical polynomial arith
(load "simpsimp") ;simple algebraic simplifier for math
(load "ma") ;generic math
(load "ninterval")
;; the next 4 taken from MockMMA to provide a better polynomial simplifier
(load "ucons") ;utility for unique conses used below
(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") ;; or a more specific version
;;(load "gmp")
;;(load "gc-mpfr.dll") ;; if you want to do the mpfr load below
;;(load "mpfr")
(load "qd.dll")
(load "qd")
(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..