Thingiverse
Wireframe Moebius
88
Downloads
85
Likes
2
Makes
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] + .2*v (Sin[u/2]) Cos[u]), (Sin[u] + .2* v (Sin[u/2])), v*Cos[u/2]};
scale = 40;
radius = 1.5;
gridSteps = 6;
curvesU = Table[scale*f[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]
f[u_, v_] := {(Cos[u] + .2*v (Sin[u/2]) Cos[u]), (Sin[u] + .2* v (Sin[u/2])), v*Cos[u/2]};
scale = 40;
radius = 1.5;
gridSteps = 6;
curvesU = Table[scale*f[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]
Did you print this model? Sign in and share your make!
Sign in to leave a comment
Sign inNo comments yet – be the first!
