File:Exp series.gif

% 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);