まとめ

シンプルなメビウス帯。Mathematicaで以下のコードを使用して作成されました。

• 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]
• プレット・モビウス = 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]