%prog019ExponencialV03

clearvars;
close all;
clc;

%en este caso usaremos un ciclo for para tener la sumatoria y sin factorial
%sin el elevado a (^)

%% datos inciales

x = input('x = ');  %valor de x
N = input('N = ');  %numero de elementos de la sumatoria
yverd = exp(x);

%% calculo principal con ciclo for para la sumatoria
yaprox = 1;

for n = 1:N%--------------------------------------------->inicio ciclo for externo
    
    %para calcular factorial
    fakto = 1;
    elevado = x;
    for k = 1:n%------------->inicio for interno
        fakto = fakto*k;
        elevado = elevado*x;
    end;%-------------------->fin for interno

    %para calcular el elevado
    elevado = x;
    for k = 1:n-1%----------->inicio for interno
        elevado = elevado*x;
    end;%-------------------->fin for interno
     
    yaprox = yaprox + elevado/fakto;
    
end;%--------------------------------------------------->fin del for externo
  
%% error

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