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