Pasch Configuration

Author

Eric W. Weisstein
December 17, 2022

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

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

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

Graphic

RegionIntersection[Line[{{1,0},{1,1}/2}],Line[{{6,0},{8,8}}/10]]

v={{0,0},{6/10,0},{1,0},{8,8}/10,{1/2,1/2},{(17/25),(8/25)}};
lines={{1,2,3},{1,5,4},{3,6,5},{2,6,4}};

ConfigurationDiagram[v,lines]

g=ConfigurationGraph[v,lines]

cgname=RecognizeGraph[g]

GraphData[cgname,"Graph","Configuration"]

RecognizeGraph[LeviGraph[lines]]

GraphData["PaschGraph","Configurations"]

RecognizeGraph/@LeviGraph/@%