share/contrib/rand/Demo.bk1

   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 \r/* An interactive demonstration of MACSYMA */
  16
  17       LOADPRINT:FALSE$
  18 /* Enter a FUNCTION of X to be differentiated */
  19       F0:READ();
  20       DIFF(F0,X);
  21 /* Enter a FUNCTION of X to be integrated */
  22       F1:READ();
  23       INTEGRATE(F1,X);
  24 /* Enter an ALGEBRAIC EQUATION to be solved for X */
  25       F2:READ();
  26       SOLVE(F2,X);
  27 /* Enter a TRIG EXPRESSION to be simplified */
  28       F3:READ();
  29       EXPAND(TRIGREDUCE(EXPAND(F3)));
  30 /* Enter a COMPLEX FUNCTION of Z
  31       whose real part is to be found */
  32       Z:X+%I*Y;
  33       F4:READ();
  34       REALPART(F4);
  35 /* Enter a 3 X 3 MATRIX to be inverted */
  36       F5:ENTERMATRIX(3,3);
  37       INVERT(F5),DETOUT;
  38 /* Enter a FUNCTION of X to be Taylor-expanded
  39       about X=0 */
  40       F6:READ();
  41       TAYLOR(F6,X,0,8);
  42 /* Enter a FUNCTION of X to be plotted
  43       from X=0 to 10 */
  44       F7:READ();
  45       XAXIS:YAXIS:TRUE$
  46       PLOT(F7,X,0,10);