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