我正在尝试创建一个Mathematica脚本,它将两个变量的函数作为输入,然后以详细的方式计算所有必要的步骤(找到第一个偏导数的根,检查相关的二阶条件)(例如,显示全部寻找局部极值点的偏导数.
大部分都是直截了当的,我最大的问题是如何重用Solve[]连续计算中找到的根.我开始是这样的:
f[x_,y_] := y^3 -3 x^2 y
dfx[x_,y_]:=D[f[x,y],x]
dfy[x_,y_]:=D[f[x,y],y]
dfxx[x_,y_]:=D[f[x,y],x, x]
dfyy[x_,y_]:=D[f[x,y],y, y]
dfx[x_,y_]:=D[f[x,y],x]
dfxy[x_,y_]:=D[f[x,y],x,y]
dff[x_,y_]:=dfxx[x,y]*dfyy[x,y]-(dfxy[x,y])^2
Solve[{dfx[x,y]==0, dfy[x,y]==0},{x,y}]
Apply[dff, %]
Evaluate[dff[%]]
我被困在这里,任何帮助都会很棒!