Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2009, 22:49   #1
Vint7_2009
 
Регистрация: 04.12.2009
Сообщений: 6
По умолчанию Решить систему нелинейных уравнений методом ньютона

Доброго времени суток!
Пытаюсь написать программу решающую систему нелинейных уравнений методом ньютона. На C. Для сдачи зачета.
В поиск ходил, но нужной программы не нашел.
Закавырка в следующем - система 3-х уравнений и 3-х неизвестных.
⎧ lg(x2/x3) - x1 + 1 = 0
⎨ 2*x1^2 + x2 - x3 = 0
⎩ x1*x2/20 - x3 + 2 = 0
Буду очень признателен за любую помощь!
Vint7_2009 вне форума Ответить с цитированием
Старый 04.12.2009, 22:51   #2
Tidus
Форумчанин
 
Регистрация: 08.09.2009
Сообщений: 133
По умолчанию

Методом Гаусса не пробовали?
Tidus вне форума Ответить с цитированием
Старый 04.12.2009, 22:55   #3
Vint7_2009
 
Регистрация: 04.12.2009
Сообщений: 6
По умолчанию

нет, нужно именно Ньютона...
Vint7_2009 вне форума Ответить с цитированием
Старый 04.12.2009, 23:09   #4
NiCola999
Не
Участник клуба
 
Регистрация: 29.10.2009
Сообщений: 1,456
По умолчанию

метод Ньютона знаешь? в чем проблема тогда
NiCola999 вне форума Ответить с цитированием
Старый 04.12.2009, 23:14   #5
Vint7_2009
 
Регистрация: 04.12.2009
Сообщений: 6
По умолчанию

знаю, но не могу понять, как для трех систем и трех неизвестных.
Так же, как и для двух? У меня есть исходники для системы 2-х уравнений и двух неизвестных.
Vint7_2009 вне форума Ответить с цитированием
Старый 04.12.2009, 23:17   #6
NiCola999
Не
Участник клуба
 
Регистрация: 29.10.2009
Сообщений: 1,456
По умолчанию

наверно ты знаешь метод Ньютона для простых линейных уравнений. А есть еще метод Ньютона для систем нелинейных уравнений.Там намного сложнее
NiCola999 вне форума Ответить с цитированием
Старый 04.12.2009, 23:31   #7
Vint7_2009
 
Регистрация: 04.12.2009
Сообщений: 6
По умолчанию

Про оба читал. Может кто то сталкивался с подобной задачей? И есть варианты решения... Пока пытаюсь переделать для 2*2 на 3*3, безуспешно.
Vint7_2009 вне форума Ответить с цитированием
Старый 05.12.2009, 21:42   #8
Vint7_2009
 
Регистрация: 04.12.2009
Сообщений: 6
По умолчанию

Получилось следующее :
C:\VIVODFIL.TXT выходной файл (можно вывести и в программу, но там коряво, доделаю позже)
входным файлом лучше не пользоваться (почему то вылетает ошибка), а пользоваться ручным вводом.
Для входных
⎧ x1^2+x2^2+x3^2=1
⎨ 2*x1^2+x2^2+4*x3=0
⎩ 3*x1^2-4*x^2+x3^2=0 (они есть в SNAU, закоментированны)
X(0.7 ; 0.4 ; 0.3)
0.001
Работает как надо,а для моих входных при попытке произвести расчет вылетает с ошибкой: invalid floating point operation
С моими входными не было дано стартовой точки.
Не знаю что мне дальше делать ....

KURS.pas http://itpaste.ru/1281
SNAU.pas http://itpaste.ru/1282

UPD : А при вводе (x1;x2;x3) отрицательных расчет удался без ошибок. Вопрос, как найти нужные X, если их не дал преподаватель?

Последний раз редактировалось Vint7_2009; 05.12.2009 в 22:31. Причина: Добавление кода программ
Vint7_2009 вне форума Ответить с цитированием
Старый 06.12.2009, 11:14   #9
Vint7_2009
 
Регистрация: 04.12.2009
Сообщений: 6
По умолчанию

Задание решено.
Корни
x1=-1.098891
x2=0.016001
x3=1.999121
Для приближения 0,001
Vint7_2009 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi. Решение системы нелинейных уравнений методами Ньютона и простых итераций. Помогите найти ошибку! Sianessa Помощь студентам 8 13.04.2012 17:32
Решить систему линейных уравнений методом простых итераций на Delphi Кнопик Помощь студентам 2 22.10.2009 16:11
Решение нелинейных уравнений матодом Ньютона Гудвин Помощь студентам 1 09.10.2009 12:02
Решить систему линейных уравнений, которая содержит до 200 переменных, методом Гаусса. Etlau Помощь студентам 5 05.05.2008 07:50