用matlab画旋转抛物面_如何用mathematica或者matlab画三维图形，例如旋转抛物面 x^2+z^2=60y , (y,0,21.6).希望能给出详细代码。...

展开全部

^

No intention to get the reward. Just show how powerful the Mathematica is!

The basic idea is from neu_lin.

ContourPlot3D[

x^32313133353236313431303231363533e58685e5aeb9313333303439382 + z^2 == 60 y, {x, -40, 40}, {y, 0, 21.6}, {z, -40, 40},

Mesh -> None, ContourStyle -> Directive[Opacity[0.5], Red],

ColorFunction -> Function[{x, y, z, f}, Hue[z]]]

ContourPlot3D[

x^2 + z^2 == 60 y, {x, -40, 40}, {y, 0, 21.6}, {z, -40, 40},

ColorFunction -> Function[{x, y, z, f}, Hue[Sin[x] Sin[z]]],

ColorFunctionScaling -> False, Mesh -> None]

ContourPlot3D[

x^2 + z^2 == 60 y, {x, -40, 40}, {y, 0, 21.6}, {z, -40, 40},

MeshFunctions -> {#1 - #2 &, #1 + #2 &},

MeshShading -