N = 50;
a = zeros(1,N);

for  k = 1:N/2
    a(2*k-1) = (-1)^(k-1)/factorial(k-1);
end;

a



fprintf('Derivada = %10.8f\n', Evalua_Derivada(1, a));

fprintf('Integral = %10.8f\n', Evalua_Integral(-1, 1, a));