063232.m

三维曲线曲面比较演示系统程序设计 设计一个图形用户界面（GUI）演示常见的三维函数图形

screen=get(0,'ScreenSize');
W=screen(3);H=screen(4);
figure('Color',[1,1,1],'Position',[0.2*H,0.2*H,0.5*W,0.3*H],...
    'Name','三维曲线曲面比较演示系统','NumberTitle','off','MenuBar','none');
%定义三维绘图菜单项
hplot=uimenu(gcf,'Label','三维绘图');
uimenu(hplot,'Label','参数方程1','Call',...   %参数方程 x=cos(a).*(cos(b)+3);y=sin(a).*(cos(b)+3);z=sin(b);
    ['subplot(1,2,1);a=(0:0.01:2*pi);b=(0:0.01:2*pi);x=cos(a).*(cos(b)+3);y=sin(a).*(cos(b)+3);z=sin(b);plot3(x,y,z);grid on;',...
'subplot(1,2,2);x=(0:0.01:2*pi);y=(0:0.01:2*pi);[X,Y]=meshgrid(x,y);x=cos(X).*(cos(Y)+3);y=sin(X).*(cos(Y)+3);z=sin(Y);mesh(x,y,z);',...
    'set(hgon,''Enable'',''on'');',...
    'set(hgoff,''Enable'',''on'');',...
    'set(hbon,''Enable'',''on'');',...
    'set(hboff,''Enable'',''on'');']);

uimenu(hplot,'Label','参数方程2','Call',...    %参数方程x=t;y=t.*t;z=t.*t.*t.*t;
    ['t=0:0.01:1;subplot(1,2,1);x=t;y=t.*t;z=t.*t.*t.*t;plot3(x,y,z);grid on;'...
    'subplot(1,2,2);[x,y]=meshgrid(x,y);z=x.*x.*x.*sqrt(y);mesh(x,y,z);',...
    'set(hgon,''Enable'',''on'');',...
    'set(hgoff,''Enable'',''on'');',...
    'set(hbon,''Enable'',''on'');',...
    'set(hboff,''Enable'',''on'');']);
%定义选项菜单项
hoption=uimenu(gcf,'Label','选项');

hgon=uimenu(hoption,'Label','网格开',...       %网格开关
    'Call','grid on','Enable','off');
hgoff=uimenu(hoption,'Label','网格关',...
   'Call','grid off','Enable','off');
hbon=uimenu(hoption,'Label','坐标边框开',...   %坐标开关 
     'separator','on','Call','box on','Enable','off');
hboff=uimenu(hoption,'Label','坐标边框关',...
   'Call','box off','Enable','off');

hwincor=uimenu(hoption,'Label','色度空间','Separator','on');     %色度开关
 uimenu(hwincor,'Label','青、黄浓淡色','AcceleRator','s',...
     'Call','colormap(spring)','Enable','on');
 uimenu(hwincor,'Label','青、品浓淡色','AcceleRator','c',...
     'Call','colormap(cool)','Enable','on');
 uimenu(hwincor,'Label','灰色浓淡色','AcceleRator','g',...
     'Call','colormap(gray)','Enable','on');
 uimenu(hwincor,'Label','红、黄浓淡色','AcceleRator','a',...
     'Call','colormap(autumn)','Enable','on');
 uimenu(hwincor,'Label','淡粉红色图','AcceleRator','p',...
     'Call','colormap(pink)','Enable','on');
 
hwincor=uimenu(hoption,'Label','窗口背景颜色','Separator','on');  %窗口背景颜色开关
uimenu(hwincor,'Label','红色','AcceleRator','r',...
    'Call','set(gcf,''Color'',''r'');');
uimenu(hwincor,'Label','蓝色','AcceleRator','b',...
    'Call','set(gcf,''Color'',''b'');');
uimenu(hwincor,'Label','黄色','AcceleRator','y',...
    'Call','set(gcf,''Color'',''y'');');
uimenu(hwincor,'Label','白色','AcceleRator','w',...
    'Call','set(gcf,''Color'',''w'');');

%定义退出菜单项
uimenu(gcf,'Label','退出','Call','close(gcf)');