Here is a simpler example.
convolution(f, g, x) := block([s,p], f:subst(x = p, f), g:subst(x = x - p, g), pwdefint(f * g, p, minf, inf))$
define(boxcar(x), 1/(2*a)*(signum(x+a)-signum(x-a))/2);
dc:convolution(boxcar(x),boxcar(x),x);
for i : 1 thru 14 do dc:convolution(dc,boxcar(x),x);
Maxima encountered a Lisp error:
Error in MACSYMA-TOP-LEVEL [or a callee]: MACSYMA-TOP-LEVEL [or a callee] requires less than sixty-five arguments.
Automatically continuing.
To reenable the Lisp debugger set *debugger-hook* to nil.
If I do try for i : 1 thu 13 do . . .
it works fine.
Rich
----- Original Message -----
From: "Richard Hennessy" <rich.hennessy at verizon.net>
To: "Maxima List" <maxima at math.utexas.edu>
Sent: Tuesday, August 18, 2009 8:21 AM
Subject: error message
I have never seen this error before and I don't know what command is involved. It happens on the 14th iteration of a loop. Does
anyone know what the problem is? Is it a bug?
define(pdf1(x), ((3*b*x^2+3*c)*signum(x+a)+(-3*b*x^2-3*c)*signum(x-a))/(12*a*c+4*a^3*b));
(f:ratsubst(p, x, pdf2), g:ratsubst(x - p, x, pdf1(x)))$
pwdefint(f*g,p,minf,inf)$
Maxima encountered a Lisp error:
Error in MACSYMA-TOP-LEVEL [or a callee]: MACSYMA-TOP-LEVEL [or a callee] requires less than sixty-five arguments.
Automatically continuing.
To reenable the Lisp debugger set *debugger-hook* to nil.
I don't know what command in pwdefint is involved. The error message does not help at all.
Rich
_______________________________________________
Maxima mailing list
Maxima at math.utexas.edu
http://www.math.utexas.edu/mailman/listinfo/maxima