ESBTan Function
Returns Tangent of Angle given in Radians.

Unit
QESBPCSMath

Declaration
Function ESBTan(const Angle: Extended): Extended;

Parameters
Angle Angle in Radians.

Category
Arithmetic Routines for Floats

Implementation

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;


HTML generated by Time2HELP
http://www.time2help.com