%% prog017 exponencial while primera 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
yverd = exp(x);
yaprox = 1;
errr = abs(yverd - yaprox);

%% calculo principal con ciclo for para la sumatoria
N = 1
while errr > 1e-6%---------------------------->inicio while exterior
  
    yaprox = 1;
    for n = 1:N%---------------------------->inicio for interior
        yaprox = yaprox + x^n/factorial(n);
    end;%---------------------------------->fin for interior
    
    errr = abs(yverd - yaprox);   %calculamos el error
    fprintf('yverd  = %f\n',yverd);           
    fprintf('yaprox = %f\n',yaprox); 
    fprintf('error  = %f\n',errr);           
    fprintf('N      = %d\n',N); 
    N = N + 1;                    %aumentamos el numero de elementos de la sumatoria
    
end;%--------------------------------------->fin while exterior

%% error

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