Return to standard_random_vecvecs.adb CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Matrices/standard_random_vecvecs.adb, Revision 1.1

1.1     ! maekawa     1: with Standard_Integer_Vectors;
        !             2: with Standard_Floating_Vectors;
        !             3: with Standard_Complex_Vectors;
        !             4: with Standard_Random_Vectors;            use Standard_Random_Vectors;
        !             5:
        !             6: package body Standard_Random_VecVecs is
        !             7:
        !             8:   function Random_VecVec ( n,m : natural; low,upp : integer )
        !             9:                          return Standard_Integer_VecVecs.VecVec is
        !            10:
        !            11:     res : Standard_Integer_VecVecs.VecVec(1..m);
        !            12:
        !            13:   begin
        !            14:     for i in 1..m loop
        !            15:       res(i) := new Standard_Integer_Vectors.Vector'
        !            16:                       (Random_Vector(1,n,low,upp));
        !            17:     end loop;
        !            18:     return res;
        !            19:   end Random_VecVec;
        !            20:
        !            21:   function Random_VecVec ( n,m : natural )
        !            22:                          return Standard_Floating_VecVecs.VecVec is
        !            23:
        !            24:     res : Standard_Floating_VecVecs.VecVec(1..m);
        !            25:
        !            26:   begin
        !            27:     for i in 1..m loop
        !            28:       res(i) := new Standard_Floating_Vectors.Vector'(Random_Vector(1,n));
        !            29:     end loop;
        !            30:     return res;
        !            31:   end Random_VecVec;
        !            32:
        !            33:   function Random_VecVec ( n,m : natural )
        !            34:                          return Standard_Complex_VecVecs.VecVec is
        !            35:
        !            36:     res : Standard_Complex_VecVecs.VecVec(1..m);
        !            37:
        !            38:   begin
        !            39:     for i in 1..m loop
        !            40:       res(i) := new Standard_Complex_Vectors.Vector'(Random_Vector(1,n));
        !            41:     end loop;
        !            42:     return res;
        !            43:   end Random_VecVec;
        !            44:
        !            45: end Standard_Random_VecVecs;