Return to multprec_random_matrices.adb CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices |
File: [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices / multprec_random_matrices.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:24 2000 UTC (23 years, 8 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
with Multprec_Random_Numbers; use Multprec_Random_Numbers; package body Multprec_Random_Matrices is function Random_Matrix ( n,m,sz : natural ) return Multprec_Integer_Matrices.Matrix is res : Multprec_Integer_Matrices.Matrix(1..n,1..m); begin for i in 1..n loop for j in 1..m loop res(i,j) := Random(sz); end loop; end loop; return res; end Random_Matrix; function Random_Matrix ( n,m,sz : natural ) return Multprec_Floating_Matrices.Matrix is res : Multprec_Floating_Matrices.Matrix(1..n,1..m); begin for i in 1..n loop for j in 1..m loop res(i,j) := Random(sz); end loop; end loop; return res; end Random_Matrix; function Random_Matrix ( n,m,sz : natural ) return Multprec_Complex_Matrices.Matrix is res : Multprec_Complex_Matrices.Matrix(1..n,1..m); begin for i in 1..n loop for j in 1..m loop res(i,j) := Random(sz); end loop; end loop; return res; end Random_Matrix; end Multprec_Random_Matrices;