%-----------------------------------------------------------------------
% Script File: ExpTaylorerr.m
m = 50;
x = linspace(-1,1,50);
y = zeros(1,m);
exact = exp(x);
k = 0;
for n = [4 8 16 20]
   for i = 1:m
      y(i) = MyExpF(x(i),n);
   end
   RelErr = abs(exact - y)./exact;
   k = k+1;
   subplot(3,2,k)
   plot(x,RelErr)
   title(sprintf('n = %2.0f',n))
end 
RelErr = abs(exact - MyExp1(x')')./exact;
   subplot(3,2,5)
   plot(x,RelErr)
   title(sprintf('MyExp1 '))
RelErr = abs(exact - MyExp4(x))./exact;
   subplot(3,2,6)
   plot(x,RelErr)
   title(sprintf('MyExp4 '))
