Найти функцию через ВБА

[Incognitoal]

F(x)=ctgx+ 1


Есть пример, как делали F(x)=1/2 sin x/4 +1

Public Sub prog2()
Dim a As Single, b As Single, c As Single, e As Single
Dim x As Single
a = Cells(4, 3).Value
b = Cells(4, 4).Value
x = Cells(4, 2).Value
If F(a) * F(b) >= 0 Then
MsgBox "Между этими значениями нет корня"
Exit Sub
End If
Do
c = (a + b) / 2
If F(c) * F(b) < 0 Then a = c Else b = c
Loop Until b - a < e
Cells(4, 1).Value = c
End Sub
Private Function F(x As Single) As Single
F = 1 / 2 * Sin(x / 4) + 1
End Function

[Stilet]

Я немножко не есть понять причем тут "Между этими значениями нет корня", но тебе всего-то поменять конец прожки:

Private Function F(x As Single) As Single
 F = 1/tan(x)+1
End Function

[Incognitoal]

Наверно препод требовал проверку на корень...
Я правильно понял, что надо тот пример который я скопировал, просто заменить последнюю строку:
Private Function F(x As Single) As Single
F = 1 / 2 * Sin(x / 4) + 1

и всё?

п.с. сейчас просто нету возможности проверить

[Incognitoal]

ctgx = -1 / sin^2(x) - разве производная не этому равна? 0-о и ^ -этот знак - степень ?

Я попытался вставить :
F = -1 / Sin^2(x) + 1 - Syntax error

что не так сделал, подскажите плз.

[EducatedFool]

Private Function F(x As Single) As Single
    F = -1 / (Sin(x)) ^ 2     ' no more Syntax error
End Function

[Incognitoal]

Да, больше Sytax error нету, но появилось
Run Time Eror '11' Division vy zero
в этой же строке ошибка
F = -1 / (Sin(x)) ^ 2

[EducatedFool]

Так и должно быть, если у тебя в одной из ячеек
a = Cells(4, 3).Value
b = Cells(4, 4).Value
находится ноль (или значение отсутствует)

В функцию (строкой If F(a) * F(b) >= 0 Then) передаётся нулевое значение, синус нуля тоже равен нулю,
соответственно, происходит деление на 0, и вылетает эта ошибка.

[Incognitoal]

Спасибо я понял...
Вопрос, а оно точно всё правильно, как вы думаете, скажите пожалуйста, а то для меня это далеко всё...

[Incognitoal]

Мне кажется это же не нормально, что при любом раскладе оно должно выбивать нет корня...или всё правильно скажите...пожалуйста

[EducatedFool]

Мне кажется это же не нормально, что при любом раскладе оно должно выбивать нет корня...

Ты вообще что пытаешься подсчитать?

Если у тебя функция F до сих пор имеет вид

Private Function F(x As Single) As Single
    F = -1 / (Sin(x)) ^ 2     ' no more Syntax error
End Function

то ты всегда будешь видеть сообщение "Между этими значениями нет корня"

Мог бы и сам чуточку поразмыслить - ведь уже который день решаешь эту задачку, а там делов-то на 2 минуты...

Твоя функция F всегда возвращает отрицательное значение (попробуй сам догадаться, почему),
а в коде есть строка If F(a) * F(b) >= 0 Then MsgBox "Между этими значениями нет корня"
Произведение 2-х отрицательных чисел всегда положительно...