function Ejemplo_2(f, I, a, b, k)
    real = I(a,b);
    disp([Barras(f, a, b, k), abs(Barras(f, a, b, k)-real); ...
         Regla_Trapezoidal(f, a, b, k), abs(Regla_Trapezoidal(f, a, b, k)-real) ; ...
         Simpson13(f, a, b, k), abs(Simpson13(f, a, b, k)-real); ...
         Simpson38(f, a, b, k), abs(Simpson38(f, a, b, k)-real) ]);
end
