www.pudn.com > Slab.rar > delfig.m, change:2002-03-11,size:214b


% To rapidly delete figures 
nw=input('How many figures to delete (default: all up to current figure):-  '); 
if isempty(nw);nw=gcf;end; 
nw=round(nw); % to ensure integer input 
for n=1:nw;delete(figure(n));end