Sándor Kabai​
​Rhombic hexecontahedra (RH) and rhombic triacontahedra (RT) forming an RH​
Golden rhombuses made of RH-RT bars are placed on RH.
In[]:=
(*Vary"n"tochangeedgelength.*)​​n=1;​​ϕ=1.618;​​β=ArcTan[0.618];​​β1=ArcTan[0.618^2];​​γ=Pi/2-2β;​​rh=PolyhedronData["RhombicHexecontahedron","Faces"];​​rt={RGBColor[0,1,1],PolyhedronData["RhombicTriacontahedron","Faces"]};​​rtup=Translate[rt,{0,0,ϕ^2}];​​rtx=Translate[rt,{-ϕ^2Sin[2β],0,2.618Cos[2β]}];​​az1=Table[Translate[{rh,rtup},{0,0,i5.236}],{i,n}];​​ax1=Table[Translate[{rh,rtx},i{-5.236Sin[2β],0,5.236Cos[2β]}],{i,n}];​​az2=Translate[{az1,rh,rtup},{-(n+1)5.236Cos[γ],0,(n+1)5.236Sin[γ]}];​​ax2=Translate[{rh,rtx,ax1},{0,0,(n+1)5.236}];​​rhtip={Yellow,Translate[rh,{-(n+1)5.236Sin[2β],0,(n+1)5.236+(n+1)5.236Sin[γ]}]};​​rhomb1=Table[Rotate[Rotate[Rotate[{{RGBColor[1,1,0.3],rh},rtx,az1,ax2,rhtip},β,{0,1,0}],β1,{1,0,0}],i2Pi/3,{0,0,1}],{i,3}];​​u=Cos[β](n+1)5.236;​​r2=Translate[Rotate[{rhomb1},Pi/2-β1,{1,0,0}],{0,2u+u/ϕ,-Cos[β](n+1)5.236}];​​r3=Rotate[r2,Pi,{0,1,0}];​​r4=Rotate[{r2,r3},Pi,{0,0,1}];​​arh=Table[Rotate[Rotate[{r2,r3,r4},β,{1,0,0}],i2Pi/5-2Pi/20,{0,0,1}],{i,5}];​​rhbig={Green,Scale[rh,u{1,1,1},{0,0,0}]};​​Graphics3D[{arh,rhbig},SphericalRegionTrue,ViewPoint{0,0,10},ViewAngle0.1,BoxedFalse,ImageSize450]
Out[]=
In[]:=
Graphics3D[{ax1},SphericalRegionTrue,ViewPoint{0,10,0},ViewAngle0.1,BoxedFalse,ImageSize300]
Out[]=
In[]:=
Graphics3D[{az2},SphericalRegionTrue,ViewPoint{0,10,0},ViewAngle0.1,BoxedFalse,ImageSize300]
Out[]=