Zufallszahlen mit festem Mittelwert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Option Base 1 Sub tt() anz = 150 w = 6 ReDim z(anz) As Integer For n = 1 To anz z(n) = Int((anz * Rnd) + 1) x = x + z(n) Next n faktor = (x / anz >= w) * 2 - 1 While (x / anz) <> w t = Int((anz * Rnd) + 1) Select Case x / anz Case Is > 6 z(t) = z(t) - 1 x = x + -1 Case Is < 6 z(t) = z(t) + 1 x = x + 1 Case Else GoTo ende End Select Wend ende: For n = 1 To anz MsgBox z(n) Next n MsgBox x / anz End Sub

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

Option Base 1 Sub tt() Application.ScreenUpdating = True anz = 150 w = 6 ReDim z(anz) As Integer For n = 1 To anz z(n) = Int((10 * Rnd) + 1) x = x + z(n) Next n While (x / anz) <> w t = Int((anz * Rnd) + 1) If z(t) > 1 And z(t) < 10 Then Select Case x / anz Case Is > 6 z(t) = z(t) - 1 x = x + -1 Case Is < 6 z(t) = z(t) + 1 x = x + 1 End Select End If Wend For n = 1 To anz Cells(n, 1) = z(n) Next n Application.ScreenUpdating = False End Sub

Beliebteste Forumthreads (12 Monate)

Zufallszahlen mit festem Mittelwert

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

114 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zufallszahlen mit festem Mittelwert

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

114 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread