ParametricPlot3D[ {6Cos[u/3] (1 + Sin[u]) + 4(1 - u*Cos[u]/2) (Cos[v + Pi]), 8Cos[3u]*Sinh[Cos[2v]], 4(1 - Cos[u]/2) Sin[2v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None] |
ParametricPlot3D[ {Sin[v]Cos[u], Cos[v]Cos[u], Cos[v]Sin[u]}, {u, 1, 3Pi/2}, {v, 1, 3Pi/2}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None] |
ParametricPlot3D[ {(2 + 0.8 Cos[u]) Cos[v], (2 + 0.8 Cos[u]) Sin[v], 0.8 Sin[u] + v/2}, {u, 0, 2 Pi}, {v, -3Pi, 3 Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None] |