С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/15: Рейтинг темы: голосов - 15, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 17.03.2015
Сообщений: 16
1

Решение систем нелинейных уравнений методом простой итерации

22.05.2016, 16:45. Показов 2884. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
добрый вечер, прошу помощи ибо сам никак не могу понять, есть система sin(x+2*y)-x-y+10=0 3x^2-4y^2+xy+18=0
на отрезке 0<=x<=10, нашел код, но нам на сколько я понял находят производные, а из моих функций у меня не получается найти производных
как мне подставить свои формулы в код?
заранее благодарю


x^2+y^2-5x+1=0
x^2-y^2-5y+2=0
на отрезке -1 1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
var x,y,xn,yn,m,n,d,e,f,g,h,i:real;
begin
writeln('Введите начальное значение х');
readln(x);
writeln('Введите начальное значение y');
readln(y);
writeln('Введите точность определения корня');
readln(e);
xn:=x;
yn:=y;
d:=(2*x)/5;
f:=(2*y)/5;
g:=(2*x)/5;
h:=(-2*y)/5;
if (d+f+g+h)<1 
then
writeln('Требование сходимости итерационного процесса выполняется')
else 
writeln('Требование сходимости итерационного процесса не выполняется');
readln;
repeat begin
x:=xn;
y:=yn;
xn:=(x*x+y*y)/5+0.2;
yn:=(x*x+y*y)/5+0.4;
i:=i+1;
end;
until (abs(xn-x)<=e) and (abs(yn-y)<=e);
if (d+f+g+h)<1 then
writeln('Ответ x=',xn:0:2,' y=',yn:0:2,' на ',i:0:0,' шаге итерации')
else writeln('нет решений');
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Блог
22.05.2016, 16:45
Ответы с готовыми решениями:

Решение СЛАУ методом простой итерации(Метод Якоби)
Собрал я вот такую программку из нескольких подобных исходников на эту тему.Хм...получилось,как ни...

Решение системы нелинейных уравнений методом Ньютона
помогите решить систему. Начальное приближение (0;0;0)

Решение нелинейных уравнений методом простых итераций
Уравнение 0.25x3+x-1.2501=0 Отрезок, содержащий корень Из того, что сделано пока 1. начальное...

Численное решение нелинейных алгебраических уравнений методом половинного деления
Численное решение нелинейных алгебраических уравнений методом половинного деления уравнение вот...

7
Модератор
Эксперт по электронике
8543 / 4395 / 1651
Регистрация: 01.02.2015
Сообщений: 13,659
Записей в блоге: 9
22.05.2016, 17:22 2
Теория по ссылке в Wikipedia.

У вас
https://www.cyberforum.ru/cgi-bin/latex.cgi?\left\{\begin{matrix}f1(x,y)=0\\ f2(x,y)=0\end{matrix}\right.

преобразуется в
https://www.cyberforum.ru/cgi-bin/latex.cgi?\left\{\begin{matrix}x=x-\frac{f1(x,y)}{Kx}\\ y=y-\frac{f2(x,y)}{Ky}\end{matrix}\right.

Коэффициенты и их знаки подберите экспериментально. Начните с заведомо больших значений.
0
0 / 0 / 0
Регистрация: 17.03.2015
Сообщений: 16
22.05.2016, 17:27  [ТС] 3
объясните пожалуйста что такое К? насколько я понял это коэффициент, и откуда я узнаю правильный ответ если буду их подбирать?
0
Модератор
Эксперт по электронике
8543 / 4395 / 1651
Регистрация: 01.02.2015
Сообщений: 13,659
Записей в блоге: 9
22.05.2016, 17:53 4
Так попробуйте сначала.
Если коэффициент не с тем знаком - будет расходящийся процесс вычислений и быстрое переполнение с остановкой по ошибке.

Да, Kx и Ky - коэффициенты. Почти произвольные. Возьмите их равными 100 (или -100).
0
0 / 0 / 0
Регистрация: 17.03.2015
Сообщений: 16
22.05.2016, 18:18  [ТС] 5
никак не могу понять куда это в код подставить
в эту строку?
Pascal
1
until (abs(xn-x)<=e) and (abs(yn-y)<=e)
0
Модератор
Эксперт по электронике
8543 / 4395 / 1651
Регистрация: 01.02.2015
Сообщений: 13,659
Записей в блоге: 9
22.05.2016, 18:25 6
Что "это" и зачем?
0
0 / 0 / 0
Регистрация: 17.03.2015
Сообщений: 16
22.05.2016, 18:30  [ТС] 7
коэффициенты, иначе зачем они?
и всё же мой вопрос остается в силе, как заменить формулы в коде, если я правильно понял там производные, а из моих производные не находятся
0
Модератор
Эксперт по электронике
8543 / 4395 / 1651
Регистрация: 01.02.2015
Сообщений: 13,659
Записей в блоге: 9
22.05.2016, 18:46 8
Так удаляйте производные. Они не обязательны (читайте хоть какие-нибудь статьи).

В общем виде формулы я привёл. Смущают коэффициенты - не применяйте, но тогда через несколько проб - сами придёте к их необходимости.

У вас есть методичка - посмотрите в ней.

Сделайте попытку самостоятельно осмыслить.
0
22.05.2016, 18:46
BasicMan
Эксперт
19315 / 2622 / 84
Регистрация: 17.02.2009
Сообщений: 10,364
Блог
22.05.2016, 18:46
Помогаю со студенческими работами здесь

Перевести код с JavaScript на Pascal. Решение системы нелинейных уравнений методом Ньютона
Помогите перевести этот код на pascal var num = +prompt(&quot;Корни какого уравнение необходимо...

Решение систем нелинейных уравнений методом Ньютона.
ВОт короче такое дело. НУжна прога которая решает систему нелинейных уравнений методом Ньютона. ...

С погрешностью 0.0001 методом простой итерации уточнить корни уравнений ln(x)- x +1.8 = 0
Задание: С погрешностью 0.0001 методом простой итерации уточнить корни уравнений ln(x)- x +1.8 = 0 ...

решение нелинейных уравнений методом ньютона
Найти корень уравнения 0.1*x2-x*ln x=0 с точностью е, корень уравнения находится на отрезке (1,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru