!if $character>0
 !set modulo=<br></b>(modulo $character)
!endif

!if $error=$empty
 !if $step<1
  Aquí están las matrices iniciales. Su tarea es modificar las matrices
  mediante tranformaciones en las filas, hasta que la matriz de la iquierda 
  sea la matriz identidad; en ese momento, la matriz de la derecha se habrá 
  convertido en la matriz inversa de la que ahora está a la izquierda.
 !else
  Después de <font color=green>$desc</font>, 
  las matrices (paso $step) se convierten en:
 !endif
!else
 Paso $step:
!endif

<p>
<center><table border=0>
!if $size<=3
 <tr><td><th colspan=$size>Matriz<br>principal$modulo</th>
 <td colspan=3><th colspan=$size>Matriz de<br>referencia$modulo</th>
!else
 <tr><td><th colspan=$size>Matriz principal$modulo</th>
 <td colspan=3><th colspan=$size>Matriz de referencia$modulo</th>
!endif
<tr><td colspan=$[$size+2]><hr></td><td><td colspan=$[$size+2]><hr></td>
!for i=1 to $size
 !set row=!line $i of $pmatrix
 !set rrow=!line $i of $preference
 <tr>
 !if $i=1
  <td rowspan=$size>$(m_leftpar$size)</td>
 !endif
 !for j=1 to $size
  !set c=!item $j of $row
  <td align=center nowrap>
  !if $i isitemof $(col$j) and $click=yes
   !href cmd=reply&modif=auto&origin=$i&dest=$j $c
</td>
  !else
   $c</td>
  !endif
 !next j
 !if $i=1
  <td rowspan=$size>$(m_rightpar$size)</td>
 !endif
 <td nowrap>&nbsp;&nbsp;&nbsp;
 !if $i<$size and $click=yes
  !href cmd=reply&modif=exchange&origin=$i&dest=$[$i+1] ($i)
 !else
  ($i)
 !endif
 &nbsp;&nbsp;&nbsp;</td>
 !if $i=1
  <td rowspan=$size>$(m_leftpar$size)</td>
 !endif
 !for j=1 to $size
  !set c=!item $j of $rrow
  <td align=center nowrap>&nbsp;$c&nbsp;</td>
 !next j
 !if $i=1
  <td rowspan=$size>$(m_rightpar$size)</td>
 !endif
!next i
</table></center>

