Return to multprec_random_vecvecs.adb CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices |
File: [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices / multprec_random_vecvecs.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:23 2000 UTC (23 years, 9 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
with Multprec_Integer_Vectors; with Multprec_Floating_Vectors; with Multprec_Complex_Vectors; with Multprec_Random_Vectors; use Multprec_Random_Vectors; package body Multprec_Random_VecVecs is function Random_VecVec ( n,m,sz : natural ) return Multprec_Integer_VecVecs.VecVec is res : Multprec_Integer_VecVecs.VecVec(1..m); begin for i in 1..m loop res(i) := new Multprec_Integer_Vectors.Vector'(Random_Vector(n,sz)); end loop; return res; end Random_VecVec; function Random_VecVec ( n,m,sz : natural ) return Multprec_Floating_VecVecs.VecVec is res : Multprec_Floating_VecVecs.VecVec(1..m); begin for i in 1..m loop res(i) := new Multprec_Floating_Vectors.Vector'(Random_Vector(n,sz)); end loop; return res; end Random_VecVec; function Random_VecVec ( n,m,sz : natural ) return Multprec_Complex_VecVecs.VecVec is res : Multprec_Complex_VecVecs.VecVec(1..m); begin for i in 1..m loop res(i) := new Multprec_Complex_Vectors.Vector'(Random_Vector(n,sz)); end loop; return res; end Random_VecVec; end Multprec_Random_VecVecs;