Can't print all of the 4th Menger Sponge Iteration
- To: mathgroup at smc.vnet.net
- Subject: [mg78620] Can't print all of the 4th Menger Sponge Iteration
- From: Zeno <zeno333 at mindspring.com>
- Date: Thu, 5 Jul 2007 04:12:17 -0400 (EDT)
Here is the code I have for the 3rd iteration of the Menger Sponge.....
_____________________________
In[1]=pieces=Complement[Flatten[Table[{i,j,k},{i,0,2},{j,0,2},{k,0,2}],2]
,{{1,1,1},{0,1,1},{2,1,1},{1,0,1},{1,2,1},{1,1,0},{1,1,2},}]
Out[1]={{0,0,0},{0,0,1},{0,0,2},{0,1,0},{0,1,2},{0,2,0},{0,2,1},{0,2,2},
{1,0,0},{1,0,2},{1,2,0},{1,2,2},{2,0,0},{2,0,1},{2,0,2},{2,1,0},{2,1,2},
{2,2,0},{2,2,1},{2,2,2}}
In[2]=menger[cornerPt_, sideLen_, n_] :=
menger[cornerPt + #1*(sideLen/3), sideLen/3, n - 1] & /@ pieces
In[3]=menger[cornerPt_, sideLen_, 0] :=
Cuboid[cornerPt, cornerPt + sideLen*{1, 1, 1}]
In[4]=Graphics3D[menger[{0, 0, 0}, 1, 3]]
________________________________
This prints out fine. the entire sponge prints out. However, when I
change the last input line to this to make it a 4th iteration menger
Sponge...
Graphics3D[menger[{0, 0, 0}, 1, 4]]
It displays the 4th iteration sponge on the screen fine...i can rotate
it in real time etc..(its slow of course). When i try and print it out
though, the bottom part of the Sponge does not print out...(there is
also a dimmed out part at the bottom before it drops out completely.)
Its not an ink issue, and the small, less complicated 3rd iteration
prints out fine. If something were wrong with the code for the 4th
iteration, then it would not display the 4th correctly, right?? it
displays on the screen fine, just will not print out al of it on my
printer. i am using the new Kodak 5300 AIO printer. I tried making the
default output size in bytes in the Preferences larger than the defaul
1 Megabyte, but when i do that, it does not print out at all, just
hangs the printer. is the another setting in Mathematica 6.0 that
controls how much of a complex large graphic can be printed???