Randomize-Chaos

[Namenloser]

Das habe ich mir auch schon oft gewünscht... aber ich denke es ist einfach aus Gründen der Abwärtskompatiblität so. Genau wie dass bei Strings der erste Index 1 ist und vieles andere...

Manchmal denke ich mir, es wäre doch schön, die Sprache mal zu entrümpeln bzw. einen Neuanfang zu machen. Aber das wird wohl nicht passieren, denn dann würde Delphi wohl völlig obsolet, da es ja ohnehin schon einige moderne, schöne Sprachen gibt, die noch nicht so viel Ballast haben, und weiter verbreitet sind.

Btw: Wieso ein Record und keine Klasse? Muss heutzutage denn immer alles ein Record sein?

[Popov]

Na ja, ich muß allerdings auch zugeben, dass ich nicht selten in einem Programm mit Zufallszahlen gearbeitet habe, wo es mir durchaus in den Kram paßte, dass es immer dir gleichen Zufallszahlen waren, da ich auf diese Weise den gleichen Ablauf hatte und so bewußt auf Fehler reagieren konnte. Wenn ich z. B. bei einem Spiel einen Fehler bei einem bestimmten Ablauf habe, dann habe ich ihn immer, auch wenn ich das Programm 50 mal starte. Ich weiß dann genau wann der Fehler kommt. Stimmt alles und es gibt keine Fehler, wird dann mit richtigen Zufallszahlen gearbeitet.

Ich glaube also nicht, dass es ein alter Bug ist.

Und die 0 bei der Index, warum nicht, warum ein Wert verschwenden.

[himitsu]

Zitat von NamenLozer:

Btw: Wieso ein Record und keine Klasse? Muss heutzutage denn immer alles ein Record sein?

Nja, im Prinzip besteht aktuelle alles aus einem Integer (RandSeed) und aus ein paar Funktionen, wenn man das alles direkt zusammenmanscht, dann kommt eben ein Record raus.
Dann gibt es für Records noch die Operatoren, womit man eine implizite und explizite Integerzuweisung hinbekommt. RandSeed wird dann zum Record und man kann immernoch RandSeed := 123456; machen.

Und in der Unit System darf noch kein Speicher über den MemoryManager reserviert werden, denn sonst könnte der Programmierer später keinen eigenen MM laden, womit eine Klasse also wegfällt.

Für die Abwärtskompatibilität könnte man die "alten" Funktionen ja auf die Record-Methoden umleiten und die Randomize-Prozedur einfach leer (ohne Funktion) lassen.

[Furtbichler]

Also das der PRNG ohne Zutun immer die gleichen Zahlen liefert, ist so gewollt.
Bei Strings würde ich mal sagen, das es irgendwie logisch ist, wenn ich auf S[1] zugreife, um das 1.Element einer Zeichenkette zu bekommen.

Bei Arrarys ist es etwas anders, denn dort ist die Nomenklatur aus der Mathematik i.a. so, das x_0 das erste Element einer Reihe ist.

In den 70er Jahren war das so üblich. Meine ersten Programmiererfahrungen habe ich auch mit Arrays gemacht, die bei 1 anfangen. Wobei die Programmiersprache schon die Möglichkeit bot, 0-basierte Arrays zu deklarieren. Das war eine Option, die für das gesamte Programm galt und in der ersten zeile stehen musste.

So, und wer denn per se immer andere Pseudozufallszahlen haben will, der nimmt i.a. sowieso einen richtigen PRNG und nicht dieses G'lump von Delphi.

[Popov]

Zitat von Furtbichler:

So, und wer denn per se immer andere Pseudozufallszahlen haben will, der nimmt i.a. sowieso einen richtigen PRNG und nicht dieses G'lump von Delphi.

Was verstehst du denn unter richtigen Zufallszahlen? Bist du nicht der Meinung, dass Delphi Zufallszahlen liefert?

Wobei, ich hatte mal zwei Probleme mit Zufallszahlen. Einmal wollte ich eine Explosion darstellen. Das Objekt zerfiel in über 1000 Teile, aber immer mit einem schönen Muster. Das ergab sich aus der gleichen Verteilung der Zufallszahlen. Die Explosion hatte eine in der Natur unnatürliche gleiche Verteilung.

Für eine andere Gelegenheit hatte ich einen eigenen Zufallsgenerator geprogt, der sehr zufällig war. Der neigte wiederum dazu so unzuverlässig alles zu verteilen, dass ich wieder die Delphifunktion nutzte.

Was sind also richtige Zufallszahlen?

[Furtbichler]

Richtige Zufallszahlen (und die meine ich nicht) entstehen durch ein stochastisches Muster aus der Natur, siehe hier.

