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