function Z = Roots_Exp_Test_2(n);
sym(n, 'd')


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

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

  
  
% Plotten
plot(Z,'*'), grid;