Return to multprec_random_vectors.adb CVS log

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

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

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