Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Математика    >>    newtnpas
   
 
 Solve Nonlinear Equations by the Newton Method  Unknown 03.04.1985

Решение нелинейных уравнений методом Ньютона. В качестве примера используется функция Y=X^2-2. В архиве приведено 4 варианта программы.



2k 
 

program newdr; { -> 243 } var x,x2 : real; alldone : boolean; error : boolean; external procedure cls; procedure func(x: real; var fx,dfx: real); begin fx:=x*x-2.0; dfx:=2.0*x end; { func } procedure newton(var x: real); const tol = 1.0E-6; var fx,dfx,dx,x1: real; begin { newton } repeat x1:=x; func(x,fx,dfx); dx:=fx/dfx; x:=x1-dx; writeln('x=',x1,' fx=',fx,' dfx=',dfx); until abs(dx)<=abs(tol*x) end; { newton } begin { main program } cls; writeln; x:=2.0; { first guess } newton(x); writeln; writeln(chr(7),'The solution is ',x); writeln end.