29.03.2016, 00:32 | #1 (permalink) |
Member
Регистрация: 24.03.2016
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
СНАУ методом Зэйделя
Составить и отладить програму на Паскаль, которая реализует введение входных данных, решение системы методом Зэйделя, выведение результатов в удобной форме на екран и в файл; фрагменты программы оформить как процедуры и функции. Решить СНАУ с помощью этой программы, сравнить с результатами «ручних» расчетов. Построить графики сходимости итеррацыонного процеса Вичислить корни системы уровнений при 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-х уровнения я не понимаю. Пожалуйста подскажите, а если можете то и код программы |
29.03.2016, 00:32 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я уверен, что решение вашей проблемы имеется по этим ссылкам Паскаль. Решить СНАУ методом Ньютона-Рафсона СНАУ методом Зейделя |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|