Probleme avec l'opérateur exposant [Résolu]
EmKa69
- Messages postés
- 10
- Date d'inscription
- mardi 30 septembre 2008
- Dernière intervention
- 3 décembre 2009
- Messages postés
- 10
- Date d'inscription
- mardi 30 septembre 2008
- Dernière intervention
- 3 décembre 2009
A voir également:
- Dsipedia
- C++ exposant - Meilleures réponses
- Exposant en c++ - Meilleures réponses
- [c#] opérations cross threads - utilisation des delegations synchrones / asynchrones - Conseils pratiques - C# / .NET
- Les nouveaux opérateurs logiques en vb2005 - Conseils pratiques - Visual Basic / VB.NET
- Analyse d' une opération mathématique - Codes sources - Visual Basic / VB.NET (Maths)
- Opération basique sur fichier en vbs - Codes sources - Visual Basic / VB.NET (VBScript)
- Visual Basic / VB.NET : Opera popup killer - CodeS SourceS - Guide
12 réponses
Meilleure réponse
- Messages postés
- 2117
- Date d'inscription
- lundi 11 avril 2005
- Dernière intervention
- 14 mars 2016
Re,
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 :
Amicalement,
Us.
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
Amicalement,
Us.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
114 internautes nous ont dit merci ce mois-ci
- Messages postés
- 672
- Date d'inscription
- mercredi 22 janvier 2003
- Dernière intervention
- 2 juin 2016
- Messages postés
- 672
- Date d'inscription
- mercredi 22 janvier 2003
- Dernière intervention
- 2 juin 2016
- Messages postés
- 672
- Date d'inscription
- mercredi 22 janvier 2003
- Dernière intervention
- 2 juin 2016
j'ai quand quelques doutes,
http://fr.wikipedia.org/wiki/Puissance_(math%C3%A9matiques_%C3%A9l%C3%A9mentaires)
x puiss y = exp (y * ln(x))
ln : logarithme népérien
http://fr.wikipedia.org/wiki/Logarithme_n%C3%A9p%C3%A9rien
http://fr.wikipedia.org/wiki/Puissance_(math%C3%A9matiques_%C3%A9l%C3%A9mentaires)
x puiss y = exp (y * ln(x))
ln : logarithme népérien
http://fr.wikipedia.org/wiki/Logarithme_n%C3%A9p%C3%A9rien
- Messages postés
- 672
- Date d'inscription
- mercredi 22 janvier 2003
- Dernière intervention
- 2 juin 2016
- Messages postés
- 2117
- Date d'inscription
- lundi 11 avril 2005
- Dernière intervention
- 14 mars 2016
Bonsoir,
Intéressante limitation de VB que je ne connaissais pas.
Voici une fonction perso réglant le problème :
Amicalement,
Us.
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
Amicalement,
Us.
- Messages postés
- 2117
- Date d'inscription
- lundi 11 avril 2005
- Dernière intervention
- 14 mars 2016
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...
Amicalement,
Us.
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...
Amicalement,
Us.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.