## Basic Data of 4D regular polytopes

I prepared the Mathematica files and CVS files which included the basic data of 4D polytopes. The zipped file contains 6 files which correspond to 6 regular polytopes: 5 cells, 8 cells, 16 cells, 24 cells, 120 cells, and 600cells. Each file consists of 6 basic properties as follows:

- Locations of vertices of the polytope
- Pairs of vertex numbers which consists edges of the polytope
- Vertex numbers of adjacent vertices of each vertex of the polytope
- Vertex numbers of each face of the polytope
- Face numbers of adjacent faces of each face of the polytope
- Face numbers of each cell of the polytope

Unzipped filenames are like “f (n). m” where (n) corresponds to the number of cells. For 5 cells, its filename is “f5.m” for example. If we assume that these files allocated on the directory “~/tmp/”, we can use the data like the following:

With[{n = 24, dir = “~/tmp/”},

Module[{vers, edgs, neis, faces, fneis, cells},

{vers, edgs, neis, faces, fneis, cells} =

Get[dir <> “f” <> ToString[n] <> “.m”];

cells

]

]

Please inform me if you find any mistake.

- Data (Mathematica, zip)
- Data (csv, zip)
- Notebook (in preparation)
- PDF (in preparation)

## Post a Comment