Ejemplo 2 pasos, ejecutados en orden en una sola sesión. Cada paso se ejecutó contra el motor y la salida de abajo es lo que produjo.
data = Select[ParallelTable[Graphics3D[{Cuboid /@ Position[CellularAutomaton[{n, {2, 1}, {1, 1, 1}}, {{{{1}}}, 0}, {{{8}}}], 1]}, Boxed -> False], {n, 2, 120, 2}], Length[#[[1, -1]]] > 3&];Sin salida - este paso prepara algo para el siguiente.
GraphicsGrid[Partition[data, 7], Frame -> All, ImageSize -> Medium]-Graphics-Todas las recetas · Referencia de funciones · Usar esto desde un cliente MCP