deletewin.m

来自「关于混沌系统的李氏指数计算等混沌系统中重要参数计算的代码」· M 代码 · 共 50 行

function Deletewin;
global DS;
global nbrwin;
global calculation_progress;

sn = get(gcf,'UserData');
sn = sn.number+1;

ss = size(DS(1).windows);
s=ss(1,2);

if s==2
   bb=questdlg('Do you want to close? ','This window is a last!!! ','Yes','No','No');
   if isequal(bb,'No')
      return;
   end;
end;

if calculation_progress==1 
   errordlg('Switch to PAUSE or STOP',' Calculation in progress!!!');
   return;
end;

temp=[];
temp=zeros(1,s-1);
%temp(1) = DS(1).windows(1);

for i=1:(sn-1)
  temp(i) = DS(1).windows(i);
end;


for i=(sn+1):s
    tmp = get(DS(1).windows(i),'UserData');
    tmp.number = i-2;
    set(DS(1).windows(i),'UserData',tmp);
    if tmp.type==1
       set( DS(1).windows(i),'Name',strcat('Plot 2-D || ',int2str(i-2) ) );
    end;
    if tmp.type==2
       set( DS(1).windows(i),'Name',strcat('Plot 3-D || ',int2str(i-2) ) );
    end;
    temp(i-1) = DS(1).windows(i);
end;

DS(1).windows = [];
DS(1).windows = temp;
nbrwin = nbrwin - 1;
delete(gcf);