Ergebnis der Suchanfrage

• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Random: Delphi vs. Lazarus?

    Delphi
    by Gutelo, 31. Jan 2014
  Namenloser,
  
  wenn du moechtest kannst du mal folgendes ausprobieren:
  
  1) Lasse dir ein paar Millionen Lottotips generieren fuer Lotto 6 aus 49
  2) Danach erstelle eine Statistik fuer die Zahlen 1 bis 49 an welcher Stelle die Zahl in jedem Tipp vorkommt. Plotte die resultierenden sechs Hauefigkeitskurven (erste Stelle, zweite Stelle, ...) ueber die Zahlen 1 bis 49.
  
  Wenn du das einmal mit...
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Random: Delphi vs. Lazarus?

    Delphi
    by Gutelo, 31. Jan 2014
  Dass das erste if keinen Sinn macht gebe ich dir Recht. Ist ein Relikt einer vorherigen Implementation in der das 1+ nicht im Trunc war. Aendert aber nichts an der Funktionalitaet.
  
  Bezueglich des zweiten ifs: Auch dieser Einwand ist richtig. Allerdings ist der Einfluss sehr gering und die resultierenden statitischen Verteilungen sind vielfach besser als bei Random. Wenn jemand eine Idee hat...
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Random: Delphi vs. Lazarus?

    Delphi
    by Gutelo, 30. Jan 2014
  Zwar abenteuerlich, aber liefert wenigstens halbwegs zufallsaehnliche Zahlen waehrend Random mit Randomize immer identische Abfolgen generiert...
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Random: Delphi vs. Lazarus?

    Delphi
    by Gutelo, 30. Jan 2014
  Als Alternative zu Random kannst du auch die GUID von Windows verwenden. Nach meinen Erfahrungen sind die resultierenden Zufallswerte recht gut und liefern auch eine brauchbare Statistik. Hier ein Beispiel:
  
  
  // get random number via GUID
  function random_GUID(n : integer) : integer;
  var Guid : TGUID;
  num : integer;
  begin
  CreateGUID(Guid);
  num := Trunc(1 + (n*(Guid.D2/65535)));