function realis = randiscr(x,n,m)
%RANDISCR
% Similaire à rand. Renvoie des réalisations i.i.d. de loi uniforme
% sur x(1),...,x(length(x)). 
% n et m sont des entiers optionnels, valant 1 par défaut.

if (nargin==0),
  error('Pas assez de paramètres');
elseif (nargin==1),
  n=1; m=1;
elseif (nargin==2)
  m=1;
elseif (nargin>3)
  error('Trop de paramètres');
end
realis=reshape(x(ceil(length(x)*rand(n,m))),n,m);
return;
