%% prog20230421 esponencial version 02

clearvars;
clear all;
close all;
clc;

%asumiremos que la funcion factorial no existe y la implementaremos con un
%ciclo for interno y la variable se llama "facto"
%la sumatoria sera un ciclo for externo

%% lectura de datos
x = input('numero al que se calculara la funcion exponencial x = ');
N = input('numero de componentes de la sumatoria             N = ');

%% calculo implementando solamente la sumatoria
yverd = exp(x);
yaprx = 1;

%sumatoria
for n = 1:N%----------------->incio for externo sumatoria

    %factorial
    %para mejorar necesito cambiar la variable contadora del for interno
    %y tengo que cambiar el numero final
    facto = 1;
    for k = 1:n%---------->incio for interno factorial
        facto = facto*k;
    end;%----------------->fin for interno factorial

    yaprx = yaprx + x^n/facto;
    erro = abs(yverd - yaprx);
    fprintf('n = %d --> yverd = %e --> yaprx = %e --> erro = %e\n',n,yverd,yaprx,erro);
end;%-------------------->fin for externo sumatoria

erro = abs(yverd - yaprx);

%% escribimos los resultados
fprintf('yverd = %e\n',yverd);
fprintf('yaprx = %e\n',yaprx);
fprintf('error = %e\n',erro);