Regra de Runge (Regra de Simpson composta)
> ISh:=SiComposta(f,a,b,n): ISh2:=SiComposta(f,a,b,2*n): ESh2:=1/15*abs(ISh-ISh2); ESh:=16*ESh2;
>