Re: DiagonalizableQ
- To: mathgroup at smc.vnet.net
- Subject: [mg122102] Re: DiagonalizableQ
- From: mmausr <opngid at gmail.com>
- Date: Fri, 14 Oct 2011 05:53:03 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j765a1$2cg$1@smc.vnet.net>
Evaluate the function definition below first:
DiagonalizableQ[m_?MatrixQ /; Apply[Equal, Dimensions[m]]] :=
Module[{s, j},
{s, j} = JordanDecomposition[m];
Length[
Cases[ArrayRules[j][[1 ;; -2, 1]], {i_, j_} /; j == i + 1]] == 0
];
It is not a built-in function ... which is why the function is defined
in the help page.