| ESBArcSin Function | 
Unit
QESBPCSMath
Declaration
Function ESBArcSin(const X: Extended): Extended;
Description
Return Values are between -Pi/2 and Pi/2.
| Parameters | 
| X | Float to process. | 
Category
Arithmetic Routines for FloatsImplementation
 
| function ESBArcSin (const X: Extended): Extended;
var
     Y: Extended;
begin
     if abs (X) > 1 then
          raise EMathError.Create (rsValueLEOne);
     if X = 0 then
          Result := 0
     else
     begin
          Y := Sqrt (1 - Sqr (X));
          if FloatIsZero (Y) then
          begin
               if X > 0 then
                    Result := PiOn2
               else
                    Result := -PiOn2
          end
          else
               Result := ESBArcTan (Y, X)
     end;
End; | 
|  |