function Compara(f, a, b)
for k=1:1:90
    disp([k, Regla_Trapezoidal(f, a, b, k), Simpson13(f, a, b, k), Simpson38(f, a, b, k)])
end;
end
