Meine Shuffle function

zusammenfalten · markieren

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

Zitat von EWeiss:

Meine Shuffle function

zusammenfalten · markieren

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

markieren

Delphi-Quellcode:

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

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.

markieren

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.

zusammenfalten · markieren

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

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.

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

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

Eventuell wäre das ein Ansatz: http://michael-puff.de/Programmierun...erZufall.shtml

Zitat von Luckie:

Eventuell wäre das ein Ansatz: http://michael-puff.de/Programmierun...erZufall.shtml

Danke werde ich mir mal anschauen..

Zitat:

Muss man dafür auch nicht sein Beispiel-Implementierungen gibt es

Auch dir ein Danke schön.

gruss

Hallo EWeiss,

vielleicht nicht die eleganteste Art und Weise, aber gut nachzuvollziehen. So als Gedenkstütze in Pseudocode. Das Prinzip sollte klar sein...

zusammenfalten · markieren

Delphi-Quellcode:

var PlayList : TObjectList<SongItems>
    PlayListShuffled : TObjectList<SongItems>
    CurrentIdx : Integer;
    i : Integer;

begin

[...]

for i := 0 to PlayList.Count-1 do begin
  CurrentIdx := Random(PlayList.Count-1);

  PlayListShuffled.AddItem(PlayList[CurrentIdx]);
  PlayList.Delete(CurrentIdx);
end;

[...]

Viel Erfolg.

Zitat von scrat1979:

Hallo EWeiss,

vielleicht nicht die eleganteste Art und Weise, aber gut nachzuvollziehen. So als Gedenkstütze in Pseudocode. Das Prinzip sollte klar sein...

zusammenfalten · markieren

Delphi-Quellcode:

var PlayList : TObjectList<SongItems>
    PlayListShuffled : TObjectList<SongItems>
    CurrentIdx : Integer;
    i : Integer;

begin

[...]

for i := 0 to PlayList.Count-1 do begin
  CurrentIdx := Random(PlayList.Count-1);

  PlayListShuffled.AddItem(PlayList[CurrentIdx]);
  PlayList.Delete(CurrentIdx);
end;

[...]

Viel Erfolg.

Jo ist klar frage mich nur wie lange das dauert bei einer liste mit mehr als 5000 Einträgen..
Muss es testen .. Danke schön für deinen Beitrag.. jetzt kann ich alle varianten testen

gruss