4D and Higher-Dimensional Layouts 

Draw graphs in higher dimensions.

Obtain the four-dimensional coordinate of hypercube graph .

In[1]:=

X graph = HypercubeGraph[4];

In[2]:=

X coords = GraphEmbedding[graph, "SpringElectricalEmbedding", 4];

Draw graphs with different projections.

In[3]:=

X proj1[{x_, y_, z_, w_}] := {Sqrt[3]*(z/2 + w/6), y + 1/2*(z + w), Sqrt[6]*w/3}

In[4]:=

X proj2[{x_, y_, z_, w_}] := 2 (Sqrt[9]/(Sqrt[9] - w)) {x, y, z}/4

In[5]:=

X Table[Graph3D[graph, VertexCoordinates -> (p /@ coords)], {p, {proj1, proj2}}]

Out[5]=