Mathematica翻译 - 获得多份副本

Question

命令是

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

这会创建原始图形的另外一个副本.如果我想在同一图像上再复制一份,我该如何为它指定翻译向量？该命令应如何修改？

Answer 1

在版本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}]]]

这可以节省内存,并且更快一些.