Jeg har ledt efter en funktion, der hjælper mig med at få den sammenhængende matrix oa givet en, jeg fandt ud af, at du kan få kofaktorer til en matrix, men ved hjælp af “Combinatorica” -pakken, som jeg ikke kunne få.
Hvis du kender en kommando, eller hvis du kender effektive måder at oprette en funktion, der gør dette, skal du hjælpe mig.
Kommentarer
Svar
Dette er bare for at få et svar på rekorden så spørgsmålet kan fjernes fra listen, der ikke er besvaret.
Følgende er taget fra et eksempel givet i afsnittet Ansøgning i dokumentationen til Minors .
Definer en matrixs tilknytning:
adj[m_] := Map[Reverse, Minors[Transpose[m], Length[m] - 1], {0, 1}] * Table[(-1)^(i + j), {i, Length[m]}, {j, Length[m]}]
Kommentarer
- Godt gået . Men du ' er forkert: spørgsmålet fjernes først fra den ubesvarede bunke, efter at det har opstemt svar. Vent … nu har du ' ret 🙂 🙂
- Jeg er klar over, at der er en risiko involveret, men normalt er der nogen villige at tage lokkemaden 🙂
- Vi ' er alt for rep her 🙂
- @belisarius. Rep? Hvilken rep? Dette er pro bono arbejde (CW).
- Det var grunden til min smiley!
Svar
Her er et enklere svar:
adj[m_] := Inverse[m] Det[m] Kommentarer
- Pænt gjort. $ \ phantom {} $
- Dette fungerer kun for firkantede matricer. klassisk adjoint (også kaldet adjugat) kan defineres for matricer af enhver dimension, og svaret ovenfor af @m_goldberg er den rigtige måde at gøre det på ikke -kvadratmatricer.
- Og fungerer kun, hvis det omvendte findes.
- @MichaelSeifert Fungerer det accepterede svar for dig på ikke-kvadratiske matricer? Det ' t for mig. Jeg tror, at ' s fordi termerne {i, længde [m]} og {j, længde [m]} ender med en firkantet tabel.
Minors[]under " Applikationer "