Перевод Mathematica - получение нескольких копий

Question

Команда

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

, которая создает 1 дополнительную копию исходного рисунка. Если я хочу еще одну копию на том же изображении, как мне указать вектор перевода для него? Как изменить эту команду?

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}]]]

, которые могут сэкономить память и быть немного быстрее.