Wolfram mathematica Mathematica翻译-获取多份副本

命令是

Show[{PolyhedronData["TruncatedOctahedron"], 
  Graphics3D[
   Translate[
    PolyhedronData["TruncatedOctahedron", "Faces"], {30, 30, 30}],
   {40, 40, 40}
     ]}]

---

这将创建原始图形的一个附加副本。如果我希望在同一图像上再创建一个副本，如何为其指定平移向量？该如何修改此命令？

在版本6和版本7中，您几乎必须创建一个已翻译图形的表格：

Graphics3D[
 Table[Translate[PolyhedronData["TruncatedOctahedron", "Faces"], 
   10 {Cos[2 i], Sin[i], Cos[3 i]}], {i, 60}]]

在版本8中，您还可以使用一个图形和一个平移向量表：

Graphics3D[
 Translate[PolyhedronData["TruncatedOctahedron", "Faces"], 
  Table[10 {Cos[2 i], Sin[i], Cos[3 i]}, {i, 60}]]]

这样可以节省内存，而且速度更快