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