shili38.m

来自「matlab6.0时尚设计百例的30-40个程序代码」· M 代码 · 共 21 行

[x,y]=meshgrid(-8:0.5:8);
r=sqrt(x.^2+y.^2)+eps;
z=sin(r)./r;
h0=mesh(x,y,z);
hlist=uicontrol(gcf,'style','listbox',...
    'string','default|spring|summer|autumn|winter',...
    'max',5,'min',1,'position',[20 20 80 100],...
    'callback',[...
         'k=get(hlist,''value'');,',...
         'switch k,',...
         'case 1,',...
         'colormap default,',...
         'case 2,',...
         'colormap spring,',...
         'case 3,',...
         'colormap summer,',...
         'case 4,',...
         'colormap autumn,',...
         'case 5,',...
         'colormap winter,',...
         'end']);