Wolfram Data Repository
Immediate Computable Access to Curated Contributed Data
The Second DIMACS Implementation Challenge: 1992-1993
NP Hard Problems: Maximum Clique, Graph Coloring, and Satisfiability, The Second DIMACS Implementation Challenge: 1992-1993
(500 vertices, 9139 edges)
Retrieve the graph:
| In[1]:= | ![ResourceData["10-Fat Ring Graph with 500 vertices"]](https://www.wolframcloud.com/obj/resourcesystem/images/bf3/bf3d1a73-3f7a-4d0c-8233-f0f1e1cbce52/37782c0ef2c827c5.png) | 
| Out[1]= |  | 
Summary properties:
| In[2]:= | ![ResourceData["10-Fat Ring Graph with 500 vertices", All]["Summary"]](https://www.wolframcloud.com/obj/resourcesystem/images/bf3/bf3d1a73-3f7a-4d0c-8233-f0f1e1cbce52/4b0ea2e386ca25ee.png) | 
| Out[2]= |  | 
Find the maximum clique:
| In[3]:= | ![g = ResourceData["10-Fat Ring Graph with 500 vertices"];](https://www.wolframcloud.com/obj/resourcesystem/images/bf3/bf3d1a73-3f7a-4d0c-8233-f0f1e1cbce52/0d110c611e7c21c2.png) | 
| In[4]:= | ![maxclique = FindClique[g]](https://www.wolframcloud.com/obj/resourcesystem/images/bf3/bf3d1a73-3f7a-4d0c-8233-f0f1e1cbce52/095d2fc6c750e950.png) | 
| Out[4]= |  | 
Show the maximum clique:
| In[5]:= | ![HighlightGraph[g, Subgraph[g, maxclique], VertexCoordinates -> ReplacePart[
GraphEmbedding[g, "SpringElectricalEmbedding"], 
Thread[Map[VertexIndex[g, #]& , 
First[maxclique]] -> CirclePoints[{7.7, 7.7}, 5.5, 
Length[
First[maxclique]]]]], Sequence[
 EdgeStyle -> {Blank[] -> Opacity[0.05]}, GraphLayout -> "SpringElectricalEmbedding", VertexSize -> {Blank[] -> 0.5}]]](https://www.wolframcloud.com/obj/resourcesystem/images/bf3/bf3d1a73-3f7a-4d0c-8233-f0f1e1cbce52/74a61b0f710e62db.png) | 
| Out[18]= |  | 
Wolfram Research, "10-Fat Ring Graph with 500 vertices" from the Wolfram Data Repository (2019)