X=ones(1,6);//positions initiales dans l'urne A
afficher(X);
for i=1:10
  c=floor(6*rand()+1);
  afficher ("particule n° "+ string(c))
  if (X(1,c)<1) then X(1,c)=X(1,c)+1;
  else X(1,c)=X(1,c)-1;
  end
  afficher(X(1,:));
end
afficher("Proportion dans A =" +string(sum(X)/6));