Olyan függvényt kerestem, amely segít megszerezni az adott mellékmátrixot, azt tapasztaltam, hogy megkaphatja a mátrix kofaktorait, de csak a “Combinatorica” csomag használatával, amelyet nem tudtam megszerezni.
Ha tud bármilyen parancsot, vagy ha ismeri az effektív függvény létrehozásának hatékony módjait, kérem, segítsen nekem.
Megjegyzések
válasz
Ez csak azért van, hogy nyilvántartásba vegyem a választ, így a kérdés eltávolítható a nem megválaszolt listáról.
Az alábbiak a Minors .
Határozza meg a mátrix mellékét:
adj[m_] := Map[Reverse, Minors[Transpose[m], Length[m] - 1], {0, 1}] * Table[(-1)^(i + j), {i, Length[m]}, {j, Length[m]}]
Megjegyzések
- Jól sikerült . De ' tévedsz: a kérdést csak azután távolítják el a megválaszolatlan halomból, hogy felértékelték válaszokat. Várjon … most ' igazad van 🙂
- Tudomásul veszem, hogy fennáll a kockázat, de általában van valaki, aki hajlandó hogy elvegyem a csalit 🙂
- Mi ' mindannyian itt vagyunk a képviselőért 🙂
- @belisarius. Ismétlés? Milyen képviselő? Ez pro bono munka (CW).
- Ez volt az oka a mosolyogásomnak!
Válasz
Itt van egy egyszerűbb válasz:
adj[m_] := Inverse[m] Det[m] Megjegyzések
- Szépen sikerült. $ \ phantom {} $
- Ez csak négyzetmátrixok esetén működik. A klasszikus adjoint (más néven adjugátum) bármilyen dimenziójú mátrixokra meghatározható, és a @m_goldberg fenti válasza a helyes módja annak, ha nem -négyzetmátrixok.
- És csak akkor működik, ha az inverz létezik.
- @MichaelSeifert Az elfogadott válasz működik a nem négyzet alakú mátrixokon? Nekem nem ' t. Úgy gondolom, hogy ' s, mert az {i, length [m]} és {j, length [m]} kifejezések végül négyzet alakú táblázatot alkotnak.
Minors[]súgóban, az " alkalmazások alatt "