Return to standard_random_vecvecs.adb CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices |
File: [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices / standard_random_vecvecs.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_Integer_Vectors; with Standard_Floating_Vectors; with Standard_Complex_Vectors; with Standard_Random_Vectors; use Standard_Random_Vectors; package body Standard_Random_VecVecs is function Random_VecVec ( n,m : natural; low,upp : integer ) return Standard_Integer_VecVecs.VecVec is res : Standard_Integer_VecVecs.VecVec(1..m); begin for i in 1..m loop res(i) := new Standard_Integer_Vectors.Vector' (Random_Vector(1,n,low,upp)); end loop; return res; end Random_VecVec; function Random_VecVec ( n,m : natural ) return Standard_Floating_VecVecs.VecVec is res : Standard_Floating_VecVecs.VecVec(1..m); begin for i in 1..m loop res(i) := new Standard_Floating_Vectors.Vector'(Random_Vector(1,n)); end loop; return res; end Random_VecVec; function Random_VecVec ( n,m : natural ) return Standard_Complex_VecVecs.VecVec is res : Standard_Complex_VecVecs.VecVec(1..m); begin for i in 1..m loop res(i) := new Standard_Complex_Vectors.Vector'(Random_Vector(1,n)); end loop; return res; end Random_VecVec; end Standard_Random_VecVecs;