Basic Examples
Basic Examples
Retrieve the graph:
In[]:=
ResourceData["4 Dimensional Keller Graph"]
Out[]=
Summary properties:
In[]:=
ResourceData["4 Dimensional Keller Graph",All]["Summary"]
Out[]=
Name | 4 Dimensional Keller Graph |
VertexCount | 171 |
EdgeCount | 9435 |
Description | The Second DIMACS Implementation Challenge: 1992-1993 |
ByteCount |
Basic Applications
Basic Applications
Find the maximum clique:
In[]:=
g=ResourceData["4 Dimensional Keller Graph"];
In[]:=
maxclique=FindClique[g]
Out[]=
{{4,9,13,19,86,91,100,120,126,164,168}}
Show the maximum clique:
HighlightGraphg,Subgraph[g,maxclique],,
Out[]=