Szukałem funkcji, która pomogłaby mi uzyskać macierz sprzężoną o podanej jednej. Okazało się, że można uzyskać kofaktory macierzy, ale tylko używając pakietu „Combinatorica”, którego nie mogłem pobrać.
Jeśli znasz jakieś polecenie lub znasz skuteczne sposoby tworzenia funkcji, która to robi, pomóż mi.
Komentarze
Odpowiedź
To jest tylko po to, aby uzyskać zapisaną odpowiedź, więc pytanie można usunąć z listy bez odpowiedzi.
Poniższy fragment pochodzi z przykładu podanego w sekcji Aplikacja dokumentacji Minors .
Zdefiniuj sprzężenie macierzy:
adj[m_] := Map[Reverse, Minors[Transpose[m], Length[m] - 1], {0, 1}] * Table[(-1)^(i + j), {i, Length[m]}, {j, Length[m]}]
Komentarze
- Dobra robota . Ale ' mylisz się: pytanie jest usuwane ze stosu bez odpowiedzi dopiero po uzyskaniu głosów za odpowiedziami. Czekaj … teraz ' masz rację 🙂
- Zdaję sobie sprawę, że wiąże się to z ryzykiem, ale zazwyczaj jest ktoś chętny złapać przynętę 🙂
- Jesteśmy ' wszyscy dla przedstawiciela tutaj 🙂
- @belisarius. Reprezentant? Jaki przedstawiciel? To jest praca pro bono (CW).
- To był powód mojej buźki!
Odpowiedź
Oto prostsza odpowiedź:
adj[m_] := Inverse[m] Det[m] Komentarze
- Świetnie. $ \ phantom {} $
- Działa to tylko dla macierzy kwadratowych. klasyczne sprzężenie (zwane także adiugatem) można zdefiniować dla macierzy o dowolnym wymiarze, a odpowiedź powyżej @m_goldberg jest właściwym sposobem na zrobienie tego w przypadku -square macierzy.
- I działa tylko wtedy, gdy istnieje odwrotność.
- @MichaelSeifert Czy zaakceptowana odpowiedź działa dla Ciebie na macierzach innych niż kwadratowe? Dla mnie to nie ' t. Myślę, że ' s, ponieważ terminy {i, length [m]} i {j, length [m]} tworzą kwadratową tabelę.
Minors[], pod " Aplikacje "