Permanent

Author

Eric W. Weisstein
February 19, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/LinearAlgebra/Permanent.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Permanent.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Code

Permanent[m_List]:=With[{v=Array[x,Length[m]]},
Coefficient[Times@@(m.v),Times@@v]
]

Examples

Permanent[{{1,2,3},{4,4,5},{5,2,7}}]

Binary Matrices

BinaryMatrices[2]

Max[Permanent/@BinaryMatrices[2]]

Max[Permanent/@BinaryMatrices[3]]

Max[Permanent/@BinaryMatrices[4]]

Table[Permanent[Table[1,{n},{n}]],{n,5}]

Table[n!,{n,5}]