Return to multprec_random_vecvecs.adb CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Matrices/multprec_random_vecvecs.adb, Revision 1.1.1.1

1.1       maekawa     1: with Multprec_Integer_Vectors;
                      2: with Multprec_Floating_Vectors;
                      3: with Multprec_Complex_Vectors;
                      4: with Multprec_Random_Vectors;            use Multprec_Random_Vectors;
                      5:
                      6: package body Multprec_Random_VecVecs is
                      7:
                      8:   function Random_VecVec ( n,m,sz : natural )
                      9:                          return Multprec_Integer_VecVecs.VecVec is
                     10:
                     11:     res : Multprec_Integer_VecVecs.VecVec(1..m);
                     12:
                     13:   begin
                     14:     for i in 1..m loop
                     15:       res(i) := new Multprec_Integer_Vectors.Vector'(Random_Vector(n,sz));
                     16:     end loop;
                     17:     return res;
                     18:   end Random_VecVec;
                     19:
                     20:   function Random_VecVec ( n,m,sz : natural )
                     21:                          return Multprec_Floating_VecVecs.VecVec is
                     22:
                     23:     res : Multprec_Floating_VecVecs.VecVec(1..m);
                     24:
                     25:   begin
                     26:     for i in 1..m loop
                     27:       res(i) := new Multprec_Floating_Vectors.Vector'(Random_Vector(n,sz));
                     28:     end loop;
                     29:     return res;
                     30:   end Random_VecVec;
                     31:
                     32:   function Random_VecVec ( n,m,sz : natural )
                     33:                          return Multprec_Complex_VecVecs.VecVec is
                     34:
                     35:     res : Multprec_Complex_VecVecs.VecVec(1..m);
                     36:
                     37:   begin
                     38:     for i in 1..m loop
                     39:       res(i) := new Multprec_Complex_Vectors.Vector'(Random_Vector(n,sz));
                     40:     end loop;
                     41:     return res;
                     42:   end Random_VecVec;
                     43:
                     44: end Multprec_Random_VecVecs;