function Z = Roots_Exp_Test_2(n);
% function Z = Roots_Exp_Test_2(n);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Funktion-File plottet Nullstellen
% Näherungspolynom von exp(x)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Näherungspolynom berechnen
  P = 1./prod([1:n]);
  for k=1:n
      P = [P,1./prod([1:n-k])];
  end;
  
% Nullstellen bestimmen
  Z    = roots(P);
  
% Plotten
plot(Z,'*'), grid;