Graph Eccentricity

Author

Eric W. Weisstein
July 15, 2009

This notebook downloaded from http://www.ericweisstein.com.

For more information, see Eric's none entry http://www.ericweisstein.com.

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

Usage

?Eccentricity

Figure

EccentricityPlot[g_Graph]:=Module[{i,
v=Vertices[g],
e=Eccentricity[g],
r=Radius[g]
},
Graphics[{PointSize[.05],graphic[g],
Table[Text[e[[i]],v[[i]]+{.2,.2}],{i,Length[v]}],
RGBColor[1,0,0],Point/@v[[Position[e,r]//Flatten]]
},PlotRange->All,AspectRatio->Automatic]
]

Show[GraphicsArray[{
EccentricityPlot[RootedEmbedding[Trees[7][[6]],1]],
EccentricityPlot[RootedEmbedding[Trees[7][[2]],1]]
}]]

Enumeration

Table[Eccentricity/@AllGraphs[i],{i,6}]

Missing

l=Sort[GraphData[#,{"V","#"}]&/@Monitor[Select[GraphData[All],Head[GraphData[g=#,"Eccentricities"]]===Missing&],g]]

Print[{#,TimeConstrained[Eccentricity[Graph[#]],600]//Timing}]&/@l[[All,2]];