10
$\begingroup$

I am trying to generate the Petrie polygon projection of the 8-cube in Mathematica, like this one:

enter image description here

I tried using, for example, the HypercubeGraph function:

HypercubeGraph[8]

which generates

enter image description here

As you can tell from the lack of symmetry (notice the shape of the innermost ring, for example), this is not the right projection. I also tried looking at some GraphPlot options like Method:

GraphPlot[HypercubeGraph[8], Method -> "SpringElectricalEmbedding"]

but to no avail. How can I generate the Petrie polygon projection of an 8-cube in Mathematica?

Improve this question
$\endgroup$

1 Answer 1

Reset to default
10
$\begingroup$

As I understand this, GraphData are based on many nice custom pre-set layouts. Graph is based on algorithms that compute layouts, so computation is not always guaranteed to result in a specially defined geometry.

SetProperty[GraphData[{"Hypercube", 8}], VertexStyle -> Red]

enter image description here

Improve this answer
$\endgroup$
0

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.