
!if $character>0
 !set modulo=(mod $character)
!endif

!if $size<=3
 !for i=1 to $size
  !set x$i=!char $i of xyz
 !next i
!else
 !for i=1 to $size
  !set x$i=x<sub>$i</sub>
 !next i
!endif
!set rightp=)

!if $error=$empty
 !if $step<1
  Aquí está su sistema inicial de ecuaciones lineales. Su trabajo consiste en modificar
  sucesivamente el sistema, mediante operacioens en las ecuaciones, para transformarlo 
  en un sistema trivial (es decir, con la matriz unidad como matriz de coeficientes).
 !else
  Después de <font color=green>$desc</font>, 
  el sistema (paso $step) se convierte en:
 !endif
!else
 Paso $step:
!endif

<p>
<center><table border=0>
!for i=1 to $size
 !set row=!line $i of $pmatrix
 !set started=0
 <tr>
 !if $i=1
  <td rowspan=$size>$(m_leftbrace$size)</td>
 !endif
 !for j=1 to $size
  !set c=!item $j of $row
  !if $[$c]=0
   <td></td>
  !else
   !set pre=
   !set c1=!char 1 of $c
   !set c2=!char 2 to -1 of $c
   !if $c1=- and + notin $c2 and - notin $c2
    !set c=$c2
    !set pre=-
   !endif
   !if $started=0 or $pre=-
    !set started=1
   !else
    !set pre=+
   !endif
   !if $c=1
    !set c=
   !else
    !set l=!char -1 of $c
    !if $l!=$rightp and (/ isin $c or + isin $c or - isin $c)
     !set c=($c)
    !endif
   !endif
   <td align=right nowrap>
   $pre
   !if $i isitemof $(col$j) and $click=yes
    !href cmd=reply&modif=auto&origin=$i&dest=$j $c$(x$j)
   !else
    $c$(x$j)
   !endif
   </td>
  !endif
 !next j
 <td>=</td><td align=right nowrap>
 !item $i of $const
 </td>
 <td nowrap>&nbsp;&nbsp;&nbsp;$modulo&nbsp;&nbsp;&nbsp;&nbsp;
 !if $i<$size and $click=yes
  !href cmd=reply&modif=exchange&origin=$i&dest=$[$i+1] ($i)
 !else
  ($i)
 !endif
 </td>
!next i
</table></center>

