calledit2.m

来自「MATLAB 6.5 从基础讲解其功能」· M 代码 · 共 17 行

function calledit2( )
H=get(gcf,'UserData');
ct=get(H(1),'string');				%				<2>
vpop=get(H(2),'value');				%						<3>
vlist=get(H(3),'value');			%							<4>
if ~isempty(ct)						%						<5>
   eval(ct')							%				<6>	
   popstr={'spring','summer','autumn','winter'};		%	<7>
   liststr={'grid on','box on','hidden off','axis off'};%	<8>	
   invstr={'grid off','box off','hidden on','axis on'};%	<9>
   colormap(eval(popstr{vpop}))		%			<10>
   vv=zeros(1,4);vv(vlist)=1;		
   for k=1:4
      if vv(k);eval(liststr{k});else eval(invstr{k});end %
   end
end