Résolution d'équation à 1 inconnue

Bonjour à tous,

J'ai un petit souci sous Visual Basic 6, j'aimerais résoudre une équation de la forme suivante :
1230000 = 155 +  12/X + 132/(X^2) + 1555/(X^3) + 14545/(X^4) + 142223/(X^5)

A votre avis, est-ce résolvable sous VB6?

Merci d'avance

ben c facil...

ta qua ramener ton equation à X = bla bla bla et ensuite tu fé ton calcul

Rollerman

il faut pas dormir en cours de math ^^

---

par recherche dichotomique



Private Sub Command1_Click()
    Dim i As Integer
    Dim x As Double
    Dim R As Double
    Dim P As Double
    Dim G As Double

    P = 0
    G = 1
   
    For i = 1 To 51
       x = (P + G) / 2
       R = 155 - 1230000 + 12 / x + 132 / (x ^ 2) + 1555 / (x ^ 3) + 14545 / (x ^ 4) + 142223 / (x ^ 5)
       If R > 0 Then P = x
       If R < 0 Then G = x
       If R = 0 Then Exit For
       DoEvents
       Next
    MsgBox x    '  réponse  x = 0,658710384962334
End Sub

[b]Daniel[/b]

La recherche dichotomique me semble très adapté à mon problème. Merci pour vos réponses.