Suetake Graph

Author

Eric W. Weisstein
October 17, 2018

This notebook downloaded from http://mathworld.wolfram.com/notebooks/GraphTheory/SuetakeGraph.nb.

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

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

Construction

distanceregular.org

g=DistanceRegularGraph["http://www.distanceregular.org/graphdata/suetake.am"]

RecognizeGraph[g]

VertexCount[g]

GraphDiameter[g]//Timing

RegularParameters[g]//Timing

DistanceRegularGraphQ[g]//Timing

IntersectionArray[g]//Timing

IntegerSpectrum[g]//SpectrumForm

GroupOrder[GraphAutomorphismGroup[g]]

HamiltonianGraphQ[g]

GraphData

GraphDataString

VertexCount[g]

file=OpenWrite["~/suetake.m"]

WriteString[file,GraphDataString[g,
"StandardName"->"SuetakeGraph",
"Name"->"Suetake graph",
"Embeddings"->None,
"Information"->"SuetakeGraph",
"Classes"->{"DistanceRegular","Noncirculant","Nongrid"},
Debug->True,
TimeConstraint->10]]

Close[file]