ParametricPlot3D[ {(3.2 + 0.7 Cos[u])Sin[v] Cos[v], (2.8 + 0.5 Cos[u]) Sin[1.3 v]Cos[v], 0.46 Sin[u] + Exp[v/4.8]}, {u, 0, 2Pi}, {v, -3 Pi, 3 Pi}, ViewPoint -> {1.3, 1.585, 1.25}, PlotPoints -> {25, 150}, Boxed -> False, Axes -> None] |
ParametricPlot3D[ {(2 + 0.5 Cos[u]Cos[v]) Cos[v]Sin[v], (2 + 0.3 Cos[u]) Sin[v/3], 0.5 Sin[u] + Sin[v] + v/5}, {u, 0, 2 Pi}, {v, -3 Pi, 3 Pi}, PlotPoints -> {25, 100}, Boxed -> False, Axes -> None] |
ParametricPlot3D[ {(1 + (1.2*0.8Sin[u])* Cos[u]) Sin[v], (1 + (1.2*0.8Sin[u])* Cos[u]) Cos[v], 0.8 Sin[u] + 0.6v}, {u, 0, 2Pi}, {v, -1.7Pi, 2 Pi}, PlotPoints -> {60, 60}, ViewPoint -> {1, 2, 0.7}, Boxed -> False, Axes -> None] |