\title	{Unimodular inverse 4x4}
\language{en}
\author	{XIAO Gang}
\email	{xiao@unice.fr}
\format	{html}
\range  {-5..5}
\precision{10000}

\integer{range=3}
\matrix{A1=1,randint(-\range..\range),randint(-\range..\range),randint(-\range..\range)
0,1,randint(-\range..\range),randint(-\range..\range)
0,0,1,randint(-\range..\range)
0,0,0,1}
\matrix{A2=1,0,0,0
randint(-\range..\range),1,0,0
randint(-\range..\range),randint(-\range..\range),1,0
randint(-\range..\range),randint(-\range..\range),randint(-\range..\range),1}
\matrix{A3=1,randint(-\range..\range),randint(-\range..\range),randint(-\range..\range)
0,1,randint(-\range..\range),randint(-\range..\range)
0,0,1,randint(-\range..\range)
0,0,0,1}
\text{A=pari(print([\A1]*[\A2]*[\A3]))}
\text{inv=pari(print([\A]^-1))}

\statement{Compute the inverse of the matrix
<p><center>
 \(A = [\A] )&nbsp;&nbsp;.
</center> <p>
}
\answer	{A<sup>-1</sup>}{\inv}{type=matrix}

