The usual version of a Möbius strip has as its single boundary curve an unknotted loop. An unknotted loop can be deformed into a circle, with the strip deformed along with it.
In this version, the boundary of the strip is the circle in the middle, and the surface "goes through infinity", meaning that the grid pattern should extend outwards all the way. To save on costs, I've removed the grid lines that would require an infinite amount of plastic to print.
Note: this is an updated version of the model from the one shown in the YouTube video.
This was designed with Saul Schleimer.
The usual version of a Möbius strip has as its single boundary curve an unknotted loop. An unknotted loop can be deformed into a circle, with the strip deformed along with it.
In this version, the boundary of the strip is the circle in the middle, and the surface "goes through infinity", meaning that the grid pattern should extend outwards all the way. To save on costs, I've removed the grid lines that would require an infinite amount of plastic to print.
This was designed with Saul Schleimer.
This is made by gluing two copies of the Round Möbius Strip along their boundaries. A Klein bottle in 3-dimensional space has to intersect itself, and in this case it intersects itself along a straight line.
Note: this is an updated version of the model from the one shown in the YouTube video.
This was designed with Saul Schleimer.
This is a collection of common example surfaces from classes in multivariable calculus. Much larger versions of these surfaces are available here.
Contour lines, together with 8 radial curves make up the surfaces. All surfaces are plotted in such a way to show values of z in [-2,2]. The hyperbolic paraboloid is further cut along a cylinder of radius sqrt(2). The equations of the surfaces are:
This was generated by Mathematica using the following code:
f[u_, v_] := {u, v, u^2 - v^2}; scale = 40; radius = 0.75; numPoints = 24; gridSteps = 10; curvesU = Table[scale*f[u, i], {i, -1, 1, 2/gridSteps}]; curvesV = Table[scale*f[j, v], {j, -1, 1, 2/gridSteps}]; tubesU = ParametricPlot3D[curvesU, {u, -1, 1}, PlotStyle -> Tube[radius, PlotPoints -> numPoints], PlotRange -> All]; tubesV = ParametricPlot3D[curvesV, {v, -1, 1}, PlotStyle -> Tube[radius, PlotPoints -> numPoints], PlotRange -> All]; corners = Graphics3D[Table[Sphere[scale f[i, j], radius], {i, -1, 1, 2}, {j, -1, 1, 2}], PlotPoints -> numPoints]; output = Show[tubesU, tubesV, corners] Export["MathematicaParametricSurface.stl", output]This is the trefoil knot, printed out in a shape that will smoothly roll across the table!
