Wells Graph
Author
Eric W. Weisstein
Title
Wells Graph
Description
The Wells graph, sometimes also called the Armanios-Wells graph, is a quintic graph on 32 nodes and 80 edges that is the unique distance-regular graph with intersection array {5,4,1,1;1,1,4,5}. It is also distance-transitive. It is a double cover of the complement of the Clebsch graph (Brouwer et al. 1989, p. 266). It is implemented in the Wolfram Language as GraphData["WellsGraph"]. It has graph diameter 4, girth 5, graph radius 4, and is Hamiltonian and nonplanar. It has...
Category
Educational Materials
Keywords
URL
http://www.notebookarchive.org/2019-07-0z4aido/
DOI
https://notebookarchive.org/2019-07-0z4aido
Date Added
2019-07-02
Date Last Modified
2019-07-02
File Size
2.56 megabytes
Supplements
Rights
Redistribution rights reserved



Wells Graph
Wells Graph
Author
Author
Eric W. Weisstein
July 23, 2018
July 23, 2018
©2018 Wolfram Research, Inc. except for portions noted otherwise
Graph
Graph
In[]:=
<<MathWorld`Graphs`


Default
Default
In[]:=
GraphData["WellsGraph"]//StyleGraphs
Out[]=
All
All
In[]:=
GraphicsGrid[Partition[GraphData["WellsGraph","Graph","All"],UpTo[8]],ImageSize800]//StyleGraphs
Out[]=
LCF
LCF
In[]:=
GraphData["WellsGraph","LCFNotations"]
Out[]=
Missing[NotAvailable,{{{{-13,-9,-6},{-4,4,10},{-12,6,12},{-10,9,13}},8}}]
In[]:=
GraphicsGrid[Partition[GraphData["WellsGraph","Graph","LCF"],UpTo[8]],ImageSize800]//StyleGraphs
Out[]=
Properties
Properties
In[]:=
GraphData["WellsGraph","DistanceRegular"]
Out[]=
True
In[]:=
GraphData["WellsGraph","Quintic"]
Out[]=
True
In[]:=
"DistanceRegular"/.GraphData["WellsGraph","NotationRules"]
Out[]=
{{5,4,1,1},{1,1,4,5}}
In[]:=
GraphData["WellsGraph","Spectrum"]//SpectrumForm
Out[]=
5
(-3)
8
(-
5
)10
1
8
5
1
5
In[]:=
GraphData["WellsGraph","CospectralGraphs"]
Out[]=
{}
"There are three distinct graphs having the spectrum of the Wells graph (van Dam and Haemers 2003)."
In[]:=
Select[GraphData[All],GraphData["WellsGraph","Spectrum"]===GraphData[#,"Spectrum"]&]
Out[]=
{WellsGraph}


Cite this as: Eric W. Weisstein, "Wells Graph" from the Notebook Archive (2018), https://notebookarchive.org/2019-07-0z4aido

Download

