Return to standard_random_vectors.adb CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices |
File: [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices / standard_random_vectors.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:24 2000 UTC (23 years, 9 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
with Standard_Random_Numbers; use Standard_Random_Numbers; package body Standard_Random_Vectors is function Random_Vector ( first,last : natural; low,upp : integer ) return Standard_Integer_Vectors.Vector is res : Standard_Integer_Vectors.Vector(first..last); begin for i in res'range loop res(i) := Random(low,upp); end loop; return res; end Random_Vector; function Random_Vector ( first,last : natural ) return Standard_Floating_Vectors.Vector is res : Standard_Floating_Vectors.Vector(first..last); begin for i in res'range loop res(i) := Random; end loop; return res; end Random_Vector; function Random_Vector ( first,last : natural ) return Standard_Complex_Vectors.Vector is res : Standard_Complex_Vectors.Vector(first..last); begin for i in res'range loop res(i) := Random; end loop; return res; end Random_Vector; end Standard_Random_Vectors;