Bonjour à tous,
avec Visual basic express, j'ai un problème quand je veux élever un nombre négatif à une puissance réél.
Exemple
(-1)^(2.1)
renvoie -1.#ind
Est-ce que vous connaissez un "remède" ou une alternative.
Merci d'avance.
Dès qu'on s'intéresse au puissance supérieure à 1, par exemple (-2)^(5/3) [qui pose encore problème sous VBE] mon algo précédent n'est pas adapté. La solution que j'ai trouvé consiste à décomposer l'exposant en partie entiere+décimale. Ainsi : (-2)^(5/3) = ((-2)^5)^(1/3) = (-32)^(1/3) = -3,1748021039364...
Voici algorithme complet testé pour tous les exposants cette fois :
Function Puiss(Nb As Double, Expo As Double) As Double
' FONCTION EXPOSANT TENANT COMPTE DES D'ARGUMENTS TEL QUE (-2)^(1/3) ou (-2)^(5/3) SANS ERREUR
'Paramètres
Dim A As Double
Dim B As Double
Dim P As Double
Dim E As Double
Dim C As Double
Dim D As Double
Dim G As Double
Dim H As Double
P = 10 ^ -15
'Algo décomposition Expo
A = Int(Expo)
E = Int(Expo)
B = 1
C = 1
D = 0
G = Expo
While Abs(Expo - A / B) > P
G = 1 / (G - E)
E = Int(G)
H = A * E + C
C = A
A = H
H = B * E + D
D = B
B = H
Wend
'Calcul exposant entier
Nb = Nb ^ A
'Calcul exposant decimal
If Abs(1 / B) < 1 And (B And 1) Then
Puiss = Sgn(Nb) * Abs(Nb) ^ (1 / B)
Else
Puiss = Nb ^ (1 / B)
End If
End Function
Sub es()
Debug.Print Puiss(-2, 1 / 3) '-1,25992104989487
Debug.Print Puiss(-2, 5 / 3) '-3,1748021039364
Debug.Print Puiss(-2, -5 / 3) '-0,314980262473718
End Sub
J'ai le même résultat.
J'ai vu sur un autre forum que le problème viens justement du fait que vb passe par le log pour calculer les puissances négatives.
Il doit y avoir une autre façon de faire. Mais je ne l'ai pas encore trouvée.
le problème c'est que la fonction Log n'accepte pas des valeurs négatives , elle n'est définie que pour des valeurs positive, si tu as fait des math ,regarde le tracé de la fonction log (elle y ait sur une des 2 pages dsipedia précédente). aie aie
Intéressante limitation de VB que je ne connaissais pas.
Voici une fonction perso réglant le problème :
Function Puiss(Nb As Double, Expo As Double) As Double
' FONCTION EXPOSANT TENANT COMPTE DES D'ARGUMENTS TEL QUE (-2)^(1/3) SANS ERREUR
If Abs(Expo) < 1 And ((1 / Expo) And 1) Then
Puiss = Sgn(Nb) * Abs(Nb) ^ Expo
Else
Puiss = Nb ^ Expo
End If
End Function
A oui, il m'empêche que pour la question de départ, il est normal que (-1)^2.1 bug ! puisque le résultat n'est pas un nombre réel pure (partie imaginaire nulle). En effet, (-1)^2.1 = 0.95105651629515364 + 0.30901699437494717*i, avec i²=-1...
J'ai testé avec mon algo, il donne bien le résultat attendu... c'est à dire qu'il bug !... Logique... avec (-1)^2.2 ou (-1)^2.4 on a bien les résultats attendus : -1 et 1.... etc...
a aidé 90 internautes ce mois-ci