%prog018ExponencialV02

clearvars;
close all;
clc;

%en este caso usaremos un ciclo for para tener la sumatoria y sin factorial

%% datos inciales

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

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

for n = 1:N%--------------------------------------------->inicio ciclo for externo

    %para calcular factorial
    fakto = 1;
    for k = 1:(2*n)%------------->inicio for interno
        fakto = fakto*k;
    end;%-------------------->fin for interno
    
    yaprox = yaprox + (-1)^n*x^(2*n)/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);