19.07.2014, 05:48 | #1 (permalink) |
Новичок
Регистрация: 19.07.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Метод Ньютона для решения системы m нелинейных уравнений
Var Eps,Res:Real; i:Integer; Function F(z:real):Real; begin F:=Sqr(Sin(z)+Cos(z))/Exp(Ln(33.5)*2/3)+Sqrt(3/7)-z; end; Function G(z:real):Real; begin G:=(Sin(z)+Cos(z))*2*(Cos(z)-Sin(z))/Exp(Ln(33.5)*2/3)-1; end; Procedure EQRoot(e:real; var R:real); var x1,x2,d:real; begin x1:=0.0; Repeat x2:=x1-F(x1)/G(x1); d:=abs(x1-x2); x1:=x2; Until d<e; R:=x2; end; Begin Eps:=0.1; for i:=1 to 10 do begin EQRoot(Eps,Res); Writeln(Res:12:10); Eps:=Eps/10; end; Readln End. Но здесь, как я понимаю, решения одного нелинейного уравнения, а мне нужна система уравнений. Подскажите, как это реализовать? Заранее спасибо. |
19.07.2014, 05:48 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что внутри этих ссылок вы найдете важную информацию Метод Ньютона Решение уравнений методом Ньютона Метод Ньютона-Рафсона на Паскаль Решить систему уравнений методом Ньютона, Pascal |
19.07.2014, 08:14 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|