Miquel Configuration

Author

Eric W. Weisstein
September 27, 2024

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Combinatorics/MiquelConfiguration.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/MiquelConfiguration.html.

©2024 Wolfram Research, Inc. except for portions noted otherwise

Graphic

Graphics[{PointSize[.03],Circle[{0,0},Sqrt[(1/2)^2+(1/4)^2]],Circle[{1,0},Sqrt[(1/2)^2+(1/4)^2]],Circle[{0,1},Sqrt[(1/2)^2+(1/4)^2]],Circle[{1,1},Sqrt[(1/2)^2+(1/4)^2]],Circle[{1/2,1/2},1/4],Circle[{1/2,1/2},3/4],MapIndexed[{{Red,Point[#]},Text[#2[[1]],.07{1,1}+#1,Background->White]}&,{{(1/2),-(1/4)},{(1/2),(1/4)},{(1/2),(3/4)},{(1/2),(5/4)},{-(1/4),(1/2)},{(1/4),(1/2)},{(3/4),(1/2)},{(5/4),(1/2)}}]},ImageSize->250,BaseStyle->{FontSize->12}]

Levi graph

LeviGraph[{{1,2,3,4},{5,6,7,8},{1,2,5,6},{3,4,7,8},{1,4,5,8},{2,3,6,7}}]

RecognizeGraph[%]

LeviGraph[{{1,2,5,6},{1,2,7,8},{1,4,5,8},{2,3,6,7},{3,4,5,6},{3,4,7,8}}]

RecognizeGraph[%]