Please help me convert this Javascript to VBA

[Tkeller]

//*************************************************************************
//*           Returns random numbers from Standard Normal Distribution   **
//*************************************************************************
    double gauss() {
        double fac;
        double r = 99;
        double V1 = 0;
        double V2 = 0;
        while (r >= 1) {
            V1 = 2 * Math.random() - 1;
            V2 = 2 * Math.random() - 1;
            r = Math.pow(V1, 2) + Math.pow(V2, 2);
        }
        fac = Math.sqrt(-2 * Math.log(r) / r);
        return V2 * fac;
    }

 

[Domenic]

Try the following function . . .

Public Function gauss() As Double

    Dim fac As Double
    Dim r As Double
    Dim V1 As Double
    Dim V2 As Double
   
    r = 99
    V1 = 0
    V2 = 0
   
    VBA.Randomize
    While (r >= 1)
        V1 = 2 * VBA.Rnd() - 1
        V2 = 2 * VBA.Rnd() - 1
        With WorksheetFunction
            r = .Power(V1, 2) + .Power(V2, 2)
        End With
    Wend
   
    fac = VBA.Sqr(-2 * VBA.Log(r)) / r
   
    gauss = V2 * fac
   
End Function

Actually, the following lines of code . . .

        With WorksheetFunction
            r = .Power(V1, 2) + .Power(V2, 2)
        End With

. . . can be replaced with . . .

        r = (V1 ^ 2) + (V2 ^ 2)

Hope this helps!

 

[Tkeller]

Thanks! I will give this a try!