如何用mathematica或者matlab画三维图形,例如旋转抛物面 x^2+z^2=60y ,(y,0,21.6).希望能给出详细代码.
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/23 08:24:23
如何用mathematica或者matlab画三维图形,例如旋转抛物面 x^2+z^2=60y ,(y,0,21.6).希望能给出详细代码.
如何用mathematica或者matlab画三维图形,例如旋转抛物面 x^2+z^2=60y ,(y,0,21.6).希望能给出详细代码.
如何用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^2 + 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 -> {{Yellow, Blue}, {Green, Cyan}},
ColorFunction -> Function[{x, y, z, f}, ColorData["Rainbow"][z]],
Mesh -> 4,
ContourStyle ->
Directive[Orange, Opacity[0.6], Specularity[White, 30]]]
ContourPlot3D[
x^2 + z^2 == 60 y, {x, -40, 40}, {y, 0, 21.6}, {z, -40, 40},
MeshFunctions -> {#3 &},
ContourStyle -> Directive[Opacity[0.5], Yellow],
MeshShading -> {Red, Automatic}]
ContourPlot3D[
x^2 + z^2 == 60 y, {x, -40, 40}, {y, 0, 21.6}, {z, -40, 40},
Mesh -> None,
ColorFunction -> Function[{x, y, z, f}, ColorData["Rainbow"][z]],
Mesh -> 4,
ContourStyle ->
Directive[Orange, Opacity[0.6], Specularity[White, 30]]]
