function y = coseno(x)
    y =0;
    N=80
    for k= 0:N
        y = y + (-1)^k*x.^(2*k)/factorial(2*k);
    end;
end