% The exponential function as the sum of its Taylor series  function main()     % KSmrq's colors    red    = [0.867 0.06 0.14];    blue   = [0, 129, 205]/256;    green  = [0, 200,  70]/256;    yellow = [254, 194,   0]/256;    white = 0.99*[1, 1, 3];  % Set up the grid and other parameters    N = 100;    A = -3; B = 3;     X = linspace(A, B, N);    Y = exp(X);    D = max(Y); C = -0.2*D;      % plot the frames     Sum = 0*X; Term = 0*X+1;    num_frames = 8;    for j=0:num_frames        Sum = Sum+Term;       Term = Term.*X/(j+1);        % Set up the figure       lw = 3; % linewidth       fs = 20; % font size       figure(1); clf; set(gca, 'fontsize', fs);       hold on; grid on;       set(gca, 'DataAspectRatio', [1 3 1]); % aspect ratio              plot_axes (A, B, C, D, lw/1.3);        plot(X, Sum, 'color', blue, 'linewidth', lw);       plot(X, Y,   'color', red, 'linewidth', lw);        axis([A, B, C, D]);              text_str = sprintf('{\\it n}=%d', j)       H= text (1.2, 18, text_str, 'fontsize', floor(1.2*fs))        frame=sprintf('Frame%d.eps', 1000+j);       disp(frame)       saveas(gcf, frame, 'psc2');              end  % Convert to animation with the command % convert -antialias -loop 10000  -delay 100 -compress LZW Frame100* Exp_series.gif         function plot_axes (A, B, C, D, lw)        black = [0, 0, 0];     plot([A B], [0, 0], 'linewidth', lw, 'color', black);    plot([0, 0], [C, D], 'linewidth', lw, 'color', black);