[Date Index] [Thread Index] [Author Index]

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.