Function für Vorzeichen?

[Jürgen Thomas]

Zitat von Cöster:

@ 3_of_8:
Kann es sein, dass es sign auf delphi 5 noch nicht gibt?

@ Luckie:
Ich brauch nicht ne Funktion, die mir sagt, ob die Zahl positiv ist, sondern eine, die mir das Vorzeichen zurückliefert (also 1 oder -1). Sonst könnte ich ja auch ne If-Abfrage machen.

Wenn Du mit allen Vorschlägen - vor allem der konsequenten Lösung von 3_of_8 - nicht zufrieden bist, dann schreib Dir doch Deine Funktion selbst:

Delphi-Quellcode:

function Vorzeichen( const dValue: double ): integer;
begin
  if dValue >= 0 then
  begin
    if dValue = 0
    then Result := 0
    else Result := 1;
  end
  else Result := -1;
end;

Gruß Jürgen

[Cöster]

Dann kann ich's eigentlich auch mit Abs(Value)/Value machen. Ich dachte, da gäb's vielleicht ne fertige Funktion für, aber die selber zu schreiben (sign kennt mein delphi nicht) führt ja nur zu zusätzlichen Codezeilen. Oder hat meine Variante irgendwelche nachteile? (wenn Value 0 ist, wird der Code sowieso nicht aufgerufen, es würde also nicht durch 0 geteilt)

[Jürgen Thomas]

Zitat von Cöster:

Dann kann ich's eigentlich auch mit Abs(Value)/Value machen.

Ich glaube nicht, dass der Compiler diese Funktion so gut optimiert wird und merkt, dass er eigentlich gar nicht rechnen muss. Denn eine Abs()-Rechnung und eine Division und ein Cast dürften aufwändiger ablaufen als zwei if-Abfragen. Du hast ja selbst gesagt:

Zitat von Cöster:

Aber das ist sicherlich nicht die eleganteste Art.

Gruß Jürgen

[3_of_8]

Also gut, jetzt noch einmal. Sign steht in der Unit Math. Die einbinden. Das dürfte auch bei Delphi 4 oder was du hast drinsein.

Und außerdem habe ich dir schon einen Code geschrieben, der mit EINER If-Abfrage auskommt.

abs(value)/value ist ineffizient, wenn dann schon abs(value) div value, was bei einer 0 versagt, weil man nunmal nicht durch 0 teilen kann. Außerdem ist so ein div im Vergleich zu meinem Code wirklich langsam.

Zitat von 3_of_8:

Ich hätt das jetzt so gelöst:

Delphi-Quellcode:

function Sign(const AValue: Integer): Integer;
asm
cmp eax, 0
ja @positive
cdq
mov eax, edx
ret
@positive:
mov eax, 1
end;

[Hawkeye219]

Hallo,

hier ist noch eine Assembler-Version:

Delphi-Quellcode:

function Sign2 (aValue: Integer): Integer;
asm
  sar eax,31
  or eax,1
end;

Die folgenden PASCAL-Versionen haben den Vorteil, daß man sie im BDS mit der INLINE-Direktive versehen kann. In zeitkritischen Routinen kann man damit einen zusätzlichen Geschwindigkeitsvorteil erzielen:

Delphi-Quellcode:

function SignInt (aValue: Integer): Integer; {nur für BDS: inline;}
const
  cSign: array [Boolean] of Integer = (-1, +1);
begin
  Result := cSign[aValue >= 0];
end;

function SignFloat (aValue: Double): Integer; {nur für BDS: inline;}
const
  cSign: array [Boolean] of Integer = (-1, +1);
begin
  Result := cSign[aValue >= 0];
end;

Gruß Hawkeye

[3_of_8]

Das funktioniert so nicht ganz.

Denn bei 0 hast du eine 0 im Sign-Bit und dann kriegst du bei einer 0 als Result 1.

Und wenn du das willst, geht das auch genausogut so:

[Hawkeye219]

Hallo Manuel,

Zitat von Cöster:

...die dann 1 zurückgibt, wenn die Zahl positiv ist, und -1, wenn sie negativ ist?

Ich habe das so verstanden, daß er zwei mögliche Ergebnisse erwartet. Die 0 gilt dabei als positive Zahl. Aber Cöster wollte ja sowieso keine Funktion für Integer-Zahlen...

PS: In deiner Assembler-Routine solltest du das "JA" durch ein "JG" ersetzen.

Gruß Hawkeye

[Cöster]

Zitat von 3_of_8:

Also gut, jetzt noch einmal. Sign steht in der Unit Math. Die einbinden. Das dürfte auch bei Delphi 4 oder was du hast drinsein.

Math ist eingebunden, er kennt Sign trotzdem nicht.

Zitat von 3_of_8:

abs(value)/value ist ineffizient, wenn dann schon abs(value) div value

Seit wann läuft div auch mit Reals?

Zitat von 3_of_8:

, was bei einer 0 versagt, weil man nunmal nicht durch 0 teilen kann.

wie gesagt, dazu wird es nie kommen.

Zitat von 3_of_8:

Ich hätt das jetzt so gelöst:

Delphi-Quellcode:

function Sign(const AValue: Integer): Integer;
asm
cmp eax, 0
ja @positive
cdq
mov eax, edx
ret
@positive:
mov eax, 1
end;

Der Code ist sicherlich nicht schlecht, aber (das kannst du nicht wissen) ich kann kein Assembler und ich möchte keinen Code schreiben, den ich nicht verstehe.

Ich hab mir nach euren Tipps jetzt doch ne Function gebastelt:

Delphi-Quellcode:

function Sign(Value: Real): Integer;
begin
  If Value < 0 then
    result := -1
  else
    result := 1;
end;

[himitsu]

Aber eigentlich sollte D5 Sign kennen (siehe Unit Math)

PS: @Threadersteller

rate mal, was deine Variante mit der Divition sagt, wenn man der eine 0 gibt

[3_of_8]

Er sagte, es kommt nie dazu.

Und @Cöster: Nimm nie ein if, wenn du stattdessen eine arithmethische Operation kriegst. Ifs bremsen den Prozessor ab.