myapply.m

这是本人收集的一些程序源代码

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