Wireframe Moebius

thingiverse

A three-dimensional wireframe Möbius band created in Mathematica, a software used for numerical computation and visualization. I haven't been able to print the structure successfully with our Form-1+ 3D printer yet, but you're welcome to give it a try if you like. The Mathematica code used to generate this design is shown below. ```c wireframeFunction[u_, v_] := {Cos[u] + 0.2v Sin[u/2] Cos[u], Sin[u] + 0.2v Sin[u/2], v Cos[u/2]}; ``` The design parameters include a scaling factor of 40, a radius of 1.5 units, and the number of grid steps is set to 6. ```c scale = 40; radius = 1.5; gridSteps = 6; Ucoordinates = Table[wireframeFunction[u, i], {i, -1, 1, 2/gridSteps}]; Vcoordinates = Table[wireframeFunction[j, v], {j, -3, 3, 2/gridSteps}]; ``` Two ParametricPlot3D functions are defined to create the tube structures. One is defined in terms of variable u, and the other in terms of variable v. ```c tubeStructureU = ParametricPlot3D[Ucoordinates, {u, -12, 12}, PlotStyle -> Tube[radius], PlotRange -> All]; TubestructureV = ParametricPlot3D[Vcoordinates, {v, -1, 1}, PlotStyle -> Tube[radius], PlotRange -> All]; output = Show[tubeStructureU, tubeStructureV] Export["MathematicaMoebius.stl", output]