![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() необходимо написать код в delphi для решения уравнения методом Ньютона.
3ln^2(x) + 6ln(x) - 5 = 0 |
#2
|
|||
|
|||
![]() А где ваши наработки?
|
#3
|
|||
|
|||
![]() абсолютно не представляю как этот метод программируется!
|
#4
|
||||
|
||||
![]() а что за метод такой? в чем суть?
а вообще очень похоже на квадратное уравнение если заменить 3ln(x) на z ![]() Последний раз редактировалось Admin, Сегодня в 10:32. |
#5
|
|||
|
|||
![]() если решать как квадратное то получается вроде
Код:
..... var ..... t1, t2, x1, x2:real; ........ procedure.......button1....... begin t1:=(-5+sqrt(97))/6; t2:=-((-5+sqrt(97))/6) x1:=exp(ln(t1)); x2:=exp(ln(1/t1)) ; edit1.text:=floattostr(x1); edit2.text:=floattostr(x2); end; вроде компилируется.но правильно ли работает неизвестно.и...это рассчетка в институт,поэтому нужен именно ньютон.к тому же тут много в голове считается. |
#6
|
|||
|
|||
![]() А что, гугл отключили:
http://ru.wikipedia.org/wiki/%D0%A7%...%D0%B8%D0% B9 |