PRN, also Pseudozufallszahlen, sind Ergebnisse einer mathematischen Gleichung bzw. Funktion und haben den Anschein, als seien sie zufällig. In Wirklichkeit wiederholen sie sich aber, was deine Muster erklären könnte (

Gute PRNG haben neben einer sehr langen Periode noch andere Eigenschaften, die sie für statistische Verfahren geeigneter erscheinen lassen, als der doch recht einfache Delphi-PRNG.

Nachzulesen bei Wiki & Co

[Coder]

Zitat von Popov:

Zitat von Furtbichler:

So, und wer denn per se immer andere Pseudozufallszahlen haben will, der nimmt i.a. sowieso einen richtigen PRNG und nicht dieses G'lump von Delphi.

[...]
Was sind also richtige Zufallszahlen?

ich dachte, das mit den Zufalls- und Pseudzufallszahlen hätten Hagen und andere schon vor Jahren erklärt.

Zufallszahlen = nur durch etwa gemessenen radioaktiven Zerfall

Pseudozufallszahlen = durch eine Formel; immer wieder reproduzierbar; z.B: kann man auch RC4 zur Erzeugung von Pseudozufallszahlen verwenden.


Aber dies ist sicherlich auch vielen schon bekannt. Entschuldigung.

[Coder]

Popov, ich hab Deinen Code mal in ein Programm umgesetzt.

angehängt das Programm und hier ein Video
nach dem 15.ten Durchgang sind dann in einem kleinen fast 800x600 Feld alle Pixel besetzt.

Tatsächlich sind mir aber Bereiche aufgefallen, die immer wieder bevorzugt besetzt werden.


Video, 1280x800, h264, avi (hab momentan kein avidemux, zum in anderen Container [z.B. mp4] reinpacken, sorry)
http://www.mediafire.com/?0xc6af4zaiaiccr
2,6 MB

Wäre natürlich klasse, wenn das jemand mit Scanline umsetzen könnte ? (schneller?)

[Namenloser]

Zitat von himitsu:

Zitat von NamenLozer:

Btw: Wieso ein Record und keine Klasse? Muss heutzutage denn immer alles ein Record sein?

Nja, im Prinzip besteht aktuelle alles aus einem Integer (RandSeed) und aus ein paar Funktionen, wenn man das alles direkt zusammenmanscht, dann kommt eben ein Record raus.
Dann gibt es für Records noch die Operatoren, womit man eine implizite und explizite Integerzuweisung hinbekommt. RandSeed wird dann zum Record und man kann immernoch RandSeed := 123456; machen.

Verstehe, aber ich fände es nicht sehr intuitiv, wenn man einer Variable einen Wert zuweist, und wenn man ihn ausliest was völlig anderes herauskommt...

Du meinst ja sowas, oder?

Delphi-Quellcode:

Random := 123456;
writeln(Random); // nicht 123456 sondern irgendwas anderes

Eine Klasse hätte außerdem den Vorteil, dass man den RNG überschreiben könnte.

Delphi-Quellcode:

type
  TRNG = class
    function Random: integer; virtual; abstract;
  end;

  TRNGClass = class of TRNG;

  TRNGDefault = class(TRNG)
  protected
    RandSeed: integer;
  public
    function Random: integer; override;
    constructor Create;
  end;

function Random: integer;
procedure SetRNG(NewRNGClass: TRNGClass);

implementation

var
  RNGInstance: TRNG;

function Random: integer;
begin
  Result := RNGInstance.Random;
end;

procedure SetRNG(NewRNGClass: TRNGClass);
begin
  // So wird der RandSeed nicht jedes mal zurückgesetzt wenn irgendein Dödel
  // SetRNG mehrfach aufruft
  if RNGInstance.ClassType <> NewRNGClass then
  begin
    RNGInstance.Free;
    RNGInstance := NewRNGClass.Create;
  end;
end;

constructor TRNGDefault.Create;
begin
  // RandSeed initialisieren
end;

initialization
  SetRNG(TRNGDefault);

Wenn man z.B. deterministische Zufallszahlen braucht, kann man einfach eine eigene Klasse ableiten, und die dann entweder mit SetRNG() global setzen, oder – besser – eine eigene Instanz davon anlegen (da man ja bei so globalem Zeug nicht sicher sein kann, dass es nicht noch irgendwo anders verwendet wird).

@Popov: Nach meiner Erfahrung liefert Random schlechte Ergebnisse, wenn man mit einem RandSeed von 0 anfängt. Man kann natürlich irgendeinen anderen konstanten Wert zur Initialisierung nehmen, aber initialisieren sollte man auf jeden Fall.

[gammatester]

Zitat von NamenLozer:

@Popov: Nach meiner Erfahrung liefert Random schlechte Ergebnisse, wenn man mit einem RandSeed von 0 anfängt. Man kann natürlich irgendeinen anderen konstanten Wert zur Initialisierung nehmen, aber initialisieren sollte man auf jeden Fall.

Was sollen denn das für Erfahrungen sein? Random durchläuft immer die gleiche 32-Bit Sequenz, randseed wählt nur den Einstiegspunkt in die Sequenz.