myapply.m

来自「在Matlab应用系统中」· M 代码 · 共 9 行

function Myapply
vlist=get(findobj(gcf, 'Tag' , 'Listbox1' ), 'value' ); % 获得选项位置向量
liststr={ 'grid on' , 'box on' , 'hidden off' , 'axis off' }; % 列表框选项内容
invstr={ 'grid off' , 'box off' , 'hidden on' , 'axis on' }; % 列表框的逆指令
vv=zeros(1,4);vv(vlist)=1;
for k=1:4
if vv(k);eval(liststr{k}); else eval(invstr{k}); end % 按列表选项影响图形
end