IF-Anweisung

[Slashmob]

Zitat von jfheins:

Ähhhmmm ... also der Code wird so nicht funktionieren. Keiner der Codes.
Erstmal erwartet die Cos-Funktion einen Winkel in rad, ich lese hier mal raus dass der Winkel in deg eingegeben wird. Zum Anderen ist das Ergebnis des Cosinus eine Zahl zwischen -1 und 1.
Eine Abfrage wie If (cos(winkel*10)>2700) and (cos(winkel*10)<3600) then ist also relativ sinnlos.

Wenn der Quadrant und das Vorzeichen des Cosinus ermittelt werden sollen, wäre meine Lösung wie folgt:

Delphi-Quellcode:

uses
  Math
var
  Winkel: Integer; // In Zehntelgrad, d.h. 904 = 90,4°
begin
  Quadrant = Winkel div 4 + 1;
  Vorzeichen = Sign(cos(DegToRad(Winkel/10)));
end;

Ja, die Codes werden so nicht funktionieren, weil das nur Code-Ausschnitte sind.
Der Winkel wird in Deg eingegeben, dann aber in Rad umgewandelt(Ist hier in dem Ausschnitt nicht angegeben und nicht erkennbar, das stimmt). Ja, Cosinus wandert zwischen 1 und -1, korrekt.
Das Problem warum ich das mit IF THEN mache,ist, wir müssen das damit machen.
Klar gibts noch bessere Methoden, wie du sie auch hier vorgestellt hast.

[Sir Rufo]

Also wenn man solche Bereiche einteilen will, ohne dass man etwas vergisst, dann ist folgendes Vorgehen ratsam:

Delphi-Quellcode:

function Group( const Value : Extended ) : Integer;
begin

  // man kann die oberen und unteren Grenzen im Vorfeld behandeln
  if ( Value < 0 ) or ( Value >= 360 ) then
  begin
    // alternativ eine Exception werfen lassen
    raise Exception.CreateFmt( 'Wert %f ungültig. (0° <= Wert < 360°)', [ Value ] );
    // oder einfach einen Result zurückgeben, bei dem man weiß, da stimmt was nicht
    Result := -1;
    Exit;
  end;

  // oder wie hier beim Winkel kann man ja auch diesen umrechnen
  while ( Value < 0 ) do
    Value := Value + 360;

  while ( Value >= 360 ) do
    Value := Value - 360;

  // *** ab hier geht der Vergleich los ***

  // obere Grenze abfangen
  if ( Value >= 360 ) then Result := -1

  else if ( Value >= 270 ) then Result := 4 // 270 <= Value < 360
  else if ( Value >= 180 ) then Result := 3 // 180 <= Value < 270
  else if ( Value >=  90 ) then Result := 2 // 90 <= Value < 180
  else if ( Value >=   0 ) then Result := 1 // 0 <= Value < 90

  // untere Grenze abfangen
  else Result := -1; 

end;

[himitsu]

Zitat:

    raise Exception.CreateFmt( 'Wert %f ungültig. (0° <= Wert < 360°)', [ Value ] );

Stattdessen könnte man auch einfach den Wertebereich anpassen, denn als Kreisfunktion (unendlich wiederholend) gibt es auch Winkel kleiner 0° und größer/gleich 360°.

Für eine "genaue" Prüfung muß man also eigentlich nur die Werte in den gewünschen Bereich (0 <= w < 360) verschieben.

Delphi-Quellcode:

w := w mod 360;
if w < 0 then Inc(w, 360);

// oder
w := (w mod 360 + 360) mod 360;

// oder
w := w mod 360 + (Max(-Sign(w), 0) * 360);

// oder
w := w mod 360 - Sign(Min(w, 0)) * 360;

// oder
...

[Sir Rufo]

Was aber nur geht, wenn der Winkel als Integer deklariert ist ...

[himitsu]

Es gibt notfalls auch andere Wege, für reelle Zahlen. (aber hier war'n ja Integer, da geht es sehr einfach)