Cómo usar VB para escribir un programa para encontrar el valor aproximado de una ecuación usando el método de bisección. Tengo el diagrama de flujo. !
Ya te he dado la precisión de 0.000001
Para obtener la precisión de 0.1, puedes llamar a MsgBox GetX(1, 2, 0.1) de esta manera
El siguiente es el código
Opción explícita
Private Sub Form_Load()
MsgBox GetX(1, 2)
End Sub
Función GetX(ByVal LowNum como único, ByVal TopNum como único, ByVal N opcional como único = 0.000001) como único
Dim LowFx como único, TopFx como único
Atenuar MidX como único, MidFx como único
LowFx = GetFx(LowNum)
TopFx = GetFx(TopNum)
MidX = (LowNum TopNum) / 2
Si TopFx - LowFx <= N Entonces
GetX = MidX
Si no
MidFx = GetFx(MidX)
Si Sgn (MidFx) = 0 Entonces
GetX = MidX
ElseIf Sgn(MidFx) * Sgn(LowFx) gt; GetX = GetX(MidX, TopNum, N)
Else
GetX = GetX(LowNum, MidX, N)
End If
Finalizar si
Finalizar función
Función GetFx(ByVal X As Single) Como Single
GetFx = 2 ^ X 3 * X - 7
Finalizar función