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
Blau Funktion in VBA mit einer normalverteilten Variablen
 03.04.2013 15:34:17 Jue
NotSolved
03.04.2013 15:34:20 Jue
NotSolved
03.04.2013 17:01:34 Gast11000
NotSolved
03.04.2013 18:47:17 Jue
Solved

Ansicht des Beitrags:
Von:
Jue		 Datum:
03.04.2013 15:34:17		 Views:
937		 Rating:
     
Antwort:
  Ja
Thema:
Funktion in VBA mit einer normalverteilten Variablen

Hallo Holger,

Danke für Deine Antwort. Richtig, mir geht es darum über alle ux(i) zu summieren.

Ich habe die Anpassung entsprechend gemacht aber ich erhalte nur #Value! als "Ergebnis" in der Zelle. Hast Du noch eine Idee wo der Fehler liegen könnte?

 

Function AppGaussInt(N As Double)

Dim ux() As Double
Dim x As Double
Dim y As Double
Dim i As Double
Dim dist As Double
Dim a As Double


ReDim ux(1 To N + 1)

a = 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(i) = x * Sqr(-2 * Log(dist) / dist)

a = a + ux(i)

Next i
    
'Output

AppGaussInt(i) = a

End Function

 

 

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
Blau Funktion in VBA mit einer normalverteilten Variablen
 03.04.2013 15:34:17 Jue
NotSolved
03.04.2013 15:34:20 Jue
NotSolved
03.04.2013 17:01:34 Gast11000
NotSolved
03.04.2013 18:47:17 Jue
Solved