Zufallszahlen mit festem Mittelwert

Steffen · 2005-07-20T13:37:02+00:00

Hallo, Ich versuche in einem Excel Sheet 150 Zufallszahlen zu erzeugen, die jeweils zwischen 1 und 10 liegen. Der Mittelwert aller dieser Zufallszahlen soll im Endeffekt einen vorher festgelegten Wert ergeben! z.B. ich möchte den Mittelwert 6 erhalten und suche dafür 150 Zahlen. Im Prinzip genau das Gegenteil von der Mittelwertbildung :-) Weiß jemand von Euch bescheid wie das geht? Vielen dank

Hi Steffen,
ich habe herum gebastelt. Die Zufallszahlen nacheinander zu erzeugen und immer zu prüfen ob der Durchschnitt 6 ist, geht nicht.
Entweder ist die erste Zufallszahl z.b. ein1 1, dann bräuchte man also ein 11 um auf den Schnitt von 6 zu kommen was ja nicht geht.
Oder die erste Zahl ist eine 8, dann fand mein Programm die 4 . So, um jetzt mit der 3ten Zahl auf einen Schnitt von 6 zu kommen ist die 3te Zahl eine 6, dies bei der vierten usw, also erhält man die Kette: 8,4,6,6,6,6,...
Soweit zur Therorie, warum mein nachstehender Code n eine Endlosschleife gerät nachdem er die 2te zahl findet ist mir unklar.
Problemlösung ist m.E. so möglich, alle 150 Zahlen erzeugen, dann prüfen wo der Schnitt liegt, dann "zufälli" irgendeine zahl herausgreifen, sie entsprechend um 1 vermindern erhöhen, und das anze solange bis der Schnitt bei 6 liegt
Gruß
Reinhard

Option Base 1
Sub tt()
Dim z() As Integer
ReDim z(1)
z(1) = Int((10 * Rnd) + 1)
MsgBox z(1)
For n = 2 To 150
For nn = 1 To n - 1
x = x + z(nn)
Next nn
ReDim Preserve z(n)
z(n) = Int((10 * Rnd) + 1)
While (x + z(n)) / nn <> 6
z(n) = Int((10 * Rnd) + 1)
Wend
MsgBox z(n)
Next n
For n = 1 To 150
MsgBox z(n)
Next n
End Sub

Gruß
Reinhard

Hi Steffen,
Alt+F11, Einfügen Modul, kopiere dort den Code herein, ändere ihn wie nachstehend gesagt ab, Editor schliessen.
In Excel Ansicht--Symbolleisten--Formular, dort holst du dir eine Schaötfläche, Rechtsklick darauf und makro zuweisen auswählen, dann weist d dem Knopp das Makro tt() zu.
Im Code ändere die 3letzte Zeile so ab dass es dann so asusiehr:


ende:
For n = 1 To anz
Cells(n, 1) = z(n)
Next n
...

Wobei das "ende:" auch weg kann wenn du den case else Teil entfernt hast.
Ansonsten, wenn du den Code verstehen willst um ihn später mal selbsständig anzupassen, dann Alt+F11, Doppelklick auf "Modul1" und den Cursor nacheinander auf alle Befehle stellen und dann F1 drücken, bzw im Hilfeindex nach den Befehlen suchen.
Gruß
Reinhard

Zufallszahlen mit festem Mittelwert

Forumthread: Zufallszahlen mit festem Mittelwert

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial