- Description has changed:

Diff:

--- old +++ new @@ -5,9 +5,11 @@ Lisp implementation type: GNU Common Lisp (GCL) Lisp implementation version: GCL 2.6.8 +~~~~ (t:'integrate('integrate(('integrate(f("..",[z[1]-cos(aw)*k,y[1]-sin(ap)*sin(aw)*k,x[1]-cos(ap)*sin(aw)*k],[sqrt(m[1]/m[2])*cos(aw)*k+z[2] ,sqrt(m[1]/m[2])*sin(ap)*sin(aw)*k+y[2], sqrt(m[1]/m[2])*cos(ap)*sin(aw)*k+x[2]], ".."),k,0,ul))*sin(aw),aw,0,%pi),ap,0,2*%pi) ,tc:changevar(t,kk1+z[1]-cos(aw)*k,kk1,k),td:expand(diff(tc,z[1])),ldisp([length(td)])) +~~~~ NOw it is obvious there are 3 parts which i want to deal with - those which are integrated with respect to 2 variables and those wrt 3 variables. for length(td) it gives 4 instead of the correct 3 and totally nonsensical parts when i ask for eg. part(td,2) , part(td,3) ,part(td,4)