function P = rmatmar(n)
  %RMATMAR renvoie une matrice de Markov aléatoire de taille n x n
  %dont les lignes sont des probabilités discrètes choisies de façon
  %uniforme et indépendante en utilisant rdirichlet.
  %P = rmatmar(n);
  for i=1:n, P(i,:)=rdirichlet(n); end;
  return;