Monopoly-Simulator

[Horst_]

Hallo,

Zitat:

Die Simulationsergebnisse können jetzt zusätzlich nach "Farben" gruppiert werden. Dadurch kann man erkennen, wie Wahrscheinlich das Landen auf mindestens einem der zusammengehörigen Felder ist.

ich dachte man macht eine Simulation und kann zwischen den beiden Ansichten auswählen, da die Daten ja vorhanden, nur anders zusammengefasst werden müssen.

Das Mischen ist immer noch seltsam.Es werden jetzt n-fach per Zufallsindex
benachbarte Karten getauscht.
Aus http://www.delphipraxis.net/1018077-post1.html

Delphi-Quellcode:

// Mischen nach Fisher-Yates
   for i := Low(FNumberList) to High(FNumberList) do begin
     j := i + Random(Length(FNumberList) - i);
     tmp := FNumberList[j];
     FNumberList[j] := FNumberList[i];
     FNumberList[i] := tmp;
   end;

Das Bunte kommt gut

Gruß Horst