Macaulay

Skriver Maple-polynom på Macaulay format.

MacPoly:=p->
if type(p,`+`) or type(p,`*`) then map(x->MacPoly(x),p)
elif type(p,`^`) then cat(op(1,p),op(2,p))
else p fi;

Tilbake til hjemmesiden

Created 5 March 1996 by Einar Andreas Rødland: einara@math.uio.no