• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

СНАУ методом Зэйделя

Алекс2

Новые
Регистрация
24 Мар 2016
Сообщения
25
Реакции
0
Баллы
0
СНАУ методом Зэйделя

Исполнить «ручное» решение заданой системы уравнений методом Зейделя с точностью ε = 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-х уровнения я не понимаю.

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

Вложения

  • stst_1.webp
    stst_1.webp
    2.5 KB · Просмотры: 30
Назад
Сверху