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;