| 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; | 
|  |