/usr/share/maxima/5.32.1/tests/rtest6.mac is in maxima-test 5.32.1-1.
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 | /*************** -*- Mode: MACSYMA; Package: MAXIMA -*- ******************/
/***************************************************************************
*** *****
*** Copyright (c) 1984 by William Schelter,University of Texas *****
*** All rights reserved *****
***************************************************************************/
integrate(x^(5/4)/(x+1)^(5/2),x,0,inf);
beta(9/4,1/4);
gradef(q(x),sin(x^2));
q(x);
diff(log(q(r(x))),x);
'diff(r(x),x,1)*sin(r(x)^2)/q(r(x));
integrate(%,x);
log(q(r(x)));
?nformat(?complex(1,2));
2*%i + 1;
?nformat(?/(1,2)); /* ?/(1,2) equivalent to (/ 1 2) in Lisp */
1/2$
?typep(interval(1,2),?ri);
true$
is(part(?complex(1,2),0)="+");
true$
/* bug reported to mailing list 2013-05-22 */
block ([a, L],
a : make_array (fixnum, 3),
L : buildq ([a], lambda ([x], a[x])),
print (L, L(0))); /* print(L) --> calls NFORMAT and therefore tickles bug */
0;
|