Blog

I’m implementing some calculations on networks, and one of the properties I’m using is the Subgraph Centrality (developed on this paper). The equation I’m using is the equation (4) on the paper. I wrote the following code for the equation: eigenvalues = Chop[Eigenvalues[N[Normal[AdjacencyMatrix[graph]]]]]; eigenvectors= Eigenvectors[N[Normal[AdjacencyMatrix[graph]]]]; subCentrality=Table[N[Sum[(Power[eigenvectors[[i,j]],2])*Exp[eigenvalues[[i]]], {i,VertexCount[graph]}]],{j,Length[eigenvectors]}]; Where ‘graph’ is any graph. The data I’mRead more