ParametricPlot3D[ {(1.7 + 0.4 Sin[u]) Sin[v], (1.7 + 0.4 Sin[u]), 0.4 Cos[u] + Exp[v/3]}, {u, - Pi, Pi}, {v, -2 Pi, 2 Pi}, ViewPoint -> {1.212, 1.489, -1.372}, PlotPoints -> {25, 50}, Boxed -> False, Axes -> None] |
ParametricPlot3D[ {(5 + 0.9 Cos[u]) Cos[v], (3 + 0.9 Cos[u]) Sin[1.5v], 0.5 Sin[u] + Exp[v/4]}, {u, 0, 2Pi}, {v, -3 Pi, 3 Pi}, PlotPoints -> {25, 100}, Boxed -> False, Axes -> None] |
ParametricPlot3D[ {(0.1 + 0.7Sin[u])1.5Sin[v], (0.1 + 0.7Cos[u])1.5Sin[v], 0.5 Sin[u] + v/5}, {u, 0, 2 Pi}, {v, -3 Pi, 3 Pi}, ViewPoint -> {0, -2, 0}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None] |
ParametricPlot3D[ {(0.1 + 0.7Sin[u])1.5Sin[v], (0.1 + 0.7Cos[u])1.5Sin[v], 0.5 Sin[u] + v/5}, {u, 0, 2 Pi}, {v, -3 Pi, 3 Pi}, LightSources -> { {{1, 1, 1}, RGBColor[1, 0, 0]}, {{1, -1, 1}, RGBColor[0, 0, 1]} }, ViewPoint -> {0, -2, 0}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None] |