Zufallszahlen; Dreiecksverteilung
08.05.2009 09:02:07
AyKay
ich habe nachfolgenden Code beim stöbern im Internet gefunden. Dieser soll Dreiecksverteilte Zufallszahlen generieren. Nur weiß ich leider überhaupt nicht wie ich das ganze in Excel umsetzen kann. Ich habe den Code als Modul in die VBA-Umgebung kopiert - aber wie rufe ich das Ding auf? Und wie werden Werte übergeben? Und wohin vor allem?
Fragen über Fragen... Vielleicht könnt ihr mir weiterhelfen
************************
Function zuf_dreieck(Optional ug As Double = -1, Optional peak As Double = 0, Optional og As _
Double = 1, Optional trig As Variant = 0) As Double
Dim x, left, right As Double
' Reihenfolge ?
If (ug > og) Then
x = ug
ug = og
og = x
End If
' Gipfel muss innerhalb liegen
If ((peak og)) Then
peak = (ug + og) / 2
End If
' Sonderfall ug=peak=og
If (og = ug) Then
zuf_dreieck = peak
Else
left = (peak - ug) / (og - ug)
'right = 1 - left
' Erzeugende Funktion
x = 1 - Sqr(1 - Rnd)
' links oder rechts ?
If Rnd
**************************
Danke im voraus,
Andreas