MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: all the possible minors of a matrix

  • To: mathgroup at smc.vnet.net
  • Subject: [mg73790] Re: all the possible minors of a matrix
  • From: Peter Pein <petsie at dordos.net>
  • Date: Wed, 28 Feb 2007 04:39:19 -0500 (EST)
  • References: <es13bi$o3s$1@smc.vnet.net>

Mark Novak schrieb:
> Hello,
...
> Minor[m_List?MatrixQ, {i_Integer, 
> j_Integer}]:=Abs[Drop[Transpose[A],{j}]],{i}]]
> Permanent[m_List]:=With[{v=Array[x,Length[m]]},Coefficient[Times@@(m.v),Times@@v]]
> 
> Then the following does work....
> 
> Minor[Abs[A],{1,3}]//MatrixForm
> Permanent[Minor[Abs[A],{i,j}]]/.{i->1,j->1}
> 
> But the problem is that while I can do each of the Minor and Permanent 
> calculations for specified rows i & columns j of the matrix, I can't 
> figure out how to do all n x n possible combinations of i and j.
> 
> Any suggestions would be much appreciated.
> Thanks!
> -mark
> 

Hi Mark,

use Outer:

B = Outer[Permanent[Minor[Abs[A], {##}]] &,
    Sequence @@ Range /@ Dimensions[A], 1]


hth,
Peter


  • Prev by Date: Re: Re: Hold and Equal
  • Next by Date: Beginner--Problem with FilledPlot
  • Previous by thread: Re: all the possible minors of a matrix
  • Next by thread: Re: all the possible minors of a matrix