Return to standard_mathematical_functions.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/standard_mathematical_functions.adb, Revision 1.1.1.1

1.1       maekawa     1: with Ada.Numerics.Generic_Elementary_Functions;
                      2: with Ada.Numerics;                     use Ada.Numerics;
                      3:
                      4: package body Standard_Mathematical_Functions is
                      5:
                      6:   package Double_Elementary_Functions is new
                      7:                   Ada.Numerics.Generic_Elementary_Functions (double_float);
                      8:
                      9:   function "**" ( x,y : double_float ) return double_float is
                     10:   begin
                     11:     return Double_Elementary_Functions."**"(x,y);
                     12:   end "**";
                     13:
                     14:   function LOG2 ( x : double_float ) return double_float is
                     15:   begin
                     16:     return Double_Elementary_Functions.LOG(x,2.0);
                     17:   end LOG2;
                     18:
                     19:   function LOG10 ( x : double_float ) return double_float is
                     20:   begin
                     21:     return Double_Elementary_Functions.LOG(x,10.0);
                     22:   end LOG10;
                     23:
                     24:   function SQRT ( x : double_float ) return double_float is
                     25:   begin
                     26:     return Double_Elementary_Functions.SQRT(x);
                     27:   end SQRT;
                     28:
                     29:   function SIN ( x : double_float ) return double_float is
                     30:   begin
                     31:     return Double_Elementary_Functions.SIN(x);
                     32:   end SIN;
                     33:
                     34:   function COS ( x : double_float ) return double_float is
                     35:   begin
                     36:     return Double_Elementary_Functions.COS(x);
                     37:   end COS;
                     38:
                     39:   function TAN ( x : double_float ) return double_float is
                     40:   begin
                     41:     return Double_Elementary_Functions.TAN(x);
                     42:   end TAN;
                     43:
                     44:   function ARCSIN ( x : double_float ) return double_float is
                     45:   begin
                     46:     return Double_Elementary_Functions.ARCSIN(x);
                     47:   end ARCSIN;
                     48:
                     49:   function ARCCOS ( x : double_float ) return double_float is
                     50:   begin
                     51:     return Double_Elementary_Functions.ARCCOS(x);
                     52:   end ARCCOS;
                     53:
                     54:   function ARCTAN ( x : double_float ) return double_float is
                     55:   begin
                     56:     return Double_Elementary_Functions.ARCTAN(x);
                     57:   end ARCTAN;
                     58:
                     59:   function Radius ( x,y : double_float ) return double_float is
                     60:   begin
                     61:     return Sqrt(x**2+y**2);
                     62:   end Radius;
                     63:
                     64:   function Angle ( x,y : double_float ) return double_float is
                     65:   begin
                     66:     return Double_Elementary_Functions.ARCTAN(x,y);
                     67:   end Angle;
                     68:
                     69: end Standard_Mathematical_Functions;