% Das Programm exp_test_2.m bestimmt exp(1) mittels
% der gew"ohnlichen Taylorreihe und vergleicht das Resultat
% mit dem exakten Ergebnis
%
clear
% Bestimmung von n!
%
nfac(1)=1;
for i=2:20, nfac(i)=nfac(i-1)*i; end
%
% Ausf"uhren der Summation
%
s(1)=1+1/nfac(1);
for i=2:20, s(i)=s(i-1)+1/nfac(i); end
delta=(s-exp(1))/exp(1);
%
% Ausdruck
%
fprintf('  i      delta \n\n')
for i=1:20,
    fprintf('%2i %11.4e \n',i,delta(i))
end