标签：Map Cos 编程 Mathematica t2 verts faces 好玩 Sin

1、复杂多面体

Ry[t_] := {{Cos[t], 0, Sin[t]}, {0, 1, 0}, {-Sin[t], 0, Cos[t]}}; 
Rz[t_] := {{Cos[t], -Sin[t], 0}, {Sin[t], Cos[t], 0}, {0, 0, 1}};
n = 6; t2 = Pi/5;
t1 = t2/2;
alpha = ArcCos[-Sqrt[5.0]/5];
dz = Sin[t1]^2 Tan[alpha/2];
z = GoldenRatio Tan[alpha/2]/2 + dz;
scale = (Cos[t1] - Sqrt[3.0 (1 - Cos[t2])/2])/(2 Cos[t2] - 1);
R = scale Rz[ArcCos[Cos[t1] + dz^2 (scale - 1)^2/(2 scale)]];
verts = {};
verts0 = Table[{Cos[i t2], Sin[i t2], (2 Mod[i, 2] - 1) dz}, {i, 0, 
    9}];
Do[verts = Join[verts, Map[{0, 0, z} + # &, verts0]]; 
  verts0 = Map[R.# &, verts0], {n + 1}];
faces = Flatten[
   Table[10 i + {{j, Mod[j, 10] + 1, j + 10}, {j + 1, j + 10, 
       Mod[j + 10, 20] + 1}}, {i, 0, n - 1}, {j, 1, 10}], 2];
ToPolys[verts_, faces_] := Map[Polygon[verts[[#]]] &, faces];
Show[Graphics3D[{ToPolys[verts, faces], 
   Table[{ToPolys[Map[Rz[t + t2].Ry[Pi - alpha].# &, verts], faces], 
     ToPolys[Map[Rz[t].Ry[alpha].Rz[t2].# &, verts], faces]}, {t, 
     2 t2, 2 Pi, 2 t2}], ToPolys[Map[Ry[Pi].# &, verts], faces]}]]

欢迎加群：707914447

标签：Map,Cos,编程,Mathematica,t2,verts,faces,好玩,Sin
来源： https://blog.51cto.com/u_12355165/2782173

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。