- ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:Mathematicaで3×3の固有値を求めたら…)
Mathematicaで3×3の固有値を求めたら…
このQ&Aのポイント
- Mathematicaを使用して3×3の行列の固有値を求める方法について説明します。
- ヘルプを使用して固有値を求めたところ、不明な値が出てきて困っています。
- 固有値の一つがわけのわからない形で表示されています。何を間違っているのか教えてください。
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
R[a_, b_, c_, d_, l_, m_, n_] := {{-a - l, b, 0}, {a, -b - c - m, d}, {0, c, -d - n}} ToRadicals[Eigenvalues[R[a, b, c, d, l, m, n]]] とすれば、意味のわかる答えが出てきますが、たぶん役には立たないでしょう。mathematicaでは3次以上の代数方程式を解かすと、最小多項式に分解し、さらに最小多項式の根にある規則で順番をつけ、その根である、というように表現します。 具体的には、Root[#^5 - 2 # + 1&,1]とは、x^5-2x+1=0の1番目の根、という意味です。#をたとえばxに置き換えればいいのです。 Root[#^5 - 2 # + 1&,1]は一意的な複素数を表しますので、このままの形で計算することができます。たとえば、 Simplify[Root[#^5 - 2 # + 1&,1]+Root[#^5 - 2 # + 1&,2]+Root[#^5 - 2 # + 1&,3]+Root[#^5 - 2 # + 1&,4]+Root[#^5 - 2 # + 1&,5]] これが0になることは解と係数の関係から明らかですよね。 Rootオブジェクトをよく知っている表示に直したければ、ToRadicals[Root[…]]を用います。そうするとべき根と四則を用いた表示が与えられます。 Rootオブジェクトで記号が使われていなければ、N[Root[…]]で近似値を計算させることもできます。質問者様が書かれているものだと、記号が多用されていますので、近似値を出すことは不可能です。
お礼
回答ありがとうございます。 完璧です!!! ありがとうございました。