勾股定理:在平面上的一个直角三角形中,两个直角边边长的平方加起来等于斜边长的平方。...在Mathematica软件里构造勾股树很简单,方法也有多种,下面就是一种实现,通过平移旋转缩放然后重复迭代。...[Hexahedron/@pts]
上面的代码速度有些慢,迭代15次生成数据点耗时大约60s(CPU i7-9750H),我们使用Wolfram语言中的Compile和Listable属性进行加速:
Clear...&,N@{{{0,0,0},{1,0,0},{1,1,0},{0,1,0},{0,0,1},{1,0,1},{1,1,1},{0,1,1}}},n]];//AbsoluteTiming
Graphics3D...[{EdgeForm[],Hexahedron@pts},ImageSize->Full]
代码优化之后,迭代15次只需0.03秒,比原来提速2000倍。