Mathematica 绘制二元函数极小值随参数变化图（二维）

问题来自群友，直接上代码

ListLinePlot[Labeled[{#[[2,1,2]],#[[2,2,2]]},NumberForm[#[[1]],3]]&/@Table[FindMinimum[{Cos[x]-Exp[x y],z+x^2+y^2<=8},{x,y}],{z,0.1,1,.1}],
Mesh->All,ColorFunction->(Hue@Rescale[#2,{1.86,2}]&),ColorFunctionScaling->False,MeshStyle->Directive[PointSize->Smaller,Black]]

刚好是简单的图形 插值函数就简单粗暴搞定了

拐弯的那种还是自己自行插值得到一个颜色函数 或者插值成参数方程就容易解决了

再附上一个兼容性代码，没有使用Labeled骚操作，自己绘制的标签

data=Table[FindMinimum[{Cos[x]-Exp[x y],z+x^2+y^2<=8},{x,y}],{z,0.1,1,.1}];
ListLinePlot[{x,y}/.data[[;;,2]],Epilog->(Text[NumberForm[#[[1]],3],{#[[2,1,2]]+.005,#[[2,2,2]]-.005}]&/@data),Mesh->All]