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,
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,
Sign in to leave a comment
Sign in