Basic Examples
Basic Examples
Retrieve the graph:
In[]:=
ResourceData["Steiner Triple System A9 Graph"]
Out[]=
Summary properties:
In[]:=
ResourceData["Steiner Triple System A9 Graph",All]["Summary"]
Out[]=
Name | Steiner Triple System A9 Graph |
VertexCount | 45 |
EdgeCount | 918 |
Description | The Second DIMACS Implementation Challenge: 1992-1993 |
ByteCount |
Basic Applications
Basic Applications
Find the maximum clique:
In[]:=
g=ResourceData["Steiner Triple System A9 Graph"];
In[]:=
maxclique=FindClique[g]
Out[]=
{{4,5,6,7,8,9,10,19,22,25,28,31,34,37,40,43}}
Show the maximum clique:
HighlightGraphg,Subgraph[g,maxclique],,
Out[]=