normalev(m, sig, varargin)

function x =  normalev(m, sig, varargin)
%normale  chaque appel renvoie un vecteur de nombres pseudo alatoire N(m, sig)
%         normale(m, sig, [n, m])
%         normale(m, sig, n, m)
%         normale(m, sig, n)
%         normale(m, sig)
%         la routine fonctionne aussi pour plus de deux indices.
%         m moyenne,  sig cart type.
%         version >= 5 seulement

if nargin <= 2
  x =  randn*sig+m;
else
  x =  randn([varargin{:}])*sig+m;
end;