Mobius Band

Simple Mobius band. Made in Mathematica with the following code:

  • xMobius[u, v] := 3(1 + (v/2) Cos[u/2]) Cos[u]
  • yMobius[u, v] := 3(1 + (v/2) Cos[u/2]) Sin[u]
  • zMobius[u, v] := 2(v/2) Sin[u/2]
  • plotModbius = ParametricPlot3D[{xMobius[u, v], yMobius[u, v], zMobius[u, v]}, {u, 0, 2 Pi}, {v, -1, 1}, MaxRecursion -> 10, PlotTheme -> "ThickSurface", ImageSize -> Large]
  • Export["/Users/RAH/Desktop/mobius.stl", plotModbius, "STL", ImageSize -> Large]