作业帮为什么Mathematica不能计算这个?
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/29 12:46:33
为什么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.>>
这是为什么?代码应该怎么修改?
求函数的极大值,极小值及鞍点,代码如下：
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求解算法有点为难了.
超过 1024 的递归深度,还没找到解.
超过 1024 的递归深度,还没找到解.