Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zufallszahlen unterschiedlich wahrscheinlich

Zufallszahlen unterschiedlich wahrscheinlich
09.12.2012 22:06:29
uppe
Hallo Experten,
ich möchte mit VBA eine Zufallszahl aus dem Bereich von 1 bis 1140 ausgeben.
Mache ich so iZ = Int((1140 * Rnd) + 1)
Das Problem ist, dass die Zahlen unterschiedlich wahrscheinlich gezogen werden sollen.
1,2 und 3 sollen mit einer Wahrscheinlichkeit von 5% gezogen werden, die anderen teilen sich den "Rest", also je 0,075%.
Kann ich das irgendwie in eine Formel packen?
Danke und Gruß
Uppe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zufallszahlen unterschiedlich wahrscheinlich
09.12.2012 22:16:43
Daniel
hi
ne formel wüsste ich jetzt nicht, aber du könntest so vorgehen:
erstelle ein Array, in welches du die Zahen 1-3 mehrfach und dann die folgenden Zahlen einfach einträgst.
dann wählst du zufällig einen Wert aus diesem Array aus.
Die Wahrscheinlichkeit für die mehrfach eingetragenen Werte ist natürlich grösser, als für die einfach eingetrageenen.
hier mal ein Beispiel für einen getürtken Würfel, bei dem die 6 eine doppelte so grosse Wahrscheinlichkeit hat wie die anderen Zahlen (2/7 statt 1/7):
dim Würfel(1 to 7) as long
dim i as long
'--- Array befüllen
for i = 1 to 6
Würfel(i) = i
next
Würfel(7) = 6
'--- Zufallszahl ermitteln
i  = Int((7 * Rnd) + 1)
iZ = Würfel(i)
Gruß Daniel

Anzeige
AW: Zufallszahlen unterschiedlich wahrscheinlich
09.12.2012 22:49:50
Nepumuk
Hallo,
so könnte das gehen:
iZ = IIf(Int(100 * Rnd + 1) <= 5, Int(3 * Rnd + 1), Int(1137 * Rnd + 4))

Gruß
Nepumuk

AW: Zufallszahlen unterschiedlich wahrscheinlich
09.12.2012 23:24:56
uppe
Hallo Nepumuk,
vielen Dank für den Tipp.
Ich habe die Formel leicht korrigiert (kleiner-gleich 15 statt kleiner-gleich 5), aber das war der entscheidende Hinweis.
Gruß Uppe

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige