Технический форум

Технический форум (http://www.tehnari.ru/)
-   Любые вопросы от новичков (http://www.tehnari.ru/f23/)
-   -   СНАУ методом Зэйделя (http://www.tehnari.ru/f23/t245238/)

Алекс2 29.03.2016 00:32

СНАУ методом Зэйделя
 
Вложений: 1
Исполнить «ручное» решение заданой системы уравнений методом Зейделя с точностью ε = 0.01 (до 4-х итэрацый);
Составить и отладить програму на Паскаль, которая реализует введение входных данных, решение системы методом Зэйделя, выведение результатов в удобной форме на екран и в файл; фрагменты программы оформить как процедуры и функции.
Решить СНАУ с помощью этой программы, сравнить с результатами «ручних» расчетов.
Построить графики сходимости итеррацыонного процеса
Вичислить корни системы уровнений при 5 разных значениях точности ε (ε<1) . Результаты оформить в виде таблицы


Я нашол программу для 3-х нелинейных уровнений с тремя неизвестными


но есть только фрагмент программы
Var E,x1,x2,x3,F1,F2,F3,
x11,x21,x31:real;
k: integer;
Label M,M1;

Begin
<введення вихідних даних >
K:=0;
M1: x11:=-x1*x1+2*x2*x3+0.1;
X21:=x2*x2-3*x11*x3-0.2;
X31:=-x3*x3-2*x11*x21+0.3;
F1:=x11+x11*x11-2*x21*x31-0.1;
F2:=x21-x21*x21+3*x11*x31+0.2;
F3:=x31+x31*x31+2*x11*x21-0.3;
if (abs(F1)<=E) and (abs(F2)<=E) and (abs(F3)<=E)
then goto M;
x1:=x11; x2:=x21; x3:=x31;
k:=k+1;
goto M1;
M: <виведення результатів>

Я кое- что понял как составлять для 3-х уровнений.
Но как это применить к моей системе из 2-х уровнения я не понимаю.

Пожалуйста подскажите, а если можете то и код программы


Часовой пояс GMT +4, время: 15:50.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.