%prog019CosenoV04

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 = 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

    %para calcular el elevado1
    elevado1 = 1;
    for k = 1:n%----------->inicio for interno
        elevado1 = elevado1*(-1);
    end;%-------------------->fin for interno

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