数学建模社区-数学中国

标题: [求助]Mathematica5怎么将矩阵对角化？ [打印本页]

作者: cd0054115 时间: 2008-3-16 15:55
标题: [求助]Mathematica5怎么将矩阵对角化？

Mathematica5怎么将矩阵对角化？

用Eigenvalues[]好象是可以，但太复杂，只要对角元素就可以了！

例如：{{a,b},{c,d}----->{{a,0},{0,d-bc/a}}}就可以了！

不用Eigenvalues[{{a, b}, {c, d}}]------>{1/2（a+d-Sqrt[a^2+4bc-2ad+d^2]）,1/2（a+d+Sqrt[a^2+4bc-2ad+d^2)}

谢谢！

作者: madio 时间: 2008-3-17 09:14

上个帖子就回过了！

In[2]:=
JordanDecomposition[{{a,b},{c,d}}]

Out[2]=
\!\({{{\(a - d - \@\(a\^2 + 4\ b\ c - 2\ a\ d + d\^2\)\)\/\(2\ c\), \(a - d + \
\@\(a\^2 + 4\ b\ c - 2\ a\ d + d\^2\)\)\/\(2\ c\)}, {1, 1}}, {{1\/2\ \((a + d \
- \@\(a\^2 + 4\ b\ c - 2\ a\ d + d\^2\))\), 0}, {0, 1\/2\ \((a + d + \@\(a\^2 \
+ 4\ b\ c - 2\ a\ d + d\^2\))\)}}}\)

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)