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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.12.2014, 00:22   #1
flc
 
Регистрация: 13.11.2014
Сообщений: 8
По умолчанию Методы половинного деления, хорд , касательных , простых операций

Подскажите, пожалуйста, как преобразовать Метод половинного деления в Метод хорд , Метод касательных , Метод простых операций , что необходимо заменить в программе половинного деления?
Код:
Private Function F(ByVal x As Single) As Single
F = x - (1 / Atn(x))
End Function
Private Sub CommandButton1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim eps As Single
Dim n As Integer
a = TextBox1.Value
b = TextBox2.Value
eps = TextBox3.Value
Do
c = (a + b) / 2
n = n + 1
If F(a) * F(c) < 0 Then
b = c
Else
a = c
End If
Loop While Abs(F(c)) >= eps
TextBox4.Value = c
TextBox5.Value = n
End Sub

Последний раз редактировалось Stilet; 06.12.2014 в 17:15.
flc вне форума Ответить с цитированием
Старый 06.12.2014, 02:29   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,724
По умолчанию

Код:
Do
c = (a + b) / 2
n = n + 1
If F(a) * F(c) < 0 Then
b = c
Else
a = c
End If
Loop While Abs(F(c)) >= eps
Побуду кепом, надо заменить основную часть.
p51x вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Могут ли методы касательных и хорд дать точное значение корня уравнения? now2 Помощь студентам 8 28.03.2014 00:05
[Pascal] Комбинированный метод хорд и касательных Максим139 Помощь студентам 3 07.10.2012 21:25
Метод Хорд , Касательных и Половинного деления DieHard Помощь студентам 4 13.09.2011 19:05
Метод хорд и касательных [Турбо Паскаль] mpegable Помощь студентам 6 14.05.2010 18:06
Численные методы. Решение нелинейного уравнения методом половинного деления. gree Помощь студентам 1 11.11.2009 18:36