ESBCosec Function |
Unit
QESBPCSMath
Declaration
Function ESBCosec(const Angle: Extended): Extended;
Parameters |
Angle | Angle in Radians. |
Category
Arithmetic Routines for FloatsImplementation
function ESBCosec (const Angle: Extended): Extended; var Y: Extended; begin Y := Sin (Angle); if FloatIsZero (Y) then raise EMathError.Create (rsDivideByZero); Result := 1 / Y; End; |
|