Regra de Runge (Regra do trapézio composta)

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