Polybe

Author

Eric W. Weisstein
February 8, 2011

This notebook downloaded from http://mathworld.wolfram.com/notebooks/RecreationalMath/Polybe.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Polybe.html.

©2011 Wolfram Research, Inc. except for portions noted otherwise

Code

cube[x_,y_,z_]:={
Table[Line[{{x,yy,zz},{x+1,yy,zz}}],{yy,y,y+1},{zz,z,z+1}],
Table[Line[{{xx,y,zz},{xx,y+1,zz}}],{xx,x,x+1},{zz,z,z+1}],
Table[Line[{{xx,yy,z},{xx,yy,z+1}}],{xx,x,x+1},{yy,y,y+1}]
}

be[x_,y_,z_,u]:={Cuboid[{x,y,z+1/2},{x+1,y+1,z+1}],cube[x,y,z]}
be[x_,y_,z_,d]:={Cuboid[{x,y,z},{x+1,y+1,z+1/2}],cube[x,y,z]}
be[x_,y_,z_,l]:={Cuboid[{x,y,z},{x+1/2,y+1,z+1}],cube[x,y,z]}
be[x_,y_,z_,r]:={}
be[x_,y_,z_,f]:={}
be[x_,y_,z_,b]:={}

Graphics

V5

Show[Graphics[Graphics3D[{be[0,0,0,u]},Boxed->False]],AspectRatio->Automatic]

Show[Graphics[Graphics3D[#,Boxed->False]],AspectRatio->Automatic]&/@{{be[0,0,0,u],be[0,0,1,d]},
{be[1.5,0,0,d],be[2.5,0,0,d]},
{be[4,0,0,d],be[5,0,0,l]}}

Show[Graphics[Graphics3D[#,Boxed->False]],AspectRatio->Automatic]&/@{{be[0,0,0,u],be[0,0,1,d]},
{be[1.5,0,0,d],be[2.5,0,0,d]},
{be[4,0,0,d],be[5,0,0,l]}}

Show[GraphicsArray[{{Graphics[Graphics3D[{be[0,0,0,d]},AspectRatio->Automatic,Boxed->False,ViewPoint->{0,-2,1}],AspectRatio->Automatic]},
{Graphics3D[{be[0,0,0,u],be[0,0,1,d],
be[1.5,0,0,d],be[2.5,0,0,d],
be[4,0,0,d],be[5,0,0,l]},
AspectRatio->Automatic,Boxed->False,ViewPoint->{0,-2,1}]}
}]]

V6

GraphicsGrid[{{Graphics[Graphics3D[{be[0,0,0,d]},Boxed->False]]},
{
Graphics3D[{be[0,0,0,u],be[0,0,1,d]},Boxed->False],
Graphics3D[{be[1.5,0,0,d],be[2.5,0,0,d]},Boxed->False],
Graphics3D[{be[4,0,0,d],be[5,0,0,l]},Boxed->False]
}
}]