Basic Examples
Basic Examples
Retrieve the graph:
In[]:=
ResourceData["J(16,2,4) Generalized Johnson Graph"]
Out[]=
Summary properties:
In[]:=
ResourceData["J(16,2,4) Generalized Johnson Graph",All]["Summary"]
Out[]=
Name | J(16,2,4) Generalized Johnson Graph |
VertexCount | 28 |
EdgeCount | 210 |
Description | The Second DIMACS Implementation Challenge: 1992-1993 |
ByteCount |
Basic Applications
Basic Applications
Find the maximum clique:
In[]:=
g=ResourceData["J(16,2,4) Generalized Johnson Graph"];
In[]:=
maxclique=FindClique[g]
Out[]=
{{3,4,15,28}}
Show the maximum clique:
HighlightGraphg,Subgraph[g,maxclique],,
Out[]=