Zufallszahlenalgorithmus

[Codewalker]

Ich bin auf der Suche nach ein paar Informationen, nach welchem Algorithmus Delphi mit der Funktion Random Zufallszahlen erzeugt. Dass es ein deterministisches Pseudo-Zufallszahl-Verfahren ist, hab ich noch relativ leicht rausbekommen (gleicher RandSeed --> gleiche Zufallszahlen in gleicher Reihenfolge). Die Delphi-Hilfe gibt leider auch nicht allzu viel Info her. Weiß jemand etwas mehr darüber?

[gammatester]

Effektiv wird bei jedem Aufruf von random etc RandSeed := $08088405*RandSeed + 1; berechnet (in 32-Bit-Arithmetik).

[Codewalker]

Zitat:

Zitat von gammatester (Beitrag 1034482)

Effektiv wird bei jedem Aufruf von random etc RandSeed := $08088405*RandSeed + 1; berechnet (in 32-Bit-Arithmetik).

Das ist doch schonmal was (woher auch immer du das hast :wink:). Jetzt fehlt nur doch der Schritt, der die eigentliche Zufallszahl ausspuckt. Kannst du auch noch aushelfen?

[blackfin]

Die Funktion Random steht doch als ASM-Quelltext in der Unit System?...

[himitsu]

Zitat:

Zitat von Codewalker (Beitrag 1034484)

(woher auch immer du das hast :wink:)

schau mal in deine System-Unit (system.pas) da findest du den Algorithmus.
(gut, auch wenn es da als Assembler dasteht)

Zitat:

Jetzt fehlt nur doch der Schritt, der die eigentliche Zufallszahl ausspuckt.

Wie gesagt ... schau einfach mal nach.

Dieser Zufallswert wird als als 0..MaxInt behandelt und dann auf 0..(x-1) runterskaliert.

[edit]
@blackfin: zustimm

[Codewalker]

Zitat:

Zitat von blackfin (Beitrag 1034487)

Die Funktion Random steht doch als ASM-Quelltext in der Unit System?...

Gott wie peinlich. Ich bin schon fast fest davon ausgegangen eh nur auf der Platzhalterzeile in der Systems.pas zu landen und hab es gar nicht ausprobiert. Dann werde ich mal mein Assembler entstauben müssen.
Danke :thumb:

[gammatester]

Aus der RTL. Der andere Teil ist etwas kitzliger, hier ein Äquivalent für Delhis mit int64. In der RTL wird Assembler benutzt. Man nimmt die höheren Bits, weil die zufälliger sind.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b: longint;
const
  ARange = 100000;
begin
  a := random(ARange);
  b := (int64(ARange) * RandSeed) shr 32;
  if b<0 then b := b+ARange;
  button1.Caption := InttoHex(a,8) + ' / ' + IntToHex(b,8);
end;