好玩的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 ·
1703 阅读 ·
0 评论