!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
  Ici vous avez votre systme linaire de dpart. Votre but est de modifier
  successivement le systme par des oprations sur les quations, pour
  le transformer  un systme trivial (i.e. celui dont la matrice de 
  coefficients est l'identit).
 !else
  Aprs <font color=green>$desc</font>, 
  le systme (tape $step) devient :
 !endif
!else
 Etape $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>

