Ulam's Spiral with Oppermann's Diagonals (quarter-square)

Ulams Spiral With Oppermanns Diagonals



Solusyon:

Simula saGrap [u] maaari mong kunin ang mga coordinate ng mga vertex bilang mga sumusunod

gr = Grap [u]; crds = AbsoluteOptions [gr, VertexCoordinates];

Ang grap kasama ang mga diagonal ay maaaring iguhit ayon sa



Grap [VertexList [gr], Union [u, q1, q2, q3, q4], crds]

Mga graphic na Mathematica




Maaari mo ring gamitinAng GraphEmbedding upang makuha ang mga coordinate ng vertex:



Grap [VertexList [g = Grap [u]], Union [u, q1, q2, q3, q4], VertexCoordinates -> GraphEmbedding [g]]

ipasok ang paglalarawan ng imahe dito