Wireframe Moebius
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]