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     ! 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;