<a name="matrice">
\def{integer n=randint(4..6)}
\def{integer j=randint(1..\n)}
\def{integer i=randint(1..\n)}

\def{text special=wims(nospace \ special)}
\def{text A= toto}
\for{k=1 to \n}
{
\def{text B=wims(makelist a_{\k l} for l=1 to \n)
}
\def{text B=\i<>\k ? 
wims(replace internal item number \j by \special{color=red}0\special{color=black}  in \B):
wims(replace internal item number \j by \special{color=red}1\special{color=black}  in \B)}
\def{matrix A=\A
\B}
}
\def{matrix A= \A[2..-1;]}
\def{text A= slib(text/matrixtex [\A],lvert,rvert)}
\reload{<img src="gifs/doc/etoile.gif" alt="rechargez" width="20" height="20">}{matrice}
<center>\(\A)</center>