A "wireframe" Möbius band created in Mathematica. I haven't been able to create a successful print of it yet - not even with our Form-1+, but you are welcome to give it a try. The Mathematica code is... f[u, v] := {(Cos[u] + .2v (Sin[u/2]) Cos[u]), (Sin[u] + .2 v (Sin[u/2])), vCos[u/2]}; scale = 40; radius = 1.5; gridSteps = 6; curvesU = Table[scalef[u, i], {i, -1, 1, 2/gridSteps}]; curvesV = Table[scale*f[j, v], {j, -3, 3, 2/gridSteps}]; tubesU = ParametricPlot3D[curvesU, {u, -12, 12}, PlotStyle -> Tube[radius], PlotRange -> All]; tubesV = ParametricPlot3D[curvesV, {v, -1, 1}, PlotStyle -> Tube[radius], PlotRange -> All]; output = Show[tubesU, tubesV] Export["MathematicaMoebius.stl", output]