ParametricPlot3D[ {4Cos[u](1 + Sin[u]) + 3(1 - Cos[v]/2)(Cos[v + Pi]), 9Sin[v], 4(1 - Cos[u]/3)Sin[v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None] |
ParametricPlot3D[ {u*Sin[u] + (1 - Cos[u]), v + (1 - Cos[u]), Sin[u] + 4Cos[v]}, {u, -2Pi, 2Pi}, {v, -3/2Pi, 3/2Pi}, ViewPoint -> {5, 5, 20}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None] |
ParametricPlot3D[ {3 Sin[u] - u^2 Sin[u], 2 Cos[v] - 3 Sin[v], -3 Cos[u] Cos[v]}, {u, -Pi, Pi}, {v, -Pi, Pi}, Axes -> None, ViewPoint -> {4.234, -1.992, 2.003}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None] |
Back to Tohsuke Urabe Laboratory