<table align=middle border=0>
!for i=1 to $x
 <tr><td>$m_v<sub>$i</sub> = (
 !for j=1 to $y
  !set n=!charcnt $(m$i$j)
  !if c isin $(m$i$j) and $n=2
   !set n=!char 2 of $(m$i$j)
   <td align=right>
   <input size=3 name=c$n value="$(c$n)">
   !if $i<$x
    ,
   !endif
  !else
   <td align=right>$(m$i$j)
   !if $j<$y
    &nbsp;,&nbsp;
   !else
    &nbsp;
   !endif
  !endif
 !next j
 )
!next i
</table>

!if $rel=1
 !if $status=waiting
  <p>Escriba una ecuación lineal que satisfagan todos los vectores del subespacio 
  generado por los  $m_v<sub>$m_i</sub> :
  <p><center>
  !for j=1 to $y
   <input size=3 name=rel$j value="$(rel$j)"> $m_x<sub>$j</sub>
   !if $j<$y
    +
   !else
    = 0
   !endif
  !next j
 !else
  <p>Con una ecuación lineal que satisfacen todos los vectores del subespacio
  generado por los $m_v<sub>$m_i</sub> : <p><center>
  !for j=1 to $y
   !set rela=$rela$(rel$j) x$j
   !if $j<$y
    !set rela=$rela + $
   !endif
  !next j
  !htmlmath $rela = 0
 !endif
 </center>
!endif

