| ESBCot Function | 
Unit
QESBPCSMath
Declaration
Function ESBCot(const Angle: Extended): Extended;
| Parameters | 
| Angle | Angle in Radians. | 
Category
Arithmetic Routines for FloatsImplementation
 
| function ESBCot (const Angle: Extended): Extended;
function FCot (Angle: Extended): Extended;
     asm
		fld		[Angle]	// St(0) <- Angle
		ffree     st(7)	// Ensure st(7) is free
		fptan		     // St(1) <- Tan (Angle), St(0) <- 1
		fdivrp			// St(0) <- St(0)/St(1) which is Cot
		fwait
     end;
begin
     if FloatIsZero (Angle) then
          raise EMathError.Create (rsDivideByZero);
     if abs (Angle) >= TwoToPower63 then // must be less then 2^63
          raise EMathError.Create (rsAngleTooLarge);
     Result := FCot (Angle);
End; | 
|  |