Mathematica三维画图一些技巧

三维画图函数Plot3D：mathematica的Plot3D函数在线中文教程

1.最简单的画图

代码：

Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}, Mesh -> None]

对应的结果：

2.添加网格线

代码：

Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}, 
 Mesh -> {{{0, Thick}, {1, Thick}}, {{0, Red}}}]

对应的结果：

 3.画出顶点——利用最优的x线与最优的y线的交点

代码：

Clear["`*"];
M = Maximize[{10 - 7*(x - 1)^2 - 
     5*(y - 1)^2, -3 <= x <= 3 && -2 <= y <= 2}, {x, y}];(*求解最优结果*)
Mx = M[[2, 1, 2]];(*最优结果的x*)
My = M[[2, 2, 2]];(*最优结果的y*)

Plot3D[10 - 7*(x - 1)^2 - 5*(y - 1)^2, {x, -3, 3}, {y, -2, 2}, 
 Mesh -> {{{Maximize[{10 - 7*(x - 1)^2 - 
         5*(y - 1)^2, -3 <= x <= 3 && -2 <= y <= 2}, {x, y}][[2, 1, 
       2]], Blue}}, {{Maximize[{10 - 7*(x - 1)^2 - 
         5*(y - 1)^2, -3 <= x <= 3 && -2 <= y <= 2}, {x, y}][[2, 2, 
       2]], Red}}}]

对应的结果：