1

我正在尝试用 Mathematica 解决广义特征值问题。我想找到矩阵 A 相对于 B 的特征值和特征向量。但是当我使用时，Eigensystem我收到以下错误。

A = {{1, 2, 3}, {3, 6, 8}, {5, 9, 2}}
B = {{3, 5, 7}, {1, 7, 9}, {4, 6, 2}}
Eigensystem[{A, B}]

Eigensystem::exnum: Eigensystem has received a matrix with non-numerical or exact 
elements. >>

我应该怎么办？

4

2 回答 2

3

好吧，至于你能做什么，你可以在N[]那里扔一个。

至于为什么会出现错误，我现在不确定。可能是别人知道的。

A={{1,2,3},{3,6,8},{5,9,2}};
B={{3,5,7},{1,7,9},{4,6,2}};
Eigensystem[{N@A,N@B}]

Out[48]= {{1.6359272851306594,0.52597489217711,0.011174745769153706},
 {{0.0936814383974197,0.7825455672726674,-0.6155048523299302},
 {-0.8489102791046691,0.3575364071543101,0.389254486922913},
 {0.8701002165041747,-0.4913210011447429,0.03910610020848224}}}
于 2011-12-26T13:16:30.573 回答
2

直接从这些答案中复制，使用可逆矩阵，您可以使用它来获得作为Root对象的精确结果：

A = {{1, 2, 3}, {3, 6, 8}, {5, 9, 2}};
B = {{3, 5, 7}, {1, 7, 9}, {4, 6, 2}};

Eigensystem[Inverse[B].A] // RootReduce

{{根[-1 + 92 #1 - 226 #1^2 + 104 #1^3 &, 3],
  根[-1 + 92 #1 - 226 #1^2 + 104 #1^3 &, 2],
  根[-1 + 92 #1 - 226 #1^2 + 104 #1^3 &, 1]},
 {{根[-1418 - 9903 #1 - 3824 #1^2 + 192 #1^3 &, 2],
   根[-2817 + 627 #1 + 2480 #1^2 + 192 #1^3 &, 2], 1},
  {根[-1418 - 9903 #1 - 3824 #1^2 + 192 #1^3 &, 1],
   根[-2817 + 627 #1 + 2480 #1^2 + 192 #1^3 &, 3], 1},
  {根[-1418 - 9903 #1 - 3824 #1^2 + 192 #1^3 &, 3],
   根[-2817 + 627 #1 + 2480 #1^2 + 192 #1^3 &, 1], 1}}}
于 2011-12-26T21:19:56.900 回答