Hi,
stackexchange link
Moebius[R_, a_, b_] := {(R + a Cos[b/2]) Cos[b], (R + a Cos[b/2]) Sin[b], a Sin[b/2]}
MBand = ParametricPlot3D[
Moebius[5, a, b], {a, -1, 1}, {b, 0, 2 Pi}, Mesh -> None, PlotPoints -> {20, 100}, MaxRecursion -> 0, PlotRange -> All,
PlotStyle -> {Thickness[.2],Opacity[0.5]} ]
I.M.
