AdjustAngleRad Function |
Unit
QESBPCSMath
Declaration
Function AdjustAngleRad(const X: Extended): Extended;
Parameters |
X | Value in Radians. |
Category
Arithmetic Routines for FloatsImplementation
function AdjustAngleRad (const X: Extended): Extended; begin Result := X; if Result > TwoPi then Result := Result - Int (Result / TwoPi) * TwoPi; if Result < 0 then Result := Result + Int (abs (Result) / TwoPi + 1) * TwoPi; End; |
|