%% control 01 pregunta 01

clear all;
clearvars;
clc;

%% leer los datos de entrada
x = input('numero entre -1 y 1                x = ');
N = input('numero de terminos de la sumatoria N = ');

%% procesamiento de datos

%datos iniciales
yverd = asin(x);
yaprx = 0;

%ciclo for
for n = 0:N

    %inicio metodo01
%    y01 = factorial(2*n);
%    y02 = 4^n;
%    y03 = factorial(n)^2;
%    y04 = (2*n + 1);
%    y05 = x^(2*n+1);

%    yaprx = yaprx + (y01*y05)/(y02*y03*y04);
%    fprintf('yaprx = %f\n',yaprx);
    %fin metodo01

    %inicio metodo02
    yaprx = yaprx + (factorial(2*n)*x^(2*n+1))/(4^n*factorial(n)^2*(2*n + 1));
    %fin metodo01

    end;
erro = abs(yverd - yaprx);

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