AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Dynamisches Array of Integer sortieren: welches Sortierverfahren???
Thema durchsuchen
Ansicht
Themen-Optionen

Dynamisches Array of Integer sortieren: welches Sortierverfahren???

Ein Thema von romber · begonnen am 5. Sep 2010 · letzter Beitrag vom 6. Sep 2010
Antwort Antwort
Seite 1 von 2  1 2      
romber

Registriert seit: 15. Apr 2004
Ort: Köln
1.167 Beiträge
 
Delphi 10 Seattle Professional
 
#1

AW: Dynamisches Array of Integer sortieren: welches Sortierverfahren???

  Alt 5. Sep 2010, 18:52
Vielen Dank für schnelle Raktionen!

Ich würde hier gar nichts implementieren sondern einfach folgendes aufrufen:
  TArray.Sort<Integer>(MyArray);
Ob diese Methode auch die schnellste ist? Mir geht's wirklich um Performance. Ich erhalte über eine Schnittstelle sehr viele serialisierte Daten, die ich mittels Lookup-Funktionen in lesbare Form konvertieren muss. Manchmal sind es über 200 Datensätze pro Sekunde. Deswegen mache ich mir Sorgen um Performance.

Ich arbeite mittlerweise mit Delphi 2010, muss also klappen. Was muss ich für TArray in uses deklarieren?
  Mit Zitat antworten Zitat
daywalker9

Registriert seit: 1. Jan 2010
Ort: Leer
594 Beiträge
 
Delphi XE3 Professional
 
#2

AW: Dynamisches Array of Integer sortieren: welches Sortierverfahren???

  Alt 5. Sep 2010, 19:22
uses Generics.Collections;
Lars
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#3

AW: Dynamisches Array of Integer sortieren: welches Sortierverfahren???

  Alt 5. Sep 2010, 20:02
Hallo romber,

bei kleinen Zahlenmengen werden die herkömmlichen Sortierverfahren wahrscheinlich schnell genug sein. Der folgende Code beschreibt einen anderen Ansatz für nahezu beliebig große Zahlenmengen mit beschränktem Wertebereich:
Delphi-Quellcode:
procedure Sort (var A: array of Integer);
const
  MINVALUE = 1;
  MAXVALUE = 128;
  ERRVALUE = 255;
var
  i, j, k: Integer;
  Counter: array [MINVALUE..MAXVALUE] of Integer;
begin
  FillChar (Counter, SizeOf(Counter), 0);

  for i in A do
    if (i >= MINVALUE) and (i <= MAXVALUE) then
      Inc (Counter[i]);

  k := 0;
  for i := Low(Counter) to High(Counter) do
    for j := 1 to Counter[i] do
      begin
        A[k] := i;
        Inc (k);
      end;

  for j := k to High(A) do
    A[j] := ERRVALUE;
end;
Gruß Hawkeye
  Mit Zitat antworten Zitat
Benutzerbild von rollstuhlfahrer
rollstuhlfahrer

Registriert seit: 1. Aug 2007
Ort: Ludwigshafen am Rhein
1.529 Beiträge
 
Delphi 7 Professional
 
#4

AW: Dynamisches Array of Integer sortieren: welches Sortierverfahren???

  Alt 5. Sep 2010, 20:19
also generell das allerschnellste Sortierverfahren, das es zur Zeit gibt und mir bekannt ist, ist QuickSort.
Delphi bringt auch Demos mit. Da ist eine Thread-Sortier-Demo dabei. Da könntest du mal schauen.
Da QuickSort rekursiv arbeitet, wird es etwas Performance schlucken. Wenn du den Stack nicht allzu stark belasten darfst, könnte MinSort (welches schneller ist als BubbleSort) auch zu gebrauchen sein.

Bernhard

EDIT: Noch was zur Performance: Array of Byte bei Zahlen unter 256 belegt 3 Byte weniger Speicherplatz pro Element
Bernhard
Iliacos intra muros peccatur et extra!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

AW: Dynamisches Array of Integer sortieren: welches Sortierverfahren???

  Alt 5. Sep 2010, 20:44
Warum müssen die Daten in "Echtzeit" verarbeitet werden? Für so was eignet sich ein Threadpool, dann kann die Abarbeitung auch mal länger dauern, ohne dass du Probleme bekommst, wenn wieder Daten eintreffen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.643 Beiträge
 
Delphi 12 Athens
 
#6

AW: Dynamisches Array of Integer sortieren: welches Sortierverfahren???

  Alt 5. Sep 2010, 21:11
also generell das allerschnellste Sortierverfahren, das es zur Zeit gibt und mir bekannt ist, ist QuickSort.
TArray.Sort benutzt QuickSort.

Noch was zur Performance: Array of Byte bei Zahlen unter 256 belegt 3 Byte weniger Speicherplatz pro Element
Ist aber durch die 32-Bit Prozessor-Architektur langsamer im Zugriff als array of Integer.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#7

AW: Dynamisches Array of Integer sortieren: welches Sortierverfahren???

  Alt 5. Sep 2010, 21:21
