Regra de Runge (Regra do trapézio composta)

> ITh:=TrComposta(f,a,b,n):
ITh2:=TrComposta(f,a,b,2*n):
ETh2:=1/3*abs(ITh-ITh2);
ETh:=4*ETh2;