ESBTan Function |
Unit
QESBPCSMath
Declaration
Function ESBTan(const Angle: Extended): Extended;
Parameters |
Angle | Angle in Radians. |
Category
Arithmetic Routines for FloatsImplementation
function ESBTan (const Angle: Extended): Extended; function FTan (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 fstp st(0) // Dispose of 1 fwait end; begin if abs (Angle) >= TwoToPower63 then // must be less then 2^63 raise EMathError.Create (rsAngleTooLarge); Result := FTan (Angle); End; |
|