Mathematica traduire - obtenir plusieurs copies

Question

La commande est

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

qui crée une copie supplémentaire de la figure originale. Si j'en veux 1 copie de plus sur la même image, comment puis-je spécifier le vecteur de traduction pour cela? Comment cette commande devrait-elle être modifiée?

Answer 1

Dans les versions 6 et 7, vous avez à peu près pour créer un tableau de chiffres traduits:

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

Dans la version 8, vous pouvez également utiliser une figure avec une table de vecteurs de traduction:

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

qui peut économiser de la mémoire et être un peu plus rapide.