1/* Filename <name>.mac 2 3 *************************************************************** 4 * * 5 * <package name> * 6 * <functionality description> * 7 * * 8 * from: Computer Algebra in Applied Math. * 9 * by Rand (Pitman,1984) * 10 * Programmed by Richard Rand * 11 * These files are released to the public domain * 12 * * 13 *************************************************************** 14*/ 15 16/* An interactive demonstration of MACSYMA */ 17 18 LOADPRINT:FALSE$ 19/* Enter a FUNCTION of X to be differentiated */ 20 F0:READ(); 21 DIFF(F0,X); 22/* Enter a FUNCTION of X to be integrated */ 23 F1:READ(); 24 INTEGRATE(F1,X); 25/* Enter an ALGEBRAIC EQUATION to be solved for X */ 26 F2:READ(); 27 SOLVE(F2,X); 28/* Enter a TRIG EXPRESSION to be simplified */ 29 F3:READ(); 30 EXPAND(TRIGREDUCE(EXPAND(F3))); 31/* Enter a COMPLEX FUNCTION of Z 32 whose real part is to be found */ 33 Z:X+%I*Y; 34 F4:READ(); 35 REALPART(F4); 36/* Enter a 3 X 3 MATRIX to be inverted */ 37 F5:ENTERMATRIX(3,3); 38 INVERT(F5),DETOUT; 39/* Enter a FUNCTION of X to be Taylor-expanded 40 about X=0 */ 41 F6:READ(); 42 TAYLOR(F6,X,0,8); 43/* Enter a FUNCTION of X to be plotted 44 from X=0 to 10 */ 45 F7:READ(); 46 XAXIS:YAXIS:TRUE$ 47 PLOT(F7,X,0,10); 48