4D- und höher-dimensionale Layouts 

Zeichnen Sie Graphen in höheren Dimensionen.

Ermitteln Sie die vierdimensionalen Koordianten des hyperkubischen Graphen .

In[1]:=

X graph = HypercubeGraph[4];

In[2]:=

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

Zeichnen Sie Graphen mit unterschiedlichen Projektionen.

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