Return to standard_random_vectors.adb CVS log

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

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

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