also generell das allerschnellste Sortierverfahren, das es zur Zeit gibt und mir bekannt ist, ist QuickSort.
Delphi bringt auch Demos mit. Da ist eine Thread-Sortier-Demo dabei. Da könntest du mal schauen.
Da QuickSort rekursiv arbeitet, wird es etwas Performance schlucken. Wenn du den Stack nicht allzu stark belasten darfst, könnte MinSort (welches schneller ist als BubbleSort) auch zu gebrauchen sein.

Bernhard

EDIT: Noch was zur Performance: Array of Byte bei Zahlen unter 256 belegt 3 Byte weniger Speicherplatz pro Element
Häh
Was ist dann mit ShellSort? Ich dachte mir, dass ShellSort die schnellste Methode zum Sortieren ist! Ist sie dir bekannt?

MfG
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#8

AW: Dynamisches Array of Integer sortieren: welches Sortierverfahren???

  Alt 5. Sep 2010, 22:15
Also meines Wissens ist ShellSort deutlich langsamer als QuickSort.

Bei langsamen Zugriff auf die Elemente (z.B. direktes sortieren einer Datei) ist MergeSort oder InsertionQuickSort besser.

Noch einen Hauch besser als QuickSort soll RadixSort sein (das ich aber nie verstanden habe). Ich glaube Alzaimar hat sowas mit der SkipList umgesetzt (habe ich aber auch nie ganz verstanden).


PS: Anlage ein altes Vergleichsprogramm, nicht schön aber war mir ganz hilfreich...

PPS: Wo das alte Programm so schön ins Clipboard kopiert:

3692 ms für 10000 String-Elemente mit Bubble-Sort
1086 ms für 10000 String-Elemente mit Selection-Sort
947 ms für 10000 String-Elemente mit Insertion-Sort
16 ms für 10000 String-Elemente mit Intro-Sort
11 ms für 10000 String-Elemente mit ShellSort
5 ms für 10000 String-Elemente mit Quick-Sort (rekursiv, kompakt)
Angehängte Dateien
Dateityp: zip SortierVergleich.zip (13,8 KB, 16x aufgerufen)

Geändert von Satty67 ( 5. Sep 2010 um 22:38 Uhr)
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.688 Beiträge
 
Delphi 2007 Enterprise
 
#9

AW: Dynamisches Array of Integer sortieren: welches Sortierverfahren???

  Alt 5. Sep 2010, 22:51
Dat Dingen ist, dass QuickSort im ganz allgemeinen Fall zu den schnellsten gehört, bzw. im Mittel die untere Grenze darstellt. Sobald man aber im Vorfeld Annahmen treffen kann, sind andere Verfahren ggf. im Vorteil. Dabei wäre zu beachten: Ungefähre Verteilung der Sortierkriterien im Array, Art und Stärken/Schwächen der Speicherung, Anzahl der Elemente, möglicherweise (Teil-)Vorsortierte Bereiche, etc. pp.
Es gibt für viele Spezialfälle in denen Annahmen zutreffen Verfahren, die Quicksort alt aussehen lassen, im komplett "ungewissen" Fall ist es im Mittel aber nach wie vor eine prima Sache. So lange du also keine konkreteren Eingrenzungen machen kannst, ist das bereits in Delphi implementierte Sortieren schon ziemlich gut.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.100 Beiträge
 
Delphi XE2 Professional
 
#10

AW: Dynamisches Array of Integer sortieren: welches Sortierverfahren???

  Alt 6. Sep 2010, 03:33
Also meines Wissens ist ShellSort deutlich langsamer als QuickSort.

Bei langsamen Zugriff auf die Elemente (z.B. direktes sortieren einer Datei) ist MergeSort oder InsertionQuickSort besser.

Noch einen Hauch besser als QuickSort soll RadixSort sein (das ich aber nie verstanden habe). Ich glaube Alzaimar hat sowas mit der SkipList umgesetzt (habe ich aber auch nie ganz verstanden).


PS: Anlage ein altes Vergleichsprogramm, nicht schön aber war mir ganz hilfreich...

PPS: Wo das alte Programm so schön ins Clipboard kopiert:

3692 ms für 10000 String-Elemente mit Bubble-Sort
1086 ms für 10000 String-Elemente mit Selection-Sort
947 ms für 10000 String-Elemente mit Insertion-Sort
16 ms für 10000 String-Elemente mit Intro-Sort
11 ms für 10000 String-Elemente mit ShellSort
5 ms für 10000 String-Elemente mit Quick-Sort (rekursiv, kompakt)
Ja, bei 10000 String-Elementen dürfte Quick-Sort das, mit Abstand, schnellste Verfahren sein.

Aber romber fragte nicht nach einem Algo für 10000 Elemente sondern für 20 bis 25 und er will auch nicht Strings sortieren sondern Integer-Werte.
Und da sieht Quicksort nicht mehr so deutlich besser sondern gelegentlich deutlich schlechter, als zum Beispiel Bubblesort (hängt davon ab, wie die Daten bisher sortiert sind).
Wie himitsu schon andeutete : Ein simples Bubblesort dürfte am sinnvollsten sein.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:10 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz