Hledal jsem funkci, která by mi pomohla získat adjointovou matici, protože jsem zjistil, že můžete získat kofaktory matice, ale pouze pomocí balíčku „Combinatorica“, který jsem nemohl získat.
Pokud znáte jakýkoli příkaz nebo pokud znáte efektivní způsoby vytvoření funkce, která to umožňuje, pomozte mi.
Komentáře
Odpověď
Je to jen proto, abychom dostali zaznamenanou odpověď, takže otázka lze odstranit ze seznamu neodpovězených.
Následující text je převzat z příkladu uvedeného v části Aplikace v dokumentaci pro Minors .
Definujte adjoint matice:
adj[m_] := Map[Reverse, Minors[Transpose[m], Length[m] - 1], {0, 1}] * Table[(-1)^(i + j), {i, Length[m]}, {j, Length[m]}]
Komentáře
- Dobrá práce . Ale ' se mýlíte: otázka bude odstraněna z nezodpovězené hromádky až poté, co přijala odpovědi. Počkejte … nyní máte ' pravdu 🙂
- Uvědomuji si, že existuje určité riziko, ale obvykle existuje někdo ochotný vzít si návnadu 🙂
- My ' jsme všichni zástupci zde 🙂
- @belisarius. Zástupce? Jaký zástupce? Toto je pro bono práce (CW).
- To byl důvod mého smajlíka!
Odpověď
Tady je jednodušší odpověď:
adj[m_] := Inverse[m] Det[m] Komentáře
- Dobrá práce. $ \ phantom {} $
- Funguje to pouze pro čtvercové matice. klasický adjoint (nazývaný také adjugát) lze definovat pro matice libovolné dimenze a výše uvedená odpověď od @m_goldberg je správný způsob, jak to udělat pro – čtvercové matice.
- Funguje pouze v případě, že existuje inverze.
- @MichaelSeifert Funguje pro vás přijatá odpověď na jiné než čtvercové matice? Pro mě to není ' t. Myslím, že ' s, protože výrazy {i, délka [m]} a {j, délka [m]} nakonec vytvoří hranatý stůl.
Minors[]v části " Aplikace "