ag&quot;)$

(%i2) a:matrix([2,1,2,0],
               [-2,2,1,2],
               [-2,-1,-1,1],
               [3,1,2,-1])$

(%i3) jordan(a);
(%o3)               [[- 1, 1], [1, 3]]
(%i4) minimalPoly(%);
                            3
(%o4)                (x - 1)  (x + 1)
</pre>
<p>Antes de hacer uso de esta función ejecútese  <code>load(&quot;diag&quot;)</code>.
Véanse también <code>jordan</code> y <code>dispJordan</code>.
</p></dd></dl>

<dl>
<dt><u>Función:</u> <b>ModeMatrix</b><i> (<var>A</var>,<var>l<