mathematica中三维画图中标记函数的最大值点

最新推荐文章于 2024-09-28 15:51:59 发布

zhenyan_cy

最新推荐文章于 2024-09-28 15:51:59 发布

阅读量722

点赞数 2

文章标签：经验分享数学建模 mathematica

本文链接：https://blog.youkuaiyun.com/zhenyancy1993/article/details/139456820

版权

示例代码：

Clear["`*"];
f[x_, y_] := -(x - 1)^2 - (y + 1)^2;

(*找到最大值点*)
maxPoint = 
 Maximize[{f[x, y], -10 <= x <= 10 && -10 <= y <= 10 && 
    x^2 + y^2 <= 10}, {x, y}]

(*绘制3D图形并标记最大值点*)
Y1 = Plot3D[f[x, y], {x, -10, 10}, {y, -10, 10}, 
   Mesh -> {{{maxPoint[[2, 1, 2]], Blue}}, {{maxPoint[[2, 2, 2]], 
       Black}}}, 
   RegionFunction -> 
    Function[{x, y, z}, x^2 + y^2 <= 10],(*BoxRatios\[Rule]Automatic,
   ColorFunction\[Rule]"Rainbow",*)PlotStyle -> Opacity[4/5], 
   Mesh -> None];
Y2 = ListPointPlot3D[{{maxPoint[[2, 1, 2]], maxPoint[[2, 2, 2]], 
     maxPoint[[1]]}}, PlotStyle -> {{PointSize[Large], Red}}];

Show[Y1, Y2]

结果图如下：