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;