mathematica 怎么用mathematica直接解出一个矩阵
1个回答
展开全部
你问的是矩阵的分解吧,Mathematica中矩阵分解的命令为：JordanDecomposition[A],表示将矩阵A分解为A=PBP^(-1)的形式,例如：A = {{1,2,3},{2,1,3},{3,2,1}}为这样的矩阵时,它的分解为：
A = {{1,2,3},{2,1,3},{3,2,1}};
{P,B} = JordanDecomposition[A]
执行结果为：
{{{-3,2,1},{-3,-5,1},{5,2,1}},{{-2,0,0},{0,-1,0},{0,0,6}}}
即P={{{-3,2,1},{-3,-5,1},{5,2,1}},B={{-2,0,0},{0,-1,0},{0,0,6}}
可以验证一下这里的PBP^(-1)的结果是否等于A,输入程序：
P.B.Inverse[P]
执行结果为：
{{1,2,3},{2,1,3},{3,2,1}}
正好等于A,说明以上分解是正确的.
A = {{1,2,3},{2,1,3},{3,2,1}};
{P,B} = JordanDecomposition[A]
执行结果为：
{{{-3,2,1},{-3,-5,1},{5,2,1}},{{-2,0,0},{0,-1,0},{0,0,6}}}
即P={{{-3,2,1},{-3,-5,1},{5,2,1}},B={{-2,0,0},{0,-1,0},{0,0,6}}
可以验证一下这里的PBP^(-1)的结果是否等于A,输入程序：
P.B.Inverse[P]
执行结果为：
{{1,2,3},{2,1,3},{3,2,1}}
正好等于A,说明以上分解是正确的.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
