%EXPO	Calcolo funzione esponenziale.
%   Il calcolo viene effettuato mediante sviluppo
%   serie di Taylor.

% provate ad aumentare il valore di x mantenendo 
% la stessa precisione: perche' il numero di 
% iterazioni aumenta?

disp('Calcolo funzione esponenziale')
x = input('x = ');
tau = input('precisione = ');

k = 0;
fk = 1;
xk = 1;
ak = 1;
s = 1;
while (ak >= tau)
	k = k+1;
	fk = fk/k;
	xk = xk*x;
	ak = fk*xk;
	s = s+ak;
end
fprintf('iterazioni effettuate: %g\n',k)
fprintf('valore calcolato: %g\n',s);
fprintf('valore exp(x)   : %g\n',exp(x));
fprintf('differenza      : %g\n',abs(s-exp(x)));
