CITE THIS NOTEBOOK: Fractal Tetrahedra (Mitsubishi Logo in 3D)by Sándor Kabai.Wolfram Community, 2021.
A tetrahedron is removed from each edge of a tetrahedron. If the size of the removed tetrahedra is one-third of the original tetrahedron, then the remaining polyhedron can be regarded as a three-dimensional Mitsubishi logo. The removed tetrahedra can be further divided in the same manner, producing a fractal structure.
In[]:=
ManipulateModule{tet,up,m,u,κ,vA,vB,vC,vD,vE,vF,vG,vH,vT,tbot,t1,r1,base,tet3up,tet3down,base1,completesmall,tet3upsmall,tet3downsmall},tet=PolyhedronData["Tetrahedron","Faces"];up=N;m=;u=Sqrt[3]3;κ=ArcTan[u/2/m];vA={1,-u,0};vB={0,3u,0};vC={-1,-u,0};vD={0,-u,0};vE={0.5,u/2,0};vF={-0.5,u/2,0};vG={0.5,-u/2,m};vH={-0.5,-u/2,m};vT={0,0,2m};tbot=Polygon[{vD,vE,vF}];t1={Yellow,Polygon[{vD,vE,vG}]};r1={RGBColor[1,0.4,0],Polygon[{vD,vG,vT,vH}]};base=Table[Rotate[{r1,t1},i2Pi/3-Pi/2,{0,0,1}],{i,3}];tet3up=Table[Rotate[Translate[tet,{u+move2,0,up+umove2}],i2Pi/3,{0,0,1}],{i,3}];tet3down=Table[Rotate[Translate[Rotate[tet,Pi,{0,0,1}],{u+move2,0,-3up-umove2}],i2Pi/3+Pi/3,{0,0,1}],{i,3}];base1=Translate[Table[Rotate[Rotate[base,-Pi/2-κ,{0,1,0},{-u/4,0,0}],i2Pi/3+Pi/3,{0,0,1}],{i,3}],{0,0,-m/2}];completesmall=Translate[Scale[{base1,tet3down,tet3up,base},1/3{1,1,1},{0,0,0}],{0,0,0.06804}];tet3upsmall=Table[Rotate[Translate[completesmall,{u+move1,0,up+umove1}],i2Pi/3,{0,0,1}],{i,3}];tet3downsmall=Table[Rotate[Translate[Rotate[completesmall,Pi,{0,0,1}],{u+move1,0,-3up-umove1}],i2Pi/3+Pi/3,{0,0,1}],{i,3}];mit={base,base1,tet3upsmall,tet3downsmall};Graphics3D[{mit},BoxedFalse,SphericalRegionTrue,PlotRange2.3,ViewPoint{-1,-10,2},ViewAngle0.1],{{move1,1,"move 1"},0,1},{{move2,0,"move 2"},0,1},TrackedSymbols->{move1,move2},SaveDefinitionsTrue
1
2
6
2
6
Out[]=
