![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
}
//---------------------------------------------------------------------------
Метод простых итераций
Порядок выполнения:
Найти нулевое приближение решения;
Преобразовать систему f(x) = 0 к виду х = Ф(х);
Проверить условие сходимости метода.
Схема алгоритма приведена на рисунке 1.
Пример. Решить методом простых итераций систему
В качестве нулевого приближения выберем точку х=1, у = 2.2, z = 2. Преобразуем систему к виду
Текст программы:
Uses Crt;
type mas=array [0..1] of comp;
Var
x10,x20,e,max: real;
fii,x:mas;
{____________________________________}
function f(x1,x2: real): real;
Begin
f:=x1*ln(x2)-x2*ln(x1);
End;
{____________________________________}
function fi(x1,x2: real;var fii:array of comp): real;
Begin
fii[0]:=exp(1/3*ln(8*x1*x2-(x2*x2*x2)));
fii[1]:=x2+x2/ln(x2)-x1/ln(x1);
End;
{____________________________________}
function iter(x10,x20: real;var x:array of comp): real;
var x1,x2:real;
n:integer;
Begin
n:=0;
Repeat
x1:=x10;
x2:=x20;
n:=n+1;
Дата публикования: 2015-04-10; Прочитано: 172 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!