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