ESBArcCos Function |
Unit
QESBPCSMath
Declaration
Function ESBArcCos(const X: Extended): Extended;
Description
Return Values are between 0 and Pi.
Parameters |
X | Float to process. |
Category
Arithmetic Routines for FloatsImplementation
function ESBArcCos (const X: Extended): Extended; var Y: Extended; begin if abs (X) > 1 then raise EMathError.Create (rsValueLEOne); if X = 0 then Result := PiOn2 else begin Y := Sqrt (1 - Sqr (X)); if FloatIsZero (Y) then begin if X > 0 then Result := 0 else Result := ESBPi end else Result := ESBArcTan (X, Y) end; End; |
|