Zufallsgenerator

[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.)?

[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.