Gibt es ein Schnelleres verfahren als Min?

[Hallo_Thomas]

Ich hab ein Programm in der so eine Zeile 1000 mal durchlaufen wird, da ich immer nur das Minimum brauche. Gibt es ein Verfahren welches für Variablen schneller ist als dieses?

Delphi-Quellcode:

Counter[145]:= Min(Counter[48],Min(Counter[50],Counter[52]));

edit:Weis jemand wieviel Ms dieser Durchlauf benötigt?

[simonko]

was machst du denn genau?

[leddl]

Denk mal genau nach. Was wird min denn machen? Wahrscheinlich vergleicht das die beiden Werte und gibt den kleineren zurück. Wie willst du das noch beschleunigen? Du brauchst eben für n zu vergleichende Werte genau n-1 Vergleiche.

[Pr0g]

Du scheinst ja mit Arrays zu arbeiten, dann könnte die Funktion MinIntValue() was für dich sein. Die gibt den kleinsten Wert aus einem Array of Integer zurück. Obs schneller ist weiß ich aber nicht.

MfG Pr0g

[Robert_G]

Zitat:

Zitat von leddl

Denk mal genau nach. Was wird min denn machen? Wahrscheinlich vergleicht das die beiden Werte und gibt den kleineren zurück. Wie willst du das noch beschleunigen?

es macht nix weiter als:

Delphi-Quellcode:

if left < right then
  result := left
else
  result := right;

Du könntest es inline schreiben um die Sprünge loszuwerden, sonst sehe ich da nicht viele einfache Möglichkeiten für Optimierungen.
Vielleicht ist es möglich dein Programm anders zu strukturieren wodurch so viele Vergleich unnötig werden könnten.
Das weißt aber du selbst am besten, schließlich wissen wir nicht wie dein Programm aussieht, noch was es erreichen soll... ;)

[leddl]

Zitat:

Zitat von Robert_G

es macht nix weiter als:

Delphi-Quellcode:

if left < right then
  result := left
else
  result := right;

Na ich bin doch mal davon ausgegangen, daß er sich das denken kann. ;)

Zitat:

Zitat von Robert_G

Das weißt aber du selbst am besten, schließlich wissen wir nicht wie dein Programm aussieht, noch was es erreichen soll... ;)

Doch, er hat den betreffenden Quellcode in nem anderen Thread bereits gepostet. ;)

//Edit: Tags richtig gesetzt :mrgreen:

[Hallo_Thomas]

Delphi-Quellcode:

procedure TForm1.AddMyItem(const AItem: String; const AColor: TColor); 
var 
  x,y,i           : Integer; 
  Counter            : array[0..200] of Integer; 
begin 
  DoubleBuffered := True; 
  Anzeige.Items.InsertObject(0, AItem, Pointer(AColor)); 
for i := 0 to 200 do 
  for y := 0 to 144 do 
  begin 
    Counter[i] := 0; 
    Feld[i] := 0; 
  end; 
  // Hier beginnen die Berechnungen 
  for x := meineListe.count - 1 downto 0 do 
  for y := 0 to 144 do  // Mit jedem SetOfByte vergleichen 
  begin 
    if (StrToInt(meineListe.Strings[x]) in werte[y]) then 
    begin 
        Counter[y] := 0 
    end 
    else 
    begin 
      Inc(Counter[y]); 
    end; 
  end; 
  ////////Hier beginnt Sortierverfahren 
  begin 
      Counter[145]:= Min(Counter[48],Min(Counter[50],Counter[52])); 
  end;///.... Berechnungen gehen hier Weiter.....

[Hallo_Thomas]

Weis jemand wie schnell dieser Befehl ganz oben dauert in Ms?



Mein Hauptproblem liegt darin, dass ich dieses Procedur für Tchart brauche, da sollen dann wür jeden Counter(es kommen einige dazu)dieser Quellcode durchlaufen, und zwar dann pro Item 1 .mal. Er sollte schon mind. im 5.Stelligen bereich arbeiten.

[leddl]

Zitat:

Zitat von Hallo_Thomas

Weis jemand wie schnell dieser Befehl ganz oben dauert in Ms?

Das hängt vom PC ab (wobei bei dem bißchen eigentlich keine großen Unterschiede rauskommen sollten). Aber was hindert dich daran, es selbst auszuprobieren? :gruebel:

[Sharky]

Hai "Hallo_Thomas",

unabhängig von deiner Frage:

Delphi-Quellcode:

  
...
for x := meineListe.count - 1 downto 0 do 
  for y := 0 to 144 do  // Mit jedem SetOfByte vergleichen 
  begin 
    if (StrToInt(meineListe.Strings[x]) in werte[y]) then 
    begin 
...

Du wandelst hier bei für jeden X-Durchlauf 144 mal meineListe.Strings[x] in einen Integer um. Arbeite doch lieber mit einer Hilfsvariablen und mache die Umwandlung nur einmal.