Documentation of idunlink

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

Function Synopsis

idunlink(wino)

Help text

IDUNLINK Performs the unlinking of figure with no wino.

Cross-Reference Information

Listing of function idunlink

function idunlink(wino)

%   L. Ljung 9-27-94
%   Copyright (c) 1986-98 by The MathWorks, Inc.
%   $Revision: 3.4 $  $Date: 1997/12/02 03:44:30 $

global XIDplotw
axs=get(XIDplotw(wino,1),'children');
ax1=findobj(axs,'flat','tag','axis1');
ax2=findobj(axs,'flat','tag','axis2','vis','on');
newf=figure;
if isempty(ax2)
   subplot(111)
else
  subplot(211)
end
k=1;
for ax=[ax1,ax2'];
  if k==2,subplot(212),end
  axn=gca;
  set(axn,'xlim',get(ax,'xlim'),'ylim',get(ax,'ylim'),'box',get(ax,'box'),...
     'xscale',get(ax,'xscale'),'yscale',get(ax,'yscale'),...
     'xgrid',get(ax,'xgrid'),'ygrid',get(ax,'ygrid'),'color',get(ax,'color'))
%     'dataaspectratio',get(ax,'dataaspectratio'),...

  xlo=get(ax,'xlabel');xln=get(axn,'xlabel');
  set(xln,'string',get(xlo,'string'),'vis',get(xlo,'vis'))
  xlo=get(ax,'ylabel');xln=get(axn,'ylabel');
  set(xln,'string',get(xlo,'string'),'vis',get(xlo,'vis'))
  xlo=get(ax,'title');xln=get(axn,'title');
  set(xln,'string',get(xlo,'string'),'vis',get(xlo,'vis'))
  lns=findobj(ax,'type','line','vis','on');
  for ln=lns(:)'
    line('xdata',get(ln,'xdata'),'ydata',get(ln,'ydata'),'color',...
      get(ln,'color'),'linestyle',get(ln,'linestyle'),...
           'marker',get(ln,'marker'))
  end
  k=k+1;
end