New in Wolfram Mathematica 7: Built-in Parallel Computing  previous | next 
Create Tables of Results in Parallel
In[1]:=

Click for copyable input
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 &];
In[2]:=

Click for copyable input
GraphicsGrid[Partition[data, 7], Frame -> All, ImageSize -> 1000]
Out[2]=