Regra de Runge (Regra do trapézio composta) -- Exemplo5.7

> f:=x->exp(-x^2);
n:=5;
a:=0;
b:=1;

> ITh:=TrComposta(f,a,b,5);
ITh2:=TrComposta(f,a,b,10);

> ETh2:=1/3*abs(ITh-ITh2);
ETh:=4*ETh2;