clear;
clc;
syms x y
f=@(x,y)4*(x-y)-x.^2-y.^2;
fx=diff(f,x);
fy=diff(f,y);
a=solve(fx);
b=solve(fy);
A=diff(fx,x);
C=diff(fy,y);
B=diff(fx,y);if((A*C-B^2)>0)if(A<0)sprintf('f(x,y)存在极大值')elseif(A>0)sprintf('f(x,y)存在极小值')
end
end
f(a,b)
P123.11
clear;
clc
syms x y;
f=sin(y)+exp(x)-x.*y.^2;
fx=diff(f,x);
fy=diff(f,y);
dydx=-fy/fx
clear;
clc
p=0;for i=1:100000
a=i;while(a>0)if(a==1)
p=p+1;break
elseif rem(a,2)==0
a=a/2;
elseif rem(a,2)==1
a=a*3+1;
end
end
end
if(p==100000)sprintf('验证成功')elsesprintf('验证失败')
end
求下列二重积分
clear;
clc;
syms x y
f1=quadl(@(y)2.*y.*exp(-y.^2).*arrayfun(@(y)quadl(@(x)exp(-x.^2)./(y.^2+x.^2),-1,1),y).^2,0.2,1)