Zufallsgenerator

[kenshin3672]

morgen,
habe zu dem Zufallsgenerator mal ne frage:
Mir ist bekannt das sich der Zufallsgenerator von Delphi nach Uhrzeit und Datum richtet, aber wie genau entstehen die Startparameter des Randomize und vorallem ist es möglich den Zufallsgenerator zu beeinflussen bzw zu Manipulieren?
Würde mich über jede Antwort dazu freuen jeder Tipp/Hinweis willkommen, suche nämlich schon länger danach ohne wirklichen Erfolg..


In der Theorie gibt es keinen Unterschied zwischen Theorie und Praxis. In der Praxis schon.

[himitsu]

Schau mal in die OH.

Bei Random und Randomize wird z.B. auch RandSeed verlinkt sein.

RandSeed ist der Initialwert des Generators (bzw. daraus wird der nächste Zufallswert "berechnet")
und Randomize nimmt "aktuell" im Windows die Laufzeit des Systems (früher mal GetTickCount und derzeit QueryPerformanceCounter, weil es zuviele Idioten gab, die Randomize viel zu oft aufgerufen haben und sich dann wunderten, dass ständig der selbe Wert rauskommt)

Delphi-Quellcode:

// Was die Trotel praktisch immer gemacht hatten und da GetTickCount da oft genug den selben Wert liefer, kam auch mehrmals das Selbe bei Random raus
for i := 0 do 1000 do begin
  Randomize;
  MachWasMit(Random);
end;

Man kann also mit Random und dem selben Startwert "aktuell" immer wieder die selben Zahlenfolgen erzeugen,
aber wer denkt das sei immer so, der hat es verdient, wenn es knallt, sollte Emba irgendwann mal etwas am internen Generator ändern.

[kenshin3672]

oke top danke
weißt du zufällig wie man die Startwerte ändern kann? also meinetwegen statt der Systemlaufzeit die spezielle Temperatur des Prozessors nutzen kann?

weil ich habe als aufgabe zwei zufallsgeneratoren mit verschiedenen Startparametern zu vergleichen. Hänge halt gerade an der Beeinflussung und das grundverändernste ist es der Startwert der geändert wird (auch wenn es sich weiterhin nur um PseudoZufallszahlen handelt )

[Benedikt Magnus]

Zitat von kenshin3672:

oke top danke
weißt du zufällig wie man die Startwerte ändern kann? also meinetwegen statt der Systemlaufzeit meinetwegen die spezielle Temperatur des Prozessors nutzen kann?

weil ich habe als aufgabe zwei zufallsgeneratoren mit verschiedenen Startparametern zu vergleichen. Hänge halt gerade an der Beeinflussung und das grundverändernste ist es der Startwert der geändert wird (auch wenn es sich weiterhin nur um PseudoZufallszahlen handelt )

Das geht, indem du RandSeed manuell zuweist.

Da stellt sich mir die Frage, wie zufällig ist dieser Zufall, wenn man als Startparameter einen echten Zufallswert verwendet?

[kenshin3672]

naja aber wenn ich RandSeed einen dauerhaft gleichbleibenden Wert zuweise habe ich ja immer den selben Startwert also ziemlich sicher kein Zufallsgenerator mehr da ich den Algorithmus (theoretisch) nachvollziehen könnte.
Kann ich bei RandSeed auch einen wechselhaften Wert eintragen (wechselnde Temperatur etc.)?

[Neutral General]

Du kannst bei randseed eine Zahl angeben. Was diese Zahl für dich bedeutet ist dem Zufallsgenerator ziemlich egal

[kenshin3672]

naja eben nich. wenn ich bei RandSeed die Prozessertemp. angebe (die sich ja normalerweise ändert) habe ich ja auch unterschiedliche Startwerte für meinen Zufallsgenerator.
Frage: kann ich RandSeed folgendermaßen initalisieren?
RandSeed := prozessertemp (prozessertemp. wird mit hoher wahrscheinlichkeit anders formuliert ^^)

[kenshin3672]

Guten Tag,

im weiteren Verlauf der Programmierung würde ich jetzt gerne "beweisen" das ich RandSeed mit RandSeed := 1; zuweise.
also habe ich ein quellcode aus einem Forum (an der stelle nochmal danke) genutzt um den RandSeed aufzuspüren. Bei diesen quellcode gebe ich die ersten "Zufallszahlen" in ein array [0..32] und theoretisch sollte dann auch der RandSeed ausgerechnet werden.
Allerdings bekomme ich immer die fehlermeldung: Anzahl der Elemente ist von der Deklaration unterschiedlich.

Hier mal der Quellcode:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var T: TDateTime;
    C: Int64;
    S: Integer;
    W: Byte;
    H: Cardinal;
    F: Boolean;
const Start = - MaxInt;
ZF: Array[0..32] of Byte = (8, 1, 9, 1, 1, 8, 4, 0, 3, 9, 5, 0, 0, 2, 3, 1, 8, 9, 3, 7, 9, 6, 7, 6, 3, 8, 9, 5, 7, 1, 4, 7);
begin
//find start seed and "last" seed
T := Now;

RandSeed := Start;
C := 0;

repeat
  S := RandSeed;
  For H:=Low(ZF) to High(ZF) do
    begin
    W := Random(10);
    F := (W=ZF[H]);
    if not F then break;
    end;
  inc(C);
until
  (RandSeed=Start) or F;

T := Now - T;
Showmessage(  'Needed Time: ' + FormatDateTime('hh:nn:ss.zzz', T) +#13#10+
              'Needed Runs: ' + IntToStr(C) +#13#10 +
              'Last Seed: ' + IntToStr(RandSeed) +#13#10+
              'StartSeed: ' + IntToStr( S ) );
end; 

end.

Fehlermeldung erfolgt beim Array.
Mein Problem ist jetzt halt denkbar einfach die Fehlermeldung und die Tatsache das ich sie nicht wegbekomme :§ würde mich über Tipps freuen.


mit freundlichen Grüßen
kenshin3672

[bnreimer42]

Werte von 0 bis 32 währen nach meiner Berechnung 33 Werte.
In der Liste zähle ich 32.

[kenshin3672]

wenn das jetzt stimmt und alles behebt haste was verdient sitz da seit 2 tagen dran und versteh es nich