나는 주어진 하나의 인접 행렬을 얻는 데 도움이되는 함수를 찾고 있었는데, 행렬의 보조 인자를 얻을 수 있지만 “Combinatorica”패키지를 사용하여 얻을 수 없었습니다.
명령을 알고 있거나이를 수행하는 함수를 만드는 효과적인 방법을 알고 있다면 저를 도와주세요.
댓글
답변
이것은 기록에 대한 답변을 얻기위한 것이므로 질문 미 응답 목록에서 삭제할 수 있습니다.
다음은 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 {} $
- 이것은 정사각형 행렬에서만 작동합니다. 고전적인 adjoint (adjugate라고도 함)는 모든 차원의 행렬에 대해 정의 할 수 있으며 위의 @m_goldberg에 의한 대답은 비 -제곱 행렬.
- 역이 존재하는 경우에만 작동합니다.
- @MichaelSeifert 허용 된 답변이 정사각형이 아닌 행렬에서도 작동합니까? 저에게는 ' 없습니다. {i, length [m]} 및 {j, length [m]} 용어가 결국 정사각형 테이블을 만들기 때문에 '라고 생각합니다.
입니다.
Minors[]도움말, " 응용 프로그램 "