Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Matrices/standard_random_vectors.adb, Revision 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>