Close packing of square beams
Sándor Kabai
Cubes are elongated to forms beams, and then are aligned along the three axes in an interwoven manner. The length (u) and frequency (fr) can be varied.
Cubes are elongated to forms beams, and then are aligned along the three axes in an interwoven manner. The length (u) and frequency (fr) can be varied.
In[]:=
cub=PolyhedronData["Cube","Faces"];u=10;fr=1;bx=Translate[Scale[cub,{u,1,1},{0,0,0}],{u/2-0.5,1,0}];by=Translate[Scale[cub,{1,u,1},{0,0,0}],{0,u/2-0.5,1}];bz=Translate[Scale[cub,{1,1,u},{0,0,0}],{1,0,u/2-0.5}];serzx=Table[Translate[{bz},{2i,0,0}],{i,fr}];serxy=Table[Translate[{bx},{0,2i,0}],{i,fr}];seryx=Table[Translate[{by},{2i,0,0}],{i,fr}];fully=Table[Translate[{bz,serzx},{0,2i,0}],{i,fr}];fullz=Table[Translate[{by,seryx},{0,0,2i}],{i,fr}];fullzz=Table[Translate[{bx,serxy},{0,0,2i}],{i,fr}];Graphics3D[{Yellow,fullzz,LightPink,fullz,LightCyan,fully,Pink,seryx,Yellow,serxy,Cyan,serzx,bz,Pink,by,Cyan,cub,Yellow,bx},Boxed->False,SphericalRegion->True,ViewPoint->{-100,100,100},ImageSize->500]
Out[]=
