Thema Datum  Von Nutzer Rating
Antwort
02.04.2013 19:42:31 Jue
NotSolved
02.04.2013 22:35:01 Jue
NotSolved
03.04.2013 11:47:52 Holger
NotSolved
03.04.2013 15:34:17 Jue
NotSolved
03.04.2013 15:34:20 Jue
NotSolved
Blau Funktion in VBA mit einer normalverteilten Variablen
 03.04.2013 17:01:34 Gast11000
NotSolved
03.04.2013 18:47:17 Jue
Solved

Ansicht des Beitrags:
Von:
Gast11000		 Datum:
03.04.2013 17:01:34		 Views:
1152		 Rating:
     
Antwort:
  Ja
Thema:
Funktion in VBA mit einer normalverteilten Variablen

 

Hallo,
ich war wohl zu schnell. Eigentlich reicht folgender Code
 
Function AppGaussInt(N As Double)
Dim ux As Double'du brauchst hier kein Array, da du nur jeweils einen Wert betrachtest
Dim x As Double
Dim y As Double
Dim i As Double
Dim dist As Double
AppGaussInt = 0
For i = 1 To N
    Do
        x = 2 * Rnd() - 1
        y = 2 * Rnd() - 1
        dist = x * x + y * y
    Loop Until dist < 1
ux = x * Sqr(-2 * Log(dist) / dist)
AppGaussInt = AppGaussInt + ux
Next i
End Function

Das lässt sich natürlich noch kürzer machen

 

Function AppGaussInt(N As Double)
Dim x As Double
Dim i As Double
Dim dist As Double
AppGaussInt = 0
For i = 1 To N
    Do
        x = 2 * Rnd() - 1
        dist = x^2 + (2 * Rnd() - 1)^2
    Loop Until dist < 1
AppGaussInt = AppGaussInt + x * Sqr(-2 * Log(dist) / dist)
Next i
End Function
 
Gruß
Holger

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.04.2013 19:42:31 Jue
NotSolved
02.04.2013 22:35:01 Jue
NotSolved
03.04.2013 11:47:52 Holger
NotSolved
03.04.2013 15:34:17 Jue
NotSolved
03.04.2013 15:34:20 Jue
NotSolved
Blau Funktion in VBA mit einer normalverteilten Variablen
 03.04.2013 17:01:34 Gast11000
NotSolved
03.04.2013 18:47:17 Jue
Solved