/usr/share/maxima/5.41.0/tests/rtest6b.mac is in maxima-test 5.41.0-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | /*************** -*- Mode: MACSYMA; Package: MAXIMA -*- ******************/
/***************************************************************************
*** *****
*** Copyright (c) 1984 by William Schelter,University of Texas *****
*** All rights reserved *****
***************************************************************************/
1/(x^2+2);
1/(x^2+2)$
substpart(3/2,%,2,1,2);
1/(x^(3/2)+2)$
27*y^3+54*x*y^2+36*x^2*y+y+8*x^3+x+1;
27*y^3+54*x*y^2+36*x^2*y+y+8*x^3+x+1$
substpart(factor(piece),%,[1,2,3,5]);
(3*y+2*x)^3+y+x+1$
1/x+y/x-1/z;
-1/z+y/x+1/x$
substpart(xthru(piece),%,[2,3]);
(y+1)/x-1/z$
substpart("+",%,1,0);
-1/z+y+x+1$
ratsimp((k^2*x^2-1)*(cos(x)+eps)/(3*k+n[1])/(5*k-n[2]));
((k^2*x^2-1)*cos(x)+eps*k^2*x^2-eps)/(15*k^2+(5*n[1]-3*n[2])*k-n[1]*n[2])$
factor(%);
(k*x-1)*(k*x+1)*(cos(x)+eps)/((3*k+n[1])*(5*k-n[2]))$
substpart(ratsimp(piece),%,1,[1,2]);
(k^2*x^2-1)*(cos(x)+eps)/((3*k+n[1])*(5*k-n[2]))$
-substpart(-piece,%,1,1);
-((1-k^2*x^2)*(cos(x)+eps)/((3*k+n[1])*(5*k-n[2])))$
a+b/(x*(y+(a+b)*x)+1);
b/(x*(y+(b+a)*x)+1)+a$
substpart(multthru(piece),%,1,2,1);
b/(x*y+(b+a)*x^2+1)+a$
x . 'diff(f(x),x,2);
x . 'diff(f(x),x,2)$
substinpart(d^2,%,2);
x . d^2$
substinpart(f1,f[1](x+1),0);
f1(x+1)$
/* SF bug #2667: "tex1 of f(x)^n" */
simp:false $
false $
tex1 (sqrt(x)^n);
"\\sqrt{x}^{n}";
simp:true $
true $
tex1(sin(x)^2);
"\\sin ^2x";
tex1(f(x)^2);
"f\\left(x\\right)^2";
tex1(sin(x)^n);
"\\sin ^{n}x";
tex1(f(x)^n);
"f\\left(x\\right)^{n}";
tex1(sin(x)^-1);
"{{1}\\over{\\sin x}}";
tex1(f(x)^-1);
"{{1}\\over{f\\left(x\\right)}}";
tex1(sin(x)^-2);
"{{1}\\over{\\sin ^2x}}";
tex1(f(x)^-2);
"{{1}\\over{f\\left(x\\right)^2}}";
|