Function für Vorzeichen?

[3_of_8]

Da dürfte Hawkeyes Lösung noch schneller sein.

[Dax]

Das ist natürlich möglich. Immerhin braucht Hawks Lösung Pointerberechnung und -inderektion, aber dafür Fließkommavergleiche. Ich weiß nicht aus Erfahrung, was da genau schneller ist - mag das jemand testen?

[Michael Habbe]

Wow, so eine kleine Funktion verursacht so viel geshcreibsel.

Warum schreibt denn nun keiner wie die Funktion richtig aussehen muss?

Delphi-Quellcode:

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

Wieviel Millisekunden ist dieses "IF" denn langsamer? Oder anders ausgedrückt: Wie oft muss Cöster diese Funktion hintereinander aufrufen, um eine Verzögerung festzustellen?

[Cöster]

Zitat von Hawkeye219:

Ich hatte im Beitrag #15 eine mögliche Lösung vorgestellt (für Integer- und Double-Werte

Joa, die Lösung gefällt mir am Besten. Mir war erst nicht klar, was sie der If-Lösung gegenüber für Vorteile hat, deswegen hatte ich sie wohl mehr oder weniger überlesen und mir nachher nicht mehr die Mühe gemacht, zurückzublättern.
Danke!

[3_of_8]

Halt, ich hab mir deins nochmal angeschaut - das dürfte tatsächlich noch schneller sein.

Deine Lösung funktioniert bei mir nicht. Little Endian Format? Und ich würde es so machen:

Delphi-Quellcode:

function Sign(e: Extended): Integer;
begin
  result:=0-(PByte(Integer(@e)+9)^ shr 7) or 1;
end;

[Christian Seehase]

Moin Dax,

wozu die Pointer?

Delphi-Quellcode:

function Sign(const AValue : double) : integer;

type
  TSignHelp = record
    case boolean of
      true  : (dblValue : double);
      false : (abDummy  : array [1..7] of Byte;
               bValue   : Byte;);
  end;

begin
  Result := (0 - (TSignHelp(AValue).bValue) shr 7) or 1;
end;

funktioniert jedenfalls.

[Dax]

Zitat von Christian Seehase:

Moin Dax,

wozu die Pointer?

Zur Verwirrung der geneigten Leser

Ne, hab einfach vergessen, das es anders auch geht

[3_of_8]

Meins geht auch ohne großartige Typendeklarationen.

[uligerhardt]

Zitat von Cöster:

Ich brauch den Befehl "hänge an a das Vorzeichen von b dran" und dafür schreib ich dann
a := sign(b)*a;

Wie wäre es dann einfach mitif b < 0 then a := -a; und fertig?

Uli.

[3_of_8]

Das geht schneller:

Delphi-Quellcode:

function signmultiply(const a, b: Extended): Extended;
begin
  result:=a;
  PByte(Integer(@result)+9)^:=PByte(Integer(@result)+9)^ xor
    (PByte(Integer(@b)+9)^ and (1 shl 7));
end;

c:=signmultiply(a, b) macht in etwa das: if b<0 then c:=-a else c:=a;