Re: compile_file() error
Dmitry Shkirmanov <piminusmeson <at> bk.ru>
2012-06-13 12:05:40 GMT
Thanks for answer, i saved file as .mac file, but maxima gives the same
error:
ya <at> debian:~/Downloads$ maxima
Maxima 5.27.0 http://maxima.sourceforge.net
using Lisp SBCL 1.0.40.0.debian
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
(%i1) compile_file("maple_V_N_test.mac");
translator: begin translating /home/ya/Downloads/maple_V_N_test.mac.
; compiling file "/home/ya/Downloads/maple_V_N_test.LISP" (written 13 JUN 2012 04:02:28 PM):
; compiling (IN-PACKAGE :MAXIMA)
; compiling (MAPPLY (QUOTE $KILL) ...)
; compiling (SIMPLIFY (LIST # ...))
; compiling (IF (NOT #) ...)
; compiling (DEFPARAMETER $N ...)
; compiling (IF (NOT #) ...)
; compiling (DEFPARAMETER $SHOWTIME ...);
; compilation unit aborted
; caught 1 fatal ERROR condition
;
; compilation aborted because of fatal error:
; SB-INT:SIMPLE-READER-ERROR at 1343 (line 48, column 59) on #<SB-SYS:FD-STREAM
; for "file /home/ya/Downloads/maple_V_N_test.LISP"
; {1005E73991}>:
; illegal sharp macro character: #\
;
; compilation aborted after 0:00:00.007
(%o1) [/home/ya/Downloads/maple_V_N_test.mac,
/home/ya/Downloads/maple_V_N_test.LISP,
/home/ya/Downloads/maple_V_N_test.UNLISP, false]
(%i2)
> ________________________________________
>
>
>> (%i1) compile_file("maple_V_N_test.wxm");
>>
> You need to compile the *.mac file, not the *.wxm file. A *.wxm file is used by the wxMaxima user interface to
store Maxima code, text, and some formatting
> information. If you only have the *.wxm file, try saving as a *.mac file (File --> Save As).
>
>
> --Barton
>
>
>
>
kill(all);
assume(m>0);
N:2;
showtime:true;
f :(1/2)*exp(-(1/4)*(sqrt(k[1]^2+k[2]^2+k[3]^2+m^2)-m)^2/(sigma^2*rho[0,
0]))/(Pi^(3/2)*sigma*sqrt(rho[0, 0]*d)*sqrt(k[1]^2+k[2]^2+k[3]^2+m^2));
C[0] : 1/(2*Pi^(3/2)*sqrt(rho[0, 0]*d)*m*sigma);
Z[0] : f/C[0];
for j: 0 thru N do(
d11 : diff(Z[j],k[1],2),
d22 : subst([Sigma[1,1]=S11, Sigma[2,2]=S22, k[1]=k1, k[2]=k2], d11),
d22 : subst([S11=Sigma[2,2], S22=Sigma[1,1], k1=k[2], k2=k[1]], d22),
d33 : subst([Sigma[2,2]=S22, Sigma[3,3]=S33, k[2]=k2, k[3]=k3], d22),
d33 : subst([S22=Sigma[3,3], S33=Sigma[2,2], k2=k[3], k3=k[2]], d33),
Z[j+1] : Sigma[1,1]*d11+Sigma[2,2]*d22+Sigma[3,3]*d33,
Z0[j+1] :subst([k[1]=0,k[2]=0,k[3]=0], Z[j+1]),
Z0[j+1] : subst([Sigma[1,1]=sigma^2*rho[1], Sigma[2,2]=sigma^2*rho[2], Sigma[3,3]=sigma^2*rho[3],
Sigma[0,0]=sigma^2*rho[0,0]], Z0[j+1]),
C[j+1] :limit(Z0[j+1]/((j+1)!), T[0,0],0)
);
facsum(Z0[3]),m;
_______________________________________________
Maxima mailing list
Maxima <at> math.utexas.edu
http://www.math.utexas.edu/mailman/listinfo/maxima