;myldeltafile.lisp (defmfun $mydelta (x y) (if (equal (mfuncall '$ev x) (mfuncall '$ev y) ) 1 0)) %i load("path/myldeltafile.lisp"); %i mydelta(1, 2) %o 0 %i mydelta(1, 1) %o 1

I made levenberg marquardt method script on maxima. usage /*minimize f*/ f(xx,p):=sin(apply("+",map("*",xx,p))); df(xx,p):=transpose(p)*cos(apply("+",map("*",xx,p))); ddf(xx,p):= -( transpose(p) .p) * sin(apply("+",map("*",xx,p))); xinit:[…

get maxima-5.18.1.tar.gz $ tar zxf maxima-5.18.1.tar.get $ cvs -z3 -d:pserver:anonymous@maxima.cvs.sourceforge.net:/cvsroot/maxima co maxima $ cp maxima/doc/info/extract_categories.sh maxima-5.18.1/doc/info/ $ cd maxima-5.18.1 $ ./configur…