好玩的Mathematica编程
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]...
原创
2020-02-04 00:37:39 ·
1795 阅读 ·
0 评论