\title	{Productos entre matrices potencias 3x3}
\language{en}
\author	{XIAO Gang}
\email	{xiao@unice.fr}
\format	{html}
\range  {-5..5}
\precision{10000}

\integer{range=6}
\integer{half=\range/2}
\matrix{A=2*randint(-\half..\half)+1,randint(-\range..\range),randint(-\range..\range)
2*randint(-\half..\half),2*randint(-\half..\half)+1,randint(-\range..\range)
2*randint(-\half..\half),2*randint(-\half..\half),2*randint(-\half..\half)+1
}
\text{shuf1=shuffle(3)}
\text{shuf2=shuffle(3)}
\matrix{A=pari(print(vecextract([\A],[\shuf1],[\shuf2])))}
\matrix{B=2*randint(-\half..\half)+1,randint(-\range..\range),randint(-\range..\range)
2*randint(-\half..\half),2*randint(-\half..\half)+1,randint(-\range..\range)
2*randint(-\half..\half),2*randint(-\half..\half),2*randint(-\half..\half)+1
}
\text{shuf1=shuffle(3)}
\text{shuf2=shuffle(3)}
\matrix{B=pari(print(vecextract([\B],[\shuf1],[\shuf2])))}
\text{AB=shuffle(A,B)}
\text{a=item(1,\AB)}
\text{b=item(2,\AB)}
\matrix{prods=
\a*\b,\a*\b*\a
\a*\b,\b*\a*\b
\a*\b,\a*\b^2
\a*\b,\a^2*\b
}
\text{prods=shuffle(randomrow(\prods))}
\text{p1=item(1,\prods)}
\text{p2=item(2,\prods)}
\matrix{P1=pari(A=[\A];B=[\B];print(\p1))}
\matrix{P2=pari(A=[\A];B=[\B];print(\p2))}

\statement{Tenemos dos matrices \(A) y \(B), con
<p><center>
 \(\p1 = [\P1]) , \(\p2 = [\P2]) .
</center> <p>
¿Quiénes son \(A) y \(B) ?
}

\answer{A}{\A}{type=matrix}
\answer{B}{\B}{type=matrix}
