Hi,
I'm looking for a maxima (version 5.4) powers function and
a working version of stopex. If anyone can point me to
these files, I'd appreciate it.
I'm working on porting three Macsyma 422 programs to maxima;
a macsyma-to-mathml translator, a second order linear DE
solver, and a clone of Macsyma's specfun library (about
a dozen orthogonal polynomials). Once I get them working,
I'll make them freely available.
Porting "back in time" twenty years is interesting; mostly
I've only had to add simple utility functions such as second,
op, and floor. For string functions ($stringp, $getchar, etc), I've
added a few one line lisp programs. Once I spent days porting
a C++ program from gcc 2.7x to gcc 2.9x; compared to that
experience, porting Macsyma 422 to maxima 5.4 has so far been
a breeze.
Specifically:
1) I'm looking for the maxima (version 5.4) powers function;
my share2 directory has a usage file for powers, but no source file.
I can't find the file on maxima's cvs at the University of Texas either.
If anyone can point me to the source code for powers, I'd appreciate it.
2) Maxima's stopex code seems to be broken; stopex.mc
won't even load. It halts when executing
EVAL_WHEN([BATCH,LOADFILE],
IF GET('GNAUTO,'DIAGEVAL_VERSION)=FALSE
THEN LOAD('[GNAUTO,FASL,DSK,DGVAL]))$
Commenting out this line, allows maxima to load stopex.mc.
But then maxima complains that it can't find the freeofl function.
Rolling my own as
freeofl(x,e) := block([ ],
not member(false, apply(append, [outermap(freeof, x, e)]))
);
allows expandwrt to run, but it generates rubbish:
(c1) expandwrt(x*(x+1),x);
(d1) [5x^2+4x(x+1)]
Again, if anyone has a correctly working stopex.mc file, I'd
appreciate it.
Thanks,
Barton Willis
University of Nebraska at Kearney