Integral Embedding

Author

Eric W. Weisstein
December 11, 2020

This notebook downloaded from http://mathworld.wolfram.com/notebooks/GraphTheory/IntegralEmbedding.nb.

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

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

Platonics

GraphData["Platonic"]

MInimalIntegral

GraphicsGrid[Map[IntegralDrawing,
DeleteCases[GraphData[#,"Graphs","MinimalIntegral"]&/@GraphData["Platonic"],{}],{2}],ImageSize->600,Spacings->{-50,10}]

MinimalPlanarIntegral

GraphicsGrid[Partition[IntegralDrawing/@
DeleteCases[GraphData[#,"Graph","MinimalPlanarIntegral"]&/@GraphData["Platonic"],{}],2,2,{1,1},{}],ImageSize->500,Spacings->-30]