Материалы сайта
Это интересно
Лабораторные работы по вычислительной математике
ЛАБОРАТОРНАЯ РАБОТА №10 «Методы решения систем линейных уравнений ». Студента группы ПВ-22 Малютина Максима. Задание. Решить систему уравнений с точностью до 0,001. а) Методом итераций Система : б) Методом Ньютона. Система : uses crt; type fun=function(x:real):real; funcs=array[1..4] of fun; fun2=function(x,y:real):real; function fun_x(y:real):real; begin fun_x:=-0.4-sin(y); end; function fun_y(x:real):real; begin fun_y:=(cos(x+1))/2; end; function f(x,y:real):real; begin f:=sin(x+y)-1.5*x-0.1 end; function g(x,y:real):real; begin g:=x*x+y*y-1 end; function dfx(x,y:real):real; begin dfx:=sin(x+y)-1.5 end; function dfy(x,y:real):real; begin dfy:=sin(x+y) end; function dgx(x,y:real):real; begin dgx:=2*x end; function dgy(x,y:real):real; begin; dgy:=2*y end; Procedure Iteration(funx,funy:fun;x,y,e,q:real); var xn,yn:real; m:byte; begin e:=abs(e*(1-q)/q); xn:=x; yn:=y; m:=0; repeat x:=xn;y:=yn; xn:=funx(y); yn:=funy(x); inc(m) until (abs(xn)+abs(yn)-abs(x)-abs(y))