
!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
  һԷ. ĿͨԵʽĲ𲽽תΪһƽķ. 
  (磺 һϵǵλԷ飩
 !else
   <font color=green>$desc</font>, 
   ( $step ) Ϊ:
 !endif
!else
 Step $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>

