Documentation of iduiclpw

Global Index (short | long) | Local contents | Local Index (short | long)

Function Synopsis

iduiclpw(figno,redraw,modno)

Help text

IDUICLPW Clears lines in the plot windows
   FIGNO:  The number of the plot window.
   REDRAW: If this is equal to 1 the curves corresponding to active
           models will be redrawn, otherwise not.
   MODNO:  Numbers of models, whose lines shall be cleared. Default all.
   The function also handles the corresponding UserData accordingly.

Cross-Reference Information

Listing of function iduiclpw

function iduiclpw(figno,redraw,modno)

%   L. Ljung 4-4-94
%   Copyright (c) 1986-98 by The MathWorks, Inc.
%   $Revision: 2.3 $  $Date: 1997/12/02 03:41:35 $

global XIDplotw

if any(figno==[8]),return,end
iduistat('',0,figno);
if isempty(iduiwok(figno)),return,end
if nargin<3,modno=[];end


if nargin < 2, redraw=1;end
if strcmp(get(XIDplotw(figno,1),'vis'),'off'),redraw=0;end
   iduital(figno);
   xax=get(XIDplotw(figno,1),'UserData');[rxax,cxax]=size(xax);
   xax=xax(3:rxax,1);
   for kk=xax'
       xusd=get(kk,'userData');[rxusd,cxusd]=size(xusd);
       set(kk,'userdata',[]);
       if rxusd>2
           if isempty(modno),
              if figno==3
                 rows=2:rxusd;
              else
                 rows=3:rxusd;
              end
           else
              rows=[2*modno+1,2*modno+2];
           end
           eval('delete(idnonzer(xusd(rows,:)));','')
           xusd(rows,:)=zeros(length(rows),cxusd);
       end
       set(kk,'UserData',xusd);
   end
   if figno==3
      fits=findobj(XIDplotw(3,1),'tag','fits');
      delete(fits)
   end
   if redraw
      if any(figno==[1,13]),actmod=fiacthad;
      elseif figno==14,actmod=0;
      elseif figno==15,actmod=[0,-1];
      else actmod=fiactham;end
      iduimod(figno,actmod);
   end