RH Fractal
Sándor Kabai
Rhombic hexacontahedra (RH) are placed on the tips of a larger RH.
dodv=PolyhedronData["Dodecahedron","VertexCoordinates"];​​rh={Rotate[PolyhedronData["RhombicHexecontahedron","Faces"],Pi,{0,0,1}]};​​rh1=Scale[rh,0.618^3];​​rh2=Scale[rh,1.618^3];​​a1={RGBColor[0.6,1,1],Map[Translate[rh1,#]&,1.618dodv]};​​a2={Map[Translate[{{Yellow,rh},a1},#]&,1.618^4dodv]};​​Graphics3D[{rh2,a2},SphericalRegionTrue,BoxedFalse,ViewPoint{0,0,100}ImageSize400]
Out[]=
In[]:=
​​Graphics3D[{{Yellow,rh},a1},SphericalRegionTrue,BoxedFalse,ViewPoint{0,0,10},ViewAngle0.1,ImageSize500]
Out[]=
In[]:=
dodv=PolyhedronData["Dodecahedron","VertexCoordinates"];​​rh={Rotate[PolyhedronData["RhombicHexecontahedron","Faces"],Pi,{0,0,1}]};​​rh1=Scale[rh,0.618^3];​​rh2=Scale[rh,1.618^3];​​a1={RGBColor[0.3,1,1],Map[Translate[rh1,#]&,1.618dodv]};​​a2={Map[Translate[{{Yellow,rh},a1},#]&,1.618^4dodv]};​​Graphics3D[{rh2,a2},SphericalRegionTrue,BoxedFalse,ViewPoint{0,0,10},ViewAngle0.1,ImageSize500]
Out[]=