1

私はMathematicaで一般化された固有値問題を解こうとしています。Bに関する行列Aの固有値と固有ベクトルを見つけたいのですが、使用する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 に答える