与えられた随伴行列を取得するのに役立つ関数を探していましたが、行列の補因子を取得できるのは入手できなかった「コンビナトリカ」パッケージを使って。
コマンドを知っている場合、またはこれを行う関数を作成する効果的な方法を知っている場合は、私を助けてください。
コメント
回答
これは記録にある回答を得るためだけなので、質問未回答リストから削除できます。
以下は、 Minors のドキュメントのアプリケーションセクションにある例から抜粋したものです。 a>。
行列の随伴作用素を定義します：
adj[m_] := Map[Reverse, Minors[Transpose[m], Length[m] - 1], {0, 1}] * Table[(-1)^(i + j), {i, Length[m]}, {j, Length[m]}]
コメント
- よくできました。しかし、あなたは'間違っています。質問は、賛成の回答があった後にのみ、未回答の山から削除されます。 待って …今あなたは'正しいです：）
- リスクが伴うことはわかっていますが、通常は喜んで誰かがいます餌を取るために：）
- 私たちは'ここの担当者のためにすべてです：）
- @belisarius。担当者？何の担当者？これはプロボノの仕事（CW）です。
- それが私の笑顔の理由でした！
回答
簡単な答えは次のとおりです：
adj[m_] := Inverse[m] Det[m] コメント
- よくできました。$ \ phantom {} $
- これは正方行列でのみ機能します。 古典的随伴（随伴とも呼ばれます）は、任意の次元の行列に対して定義できます。上記の@m_goldbergによる回答は、非余因子に対して正しい方法です。 -正方行列。
- 逆行列が存在する場合にのみ機能します。
- @MichaelSeifert受け入れられた答えは、非正方行列で機能しますか？ '私にはありません。 'は、{i、length [m]}と{j、length [m]}の用語が最終的に正方形のテーブルを作成するためだと思います。
Minors[]のヘルプの"アプリケーション"