MÉTODOS NUMÉRICOS

More documents

Recommendations

Info

X1:=0;X2:=0;Tolerancia:=0;CalcRaiz:=nil;end;procedure TSecante.SetX1(Vx1: double);beginX1:=Vx1;end;procedure TSecante.SetX2(Vx2: double);beginX2:=Vx2;end;procedure TSecante.SetTolerancia(Tol: double);beginTolerancia:=Tol;end;procedure TSecante.SetCalcRaiz(CalcR: TOnCalRaiz);beginCalcRaiz:=CalcR;end;function TSecante.GetX1: double;beginresult:=X1;end;function TSecante.GetX2: double;beginresult:=X2;end;function TSecante.GetTolerancia: double;beginresult:=Tolerancia;end;function TSecante.GetCalcRaiz: TOnCalRaiz;beginresult:=CalcRaiz;end;function TSecante.CalcError(act, ant: double): double;beginresult:=100*Abs(actant)/act;end;function TSecante.ValorFx(x: double): double;beginresult:=Exp((x*x))x;
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
Page 2 and 3: CURSO: Métodos NuméricosTEMA: Mé
Page 7: Pruebe la aplicación con las entra

MÉTODOS NUMÉRICOS

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?