clear;
clc;
m=zeros(41);
z=@(x,y)fzero(@(z)sin((z*x-0.5).^2+2.*x.*y.^2-z/10).*exp(-((x-0.5-exp(-y+z)).^2+y.^2-z/5+3))-z,1)for i=-10:0.5:10for j=-10:0.5:10m(i*2+21,j*2+21)=z(i,j);
end
end
x=-10:0.5:10;
y=-10:0.5:10;[X,Y]=meshgrid(x,y);mesh(X,Y,m)
function swgl(d1,d2)
dt=rem((d2-d1),23);
dq=rem((d2-d1),28);
dz=rem((d2-d1),33);
x=-56:1:56;
yt=100*sin(2*pi/23*(x+dt));
yq=100*sin(2*pi/28*(x+dq));
yz=100*sin(2*pi/33*(x+dz));plot(x,yt,'r');
hold on;plot(x,yq,'g');
hold on;plot(x,yz,'b');legend('体力','智力','情感')
hold off;