Diseños en 4D y en dimensiones superiores 

Trace gráficos en dimensiones superiores.

Obtenga la coordenada cuatridimensional de un gráfico de hipercubo .

In[1]:=

X graph = HypercubeGraph[4];

In[2]:=

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

Trace gráficos con distintas proyecciones.

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