Tengo la siguiente ecuación x^2 * (x-s) = r
donde x es la incognita y lo demas son datos. Necesito que en funcion de esos datos se me calcule el valor de x, ya que esos datos pueden variar.
En esta ecuación para calcular el valor de t lo hacemos iterando, es decir, dando valores a x hasta que se cumpla la condición.
Entonces había pensado en ir dando valores con un "for" de 0 a 100 y si con un "if" se
cumplia la condición me diera el valor de t. Pero no me sale nada por pantalla, no se si
es que esta mal el algortimo o el problema es que no encuentra el valor exacto y por eso
no lo saca por pantalla. A continuación os pongo el algoritmo que tengo hecho:
'cálculo de la tensión de cada día
Private Sub tensioncadadia()
Dim a As Decimal
Dim origen As String
origen = TextBox79.Text
Dim res As String = origen.Replace(",", ".")
a = Val(res)
Dim b As Decimal
Dim origen2 As String
origen2 = TextBox80.Text
Dim res2 As String = origen2.Replace(",", ".")
b = Val(res2)
Dim r As Decimal = ((NumericUpDown24.Value ^ 2) * (peso ^ 2) * modulo) / (24 *
seccion ^ 2)
Dim s As Decimal = (a - dilatacion * modulo * (15 - b))
For x As Decimal = 0.0001 To 100.0 Step 0.0001
If x ^ 2 * (x - s) = r Then
TextBox82.Text = Val(x)
End If
Next x
End Sub
