Moebius
Sándor Kabai
Polygonal prisms arranged in a circle are rotated around their axes, so that the thinner faces of the prisms form Möbius strips with up to four turns.
Polygonal prisms arranged in a circle are rotated around their axes, so that the thinner faces of the prisms form Möbius strips with up to four turns.
In[]:=
Manipulate[Module[{frame,f1,f2,e2,v1,v2,od,d1,d2,c1},frame=Table[{Sin[i2Pi/p],Cos[i2Pi/p],t},{i,p+1}];f1=Polygon[frame];f2=Translate[f1,{0,0,-2t}];v1=Table[{Sin[i2Pi/p],Cos[i2Pi/p],t},{i,2}];v2=Table[{Sin[-i2Pi/p+6Pi/p],Cos[-i2Pi/p+6Pi/p],-t},{i,2}];od=Table[{Hue[0.4^i],Rotate[Polygon[Join[v2,v1]],i2Pi/p,{0,0,1}]},{i,p}];d1={od,f1,f2};d2=Translate[Rotate[d1,Pi/2,{1,0,0}],{2.2,0,0}];c1=Table[Rotate[Rotate[d2,i(2Pi/n),{0,1,0},{2.2,0,0}],i2Pi/n/m,{0,0,1}],{i,nm}];Graphics3D[{Yellow,c1},BoxedFalse,SphericalRegionTrue,ViewAngle0.01,ViewPoint{0,0,100},ImageSize400]],{{p,5,"polygon"},3,8,1,RadioButton},{{n,40,"number"},10,50,10,RadioButton},{{m,2,"turns"},1,4,1,RadioButton},"",{{t,0.05,"thickness"},0.01,0.1,ImageSizeSmall,Appearance"Labeled"},TrackedSymbols{p,n,m,t}]
Out[]=
