mod für real-Speicher bzw.wie ein vielfaches von Pi umwandln

[Der_Ventilator]

Hi!
Eigentlich müsste das eine ganz einfache math. Operation sein, aber ich weiß grad nicht, wie das geht.

Ich hab hier eine funktion, die Werte zwischen 0 und 2pi benötigt (als real).

Wie kann ich das für real-Speicher berechen?:

result:= vielfaches_von_pi mod 2pi ?

[Kroko1999]

Delphi-Quellcode:

function PiModulo (const Value: Extended): Extended;
var
  H: Extended
begin
  H := Frac (Value/2/Pi);
  Result :=  Value-(2*Pi*H);
end;

ungetestet

[Basilikum]

Code:

X := A mod B

würde ich in Delphi für Floats so realisieren:

Delphi-Quellcode:

X:=Frac(A / B) * B

[BenBE]

Im Projekt Omorphia gibt es für die Winkel 6 spezielle Funktionen (je 3 für Deg und 3 für Rad).
http://cvs.sourceforge.net/viewcvs.p...athGeneral.pas
Funktionen "LimitAngel???x"-Funktionen.