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