;; 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..