/* An interactive demonstration of MACSYMA */

      LOADPRINT:FALSE$
/* Enter a FUNCTION of X to be differentiated */
      F0:READ();
      DIFF(F0,X);
/* Enter a FUNCTION of X to be integrated */
      F1:READ();
      INTEGRATE(F1,X);
/* Enter an ALGEBRAIC EQUATION to be solved for X */
      F2:READ();
      SOLVE(F2,X);
/* Enter a TRIG EXPRESSION to be simplified */
      F3:READ();
      EXPAND(TRIGREDUCE(EXPAND(F3)));
/* Enter a COMPLEX FUNCTION of Z
      whose real part is to be found */
      Z:X+%I*Y;
      F4:READ();
      REALPART(F4);
/* Enter a 3 X 3 MATRIX to be inverted */
      F5:ENTERMATRIX(3,3);
      INVERT(F5),DETOUT;
/* Enter a FUNCTION of X to be Taylor-expanded
      about X=0 */
      F6:READ();
      TAYLOR(F6,X,0,8);
/* Enter a FUNCTION of X to be plotted
      from X=0 to 10 */
      F7:READ();
      XAXIS:YAXIS:TRUE$
      PLOT(F7,X,0,10);