Layouts 4D e de dimensões mais elevadas 

Desenhe grafos em dimensões mais elevadas.

Obtenha a coordenada de quatro dimensões de um grafo de hipercubo .

In[1]:=

X graph = HypercubeGraph[4];

In[2]:=

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

Desenhe grafos com diferentes projeções.

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]=