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

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;