%% prog028 exponencial while segunda versión

clearvars;
close all;
clc;

%en este caso usaremos un ciclo for para tener la sumatoria
%% datos inciales

x = input('x = ');  %valor de x

yaprox1 = 0;
yaprox2 = 1;
errr = abs(yaprox2 - yaprox1);

%% calculo principal con ciclo for para la sumatoria
N = 1
while errr > 1e-6%---------------------------->inicio while exterior
    
    fprintf('N      = %d\n',N);
    fprintf('yaprox1  = %e\n',yaprox1);           
    
    yaprox2 = 1;
    for n = 1:N%---------------------------->inicio for interior
        yaprox2 = yaprox2 + x^n/factorial(n);
    end;%---------------------------------->fin for interior

    errr = abs(yaprox2 - yaprox1);   %calculamos el error
    yaprox1 = yaprox2;
    
    N = N + 1;                    %aumentamos el numero de elementos de la sumatoria
    fprintf('yaprox2 = %e\n',yaprox2); 
    fprintf('error  = %e\n',errr);           

    
end;%--------------------------------------->fin while exterior

%% error

errr = abs(yaprox2 - yaprox1);
           
%% resultados           
fprintf('x      = %e\n',x);           
fprintf('yaprox1  = %e\n',yaprox1);           
fprintf('yaprox2 = %e\n',yaprox2); 
fprintf('error  = %e\n',errr);           
fprintf('N      = %d\n',N);