![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
необходимо написать код в delphi для решения уравнения методом Ньютона.
3ln^2(x) + 6ln(x) - 5 = 0 |
|
#2
|
|||
|
|||
|
А где ваши наработки?
|
|
#3
|
|||
|
|||
|
абсолютно не представляю как этот метод программируется!
|
|
#4
|
||||
|
||||
|
а что за метод такой? в чем суть?
а вообще очень похоже на квадратное уравнение если заменить 3ln(x) на z ![]() |
|
#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 |