Shuffle algo

[EWeiss]

Meine Shuffle function

Delphi-Quellcode:

{$REGION 'function ListShuffle'}

function TBassPlayer.ListShuffle(LView: ISkinListView): Integer;
var
  Inx: Integer;
  RandomInx: Integer;
  RandomIndex: Integer;
  ListCount: Integer;
begin
  RandomIndex := 0;
  result := 0;

  ListCount := LView.Count(LView.Handle);

  for Inx := 0 to ListCount - 1 do
  begin
    begin
      RandomInx := Random(ListCount);
      if (RandomInx <> Inx) then
        RandomIndex := RandomInx;
    end;
    if RandomIndex = LView.GetCurSel(LView.Handle) then
      RandomIndex := RandomIndex + 1;

    result := RandomIndex;
  end;
end;
{$ENDREGION}

Wie kann man diesen verbessern so das nicht so oft immer wieder der 1 Listeintrag abgespielt wird?
Heino nervt langsam..

gruss

[peterbelow]

Zitat von EWeiss:

Meine Shuffle function

Delphi-Quellcode:

{$REGION 'function ListShuffle'}

function TBassPlayer.ListShuffle(LView: ISkinListView): Integer;
var
  Inx: Integer;
  RandomInx: Integer;
  RandomIndex: Integer;
  ListCount: Integer;
begin
  RandomIndex := 0;
  result := 0;

  ListCount := LView.Count(LView.Handle);

  for Inx := 0 to ListCount - 1 do
  begin
    begin
      RandomInx := Random(ListCount);
      if (RandomInx <> Inx) then
        RandomIndex := RandomInx;
    end;
    if RandomIndex = LView.GetCurSel(LView.Handle) then
      RandomIndex := RandomIndex + 1;

    result := RandomIndex;
  end;
end;
{$ENDREGION}

Wie kann man diesen verbessern so das nicht so oft immer wieder der 1 Listeintrag abgespielt wird?
Heino nervt langsam..

gruss

Du machst das viel zu kompliziert. Dein Algorithmus shuffled nichts, das würde ja bedeuten, das er die Reihenfolge der Items in der Liste willkürlich verändert. Das scheint aber nicht die Absicht zu sein. Wenn Du nur einen der Einträge zufällig auswählen willst ist die for-Schleife völlig unsinnig, sorry. Alles was Du braucht ist

Delphi-Quellcode:

  RandomInx := Random(ListCount);
  if (RandomInx <> Inx) then begin
      result := RandomInx;
    exit;
  end;

[EWeiss]

Zitat:

Dein Algorithmus shuffled nichts, das würde ja bedeuten, das er die Reihenfolge der Items in der Liste willkürlich verändert. Das scheint aber nicht die Absicht zu sein.

Doch das ist die Absicht.
Muss mir das noch mal anschauen.
Der Witz an meiner schleife ist dieser das einmal der Index und zusätzlich die gesamte Liste geändert werden soll
um eine höhere Wahrscheinlichkeit zu haben das sich die Einträge nicht widerholen.

So rufe ich sie auf.

Delphi-Quellcode:

      
gG.ShuffelIndex := BassPlayer.ListShuffle(LVPlayFav);
LVPlayFav.ListViewSelect(LVPlayFav.Handle, gG.ShuffelIndex);

Mein Problem ist das der 1 Eintrag zu oft aufgerufen wird.

PS:
So sollte das sein.

Delphi-Quellcode:

function TBassPlayer.ListShuffle(LView: ISkinListView): Integer;
var
  Inx: Integer;
  RandomInx: Integer;
  RandomIndex: Integer;
  ListCount: Integer;
begin
  RandomIndex := 0;
  result := 0;

  ListCount := LView.Count(LView.Handle);

  for Inx := 0 to ListCount - 1 do
  begin
    begin
      RandomInx := Random(ListCount);
      if (RandomInx <> Inx) then
      begin
        RandomIndex := RandomInx;
        LView.SetTopItem(LView.Handle, RandomIndex)
      end;
    end;
    if RandomIndex = LView.GetCurSel(LView.Handle) then
    begin
      RandomIndex := RandomIndex + 1;
      LView.SetTopItem(LView.Handle, RandomIndex);
    end;

    result := RandomIndex;
  end;
end;

Muss mal sehen ob das ausreicht.

gruss

[jfheins]

Wenn das die Absicht ist, empfehle ich dir das Fisher-Yates-Verfahren: https://de.wikipedia.org/wiki/Zufäll...ates-Verfahren

Das lässt sich leicht auch falsch implementieren (Beachte, ob die Zufallszahlen inklusive oder exklusive der Grenze sind!) liefert aber mit einer guten Zufallsquelle eine völlig zufällige Permutation.

Wenn das Random() mittels Random(maxint) modulo n für ein beliebiges n errechnet wird, hast du jedoch bereits eine leichte Ungleichverteilung.

[EWeiss]

Zitat von jfheins:

Wenn das die Absicht ist, empfehle ich dir das Fisher-Yates-Verfahren: https://de.wikipedia.org/wiki/Zufäll...ates-Verfahren

Das lässt sich leicht auch falsch implementieren (Beachte, ob die Zufallszahlen inklusive oder exklusive der Grenze sind!) liefert aber mit einer guten Zufallsquelle eine völlig zufällige Permutation.

Wenn das Random() mittels Random(maxint) modulo n für ein beliebiges n errechnet wird, hast du jedoch bereits eine leichte Ungleichverteilung.

Beispiel wie ich das am einfachsten umsetzen kann ?
Sorry bin kein Mathematiker.

Und ja die Liste soll verändert werden das erhöht den Zufallsgenerator.

gruss

[jfheins]

Zitat von EWeiss:

Beispiel wie ich das am einfachsten umsetzen kann ?
Sorry bin kein Mathematiker.

Muss man dafür auch nicht sein Beispiel-Implementierungen gibt es hier oder dort drüben

Zitat:

Und ja die Liste soll verändert werden das erhöht den Zufallsgenerator.

Hä? Also mehrfaches mischen bringt nicht mehr als einfaches mischen....

VG
J