Ln как записать?? - VB

Узнай цену своей работы

Формулировка задачи:

у меня задачка на Алгоритм поиска корня методом дихотомии, и функция ln(x)=1/x. Алгоритм я знаю. но не могу написать ln в VB. Вижу только Log и Log10. Подскажите пожалуйста как записать Ln(x). Спасибо! P.S. нужно произвести такое вот: f(a)*f(b)>0 и там далее другие действия. просто не получается записать свою функцию ln

Решение задачи: «Ln как записать??»

textual
Листинг программы
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim X As Double ,a As Double,b As Double
 a = 1: b = 2
If (Math.Log(a) - 1 / a) * (Math.Log(b) - 1 / b) <= 0 Then
    Do
        X = (a + b) / 2
        If (Math.Log(a) - 1 / a) * (Math.Log(X) - 1 / X) > 0 Then
            a = X
        Else
            b = X
        End If
 
    Loop Until Math.Abs(Math.Log(X) - 1 / X) < 2.14
            TextBox3.Text = X
            TextBox4.Text = Math.Log(X) - 1 / X
Else
TextBox3.Text = "No roots"
End If
    End Sub
End Class

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.6 из 5
Похожие ответы