Is there an implementation of the resistance distance matrix (or just resistance matrix) for graphs available in Mathematica?
4
$\begingroup$
$\endgroup$
10
$\begingroup$
$\endgroup$
Based on the definition from the Wikipedia article, this should give you the resistance distance matrix of the graph g:
With[{Γ = PseudoInverse[KirchhoffMatrix[g]]},
Outer[Plus, Diagonal[Γ], Diagonal[Γ]] - Γ - Transpose[Γ]
]
