regular map

hbghlyj

以Dodecahedron(正十二面体) 为例, 投影到XY平面

1. PolyhedronData["Dodecahedron", "Points"] /. Point -> (#[[1 ;; 2]] &) //N
2. PolyhedronData["Dodecahedron", "FaceIndices"]

Copy the Code

注意Mathematica的列表index是从1开始的,导入Asymptote需注意p=p--Points[i-1];

可以与Wikipedia的regular map图对比: The projection of the regular dodecahedron on the H3 Coxeter plane.

主要的代码可以重复使用:

1. for(int[] face:FaceIndices){
2.   guide p;
3.   for(int i:face){
4.     p=p--Points[i-1];
5.   }
6.   draw(p--cycle);
7. }
8. for(pair i:Points){
9.   dot(i,red);
10. }

Copy the Code