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;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>