Torus fractal
Sándor Kabai
Four tori are places around a larger torus, then this assembly is placed four time around the original torus. This process is repeated to form a fractal structure.
In[]:=
tor=RevolutionPlot3D[{Sin[t]+5,Cos[t]},{t,0,2Pi},{z,0,2Pi},MeshNone,PlotStyleFaceForm[Yellow]][[1]];​​tor1=Translate[Rotate[Scale[tor,0.5],Pi/2+0.001,{1,0,0}],{5.6,0,0}];​​tor2=Table[Rotate[tor1,i2Pi/5,{0,0,1}],{i,4}];​​tord=RevolutionPlot3D[{Sin[t]+5,Cos[t]},{t,0,2Pi},{z,0,2Pi},MeshNone,PlotStyleFaceForm[Red]][[1]];​​tor3=Table[Rotate[Translate[Rotate[Scale[{tor2,tord},0.5],Pi/2+0.001,{1,0,0}],{-5.6,0,0}],i2Pi/5,{0,0,1}],{i,4}];​​torc=RevolutionPlot3D[{Sin[t]+5,Cos[t]},{t,0,2Pi},{z,0,2Pi},MeshNone,PlotStyleFaceForm[Green]][[1]];​​tor4=Table[Rotate[Translate[Rotate[Scale[{tor3,torc},0.5],Pi/2+0.001,{1,0,0}],{5.5,0,0}],i2Pi/5,{0,0,1}],{i,4}];​​torb=RevolutionPlot3D[{Sin[t]+5,Cos[t]},{t,0,2Pi},{z,0,2Pi},MeshNone,PlotStyleFaceForm[Cyan]][[1]];​​tor5=Table[Rotate[Translate[Rotate[Scale[{tor4,torb},0.5],Pi/2+0.001,{1,0,0}],{-5,0,0}],i2Pi/5,{0,0,1}],{i,5}];​​tora=RevolutionPlot3D[{Sin[t]+5,Cos[t]},{t,0,2Pi},{z,0,2Pi},MeshNone,PlotStyleFaceForm[Pink]][[1]];​​Graphics3D[{tora,tor5},BoxedFalse,SphericalRegionTrue,ImageSize500,ViewPoint{0,100,100}]
​
In[]:=
Graphics3D[{torb,tor4},BoxedFalse,SphericalRegionTrue,ImageSize500,ViewPoint{0,100,100}]
​
In[]:=
Graphics3D[{torb,tor3},BoxedFalse,SphericalRegionTrue,ImageSize500,ViewPoint{0,100,100}]
Out[]=
In[]:=
Graphics3D[{tora,tor2},BoxedFalse,SphericalRegionTrue,ImageSize500,ViewPoint{0,100,100}]
Out[]=