%% prog20230421 esponencial version 01

clearvars;
clear all;
close all;
clc;

%% 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;

for n = 1:N
    yaprx = yaprx + x^n/factorial(n);
    erro = abs(yverd - yaprx);
    fprintf('n = %d --> yverd = %e --> yaprx = %e --> erro = %e\n',n,yverd,yaprx,erro);
end;

erro = abs(yverd - yaprx);

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