为什么Mathematica不能计算这个?求函数的极大值,极小值及鞍点,代码如下:f[x_,y_] := x^2 + y^2; a = D[f[x,y],x]; b = D[f[x,y],y]; A = D[f[x,y],x,x]; B = D[f[x,y],x,y]; M = D[f[x,y],y,y];W = {{"极大值","极小值","鞍点"}};L
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 06:00:45
![为什么Mathematica不能计算这个?求函数的极大值,极小值及鞍点,代码如下:f[x_,y_] := x^2 + y^2; a = D[f[x,y],x]; b = D[f[x,y],y]; A = D[f[x,y],x,x]; B = D[f[x,y],x,y]; M = D[f[x,y],y,y];W = {{](/uploads/image/z/10199857-49-7.jpg?t=%E4%B8%BA%E4%BB%80%E4%B9%88Mathematica%E4%B8%8D%E8%83%BD%E8%AE%A1%E7%AE%97%E8%BF%99%E4%B8%AA%3F%E6%B1%82%E5%87%BD%E6%95%B0%E7%9A%84%E6%9E%81%E5%A4%A7%E5%80%BC%2C%E6%9E%81%E5%B0%8F%E5%80%BC%E5%8F%8A%E9%9E%8D%E7%82%B9%2C%E4%BB%A3%E7%A0%81%E5%A6%82%E4%B8%8B%EF%BC%9Af%5Bx_%2Cy_%5D+%3A%3D+x%5E2+%2B+y%5E2%3B+a+%3D+D%5Bf%5Bx%2Cy%5D%2Cx%5D%3B+b+%3D+D%5Bf%5Bx%2Cy%5D%2Cy%5D%3B+A+%3D+D%5Bf%5Bx%2Cy%5D%2Cx%2Cx%5D%3B+B+%3D+D%5Bf%5Bx%2Cy%5D%2Cx%2Cy%5D%3B+M+%3D+D%5Bf%5Bx%2Cy%5D%2Cy%2Cy%5D%3BW+%3D+%7B%7B%22%E6%9E%81%E5%A4%A7%E5%80%BC%22%2C%22%E6%9E%81%E5%B0%8F%E5%80%BC%22%2C%22%E9%9E%8D%E7%82%B9%22%7D%7D%3BL)
为什么Mathematica不能计算这个?求函数的极大值,极小值及鞍点,代码如下:f[x_,y_] := x^2 + y^2; a = D[f[x,y],x]; b = D[f[x,y],y]; A = D[f[x,y],x,x]; B = D[f[x,y],x,y]; M = D[f[x,y],y,y];W = {{"极大值","极小值","鞍点"}};L
为什么Mathematica不能计算这个?
求函数的极大值,极小值及鞍点,代码如下:
f[x_,y_] := x^2 + y^2; a = D[f[x,y],x]; b = D[f[x,y],y]; A =
D[f[x,y],x,x]; B = D[f[x,y],x,y]; M = D[f[x,y],y,y];
W = {{"极大值","极小值","鞍点"}};
L = Solve[a == 0 && b == 0,{x,y}];
For[i = 1,i 0 && ((A M - B^2) /.L[[i]]) > 0,
f[x2,y2] = f[x0,y0],
If[(A /.L[[i]]) < 0 && ((A M - B^2) /.L[[i]]) > 0,
f[x1,y1] = f[x0,y0],{x3 = x0,y3 = y0}]]]
但计算结果显示:Recursion depth of 1024 exceeded.>>
这是为什么?代码应该怎么修改?
为什么Mathematica不能计算这个?求函数的极大值,极小值及鞍点,代码如下:f[x_,y_] := x^2 + y^2; a = D[f[x,y],x]; b = D[f[x,y],y]; A = D[f[x,y],x,x]; B = D[f[x,y],x,y]; M = D[f[x,y],y,y];W = {{"极大值","极小值","鞍点"}};L
你的问题让Mathematica求解算法有点为难了.
超过 1024 的递归深度,还没找到解.