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