calculo de x en ecuacion

[victortejedor]

hola,

Tengo el siguiente bucle en el que estoy tratando de que me saque el valor de x (no me lo va a dar exacto, pero que por lo menos me lo de lo mas aproximado posible).

r y s son valores ya declarados anteriormente.

dif tiene que ser lo mas cercano a 0 para que x sea lo más exacto posible.

Mi problema es que siempre me imprime por pantalla x =0.0001. A ver si alguno de ustedes ven el fallo y me pueden ayudar.


Dim x As Double = 0
Dim dif As Double = 0


For z As Integer = 1 To 1000000 Step 1
x = z / 10000
TextBoxControlX.Text = x

dif = (x ^ 2 * (x - s)) - r
TextBoxControlDIF.Text = dif

If -0.01 < dif < 0.01 Then
TextBox82.Text = x
Exit For
End If
Next z