disp(' Prüfung SS 2000 Aufgabe 1 ');
% 23.06.2001
%
disp('für jades x, pn und dk eine extra Ausgabe');
format long;
pn=1;
for x=1:1:5;
for k=1:1:20;
   fak=cumprod(1:k);
   fak=fliplr(fak);
   ad=x.^k./fak(1);
   pn=pn+ad;
end;
disp('-----------');
disp(x);
disp(pn);
dk=exp(x)-pn;
disp(dk);
disp('  ');
pn=1;
end;
%
%
% oder mit x, pn und dk als Vektor |
%                              V
format long;
pn=1;
%for x=1:1:5;
x=[1 2 3 4 5];
pn=[1 1 1 1 1];
dk=[1 1 1 1 1];
for i=1:1:5;
for k=1:1:20;
   fak=cumprod(1:k);
   fak=fliplr(fak);
   ad=x(i).^k./fak(1);
   pn(i)=pn(i)+ad;
end;
dk(i)=exp(x(i))-pn(i);
end;
disp('-----------');
disp('x, pn und dk als vektor');
disp(x);
disp(pn);
disp(dk);
disp('  ');
%pn=1;
format short;