Mathematica Graphics -- ParametricPlot3D


ParametricPlot3D[ {{uCos[v] + u, v/uSin[2v], vu/4}, {-uCos[v] - u, -v/uSin[2v], -vu/4}}, {u, Pi/100, 2Pi}, {v, -4Pi, 4Pi}, PlotPoints -> {25, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {(3u + 3u v^2 - u^3) (1 + vu^2)^1/2, (v^3 - 3v - 3u^2v)(1 + uv^2)^1/2, 3(u^2 + v^2)(1 + u^2 + v^2)^1/2}, {u, -Pi, Pi}, {v, -Pi, Pi}, PlotRange -> {{-10, 50}, {-100, 10}, {5, 300}}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {(y^3 - y^2 + y - 1)Cos[x], (y^3 - y^2 + y - 1)Sin[x], Exp[y]/(Cos[x]^2 + Sin[x]^3)}, {x, 0, 2Pi}, {y, -2, 2}, Boxed -> False, Axes -> None, ViewPoint -> {0.431, 1.167, 0.838}] (題 ~アスファルトに咲く花~*)	ParametricPlot3D[ {0.5(2 + Cos[0.5u]), 1/(2 + Cos[5v]), Exp[Cos[u]*Cos[v]]}, {u, 0, 2Pi}, {v, 0, 2Pi}, Boxed -> False, Axes -> None]

ご意見、ご感想をぜひ

まで！


ParametricPlot3D[ {{uCos[v] + u, v/uSin[2v], vu/4}, {-uCos[v] - u, -v/uSin[2v], -vu/4}}, {u, Pi/100, 2Pi}, {v, -4Pi, 4Pi}, PlotPoints -> {25, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {(3u + 3u v^2 - u^3) (1 + vu^2)^1/2, (v^3 - 3v - 3u^2v)(1 + uv^2)^1/2, 3(u^2 + v^2)(1 + u^2 + v^2)^1/2}, {u, -Pi, Pi}, {v, -Pi, Pi}, PlotRange -> {{-10, 50}, {-100, 10}, {5, 300}}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {(y^3 - y^2 + y - 1)Cos[x], (y^3 - y^2 + y - 1)Sin[x], Exp[y]/(Cos[x]^2 + Sin[x]^3)}, {x, 0, 2Pi}, {y, -2, 2}, Boxed -> False, Axes -> None, ViewPoint -> {0.431, 1.167, 0.838}] (題 ~アスファルトに咲く花~*)	ParametricPlot3D[ {0.5(2 + Cos[0.5u]), 1/(2 + Cos[5v]), Exp[Cos[u]*Cos[v]]}, {u, 0, 2Pi}, {v, 0, 2Pi}, Boxed -> False, Axes -> None]