MÉTODOS NUMÉRICOS
MÉTODOS NUMÉRICOS
MÉTODOS NUMÉRICOS
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
end;function TSecante.ValRaiz(ant, act: double): double;varfxi:double;beginfxi:=ValorFx(act);result:=act(fxi*(antact))/(ValorFx(ant)fxi);end;procedure TSecante.Aproximar;varxr,ant,act,error:double;beginant:=X1;act:=X2;repeatxr:=ValRaiz(ant,act);error:=CalcError(xr,act);if Assigned(CalcRaiz) thenCalcRaiz(xr,error);ant:=act;act:=xr;until error