Group Abstract

Message Boards

WOLFRAM COMMUNITY

13K Views

4 Replies

11 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Staff Picks Mathematics Visual Arts Dynamic Interactivity Geometry Graphics and Visualization Wolfram Language

[GIF] Throw (Hamiltonian cycle on the 120-cell)

Clayton Shonkwiler

Clayton Shonkwiler, Colorado State University

Posted 8 years ago

POSTED BY: Clayton Shonkwiler

4 Replies

Sort By:

Ed Pegg

Ed Pegg, Wolfram Research

Posted 1 year ago

Simpler code. RootReduce[ With[{a = GoldenRatio}, ResourceFunction["SignedPermutations"][#, "Even"] & /@ { {0, 0, 2, 2}, {a, a, a, 1/a^2}, {1, 1, 1, Sqrt[5]}, {1/a, 1/a, 1/a, a^2}, {0, 1/a, a, Sqrt[5]}, {0, 1/a^2, 1, a^2}, {1/a, 1, a, 2}}]]

Simpler code.

RootReduce[
With[{a = GoldenRatio}, ResourceFunction["SignedPermutations"][#, "Even"] & /@ {
{0, 0, 2, 2}, {a, a, a, 1/a^2}, {1, 1, 1, Sqrt[5]}, {1/a, 1/a, 1/a, a^2}, 
{0, 1/a, a, Sqrt[5]}, {0, 1/a^2, 1, a^2}, {1/a, 1, a, 2}}]]

POSTED BY: Ed Pegg