Discussion :

[CyBeRoN]

Bonjour à tous.

J'ai un petit souci pour retranscrire la fonction LOI.NORMALE.STANDARD de Excel dans mon programme VB.NET.

D'après le site de Microsoft, la formule serait celle-ci :
Z(x) = (1/(sqrt(2*pi()))*exp(-x^2/2))

Je traduis donc par ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Function LoiNormaleStandard(ByVal z As Double) As Double
        Return (1 / (Math.Sqrt(2 * Math.PI)) * Math.Exp(-z ^ 2 / 2))
End Function

Par contre si je teste ma fonction, j'ai des résultats complètement différents.
Ex :

dans Excel : LOI.NORMALE.STANDARD(3,1791444442303) = 99,9261%

dans VB.NET: LoiNormaleStandard(3,1791444442303) = 0.2548%

Une petite idée de ce qui cloche dans ma formule ?

Merci d'avance

[CyBeRoN]

Ouais bon j'avais encore lu a moitié l'aide de Bill et donc ma fonction qui se transforme comme ci-dessous fonctionne avec les bons résultats

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Private Function LoiNormaleStandard(ByVal z As Double) As Double
        'http://support.microsoft.com/kb/214111/fr
        Dim Zx As Double = (1 / (Math.Sqrt(2 * Math.PI)) * Math.Exp(-z ^ 2 / 2))
 
        Dim b1 As Double = 0.31938153
        Dim b2 As Double = -0.356563782
        Dim b3 As Double = 1.781477937
        Dim b4 As Double = -1.821255978
        Dim b5 As Double = 1.330274429
        Dim p As Double = 0.2316419
        Dim t As Double = 1 / (1 + p * z)
 
        Return 1 - Zx * (b1 * t + b2 * t ^ 2 + b3 * t ^ 3 + b4 * t ^ 4 + b5 * t ^ 5)
 
End Function

Désolé pour le dérangement