function NDDClosingFeedbackLoops_aux
% Draws feedback loop

%  Copyright 1986-2004 The MathWorks, Inc.
%  $Revision: 1.1.6.1 $ $Date: 2004/08/17 21:33:13 $


clf;
ax = gca;
set(ax,'visible','off','xlim',[-1 21],'ylim',[0 10])
y0 = 7.2;  x0 = 1.5;
wire('parent',ax,'x',x0+[0 2],'y',y0+[0 0],'arrow',0.5);
sumblock('parent',ax,'position',[x0+2.5,y0],'label','-240',...
    'radius',.5,'fontsize',15);
wire('parent',ax,'x',x0+[3 6],'y',y0+[0 0],'arrow',0.5);
sysblock('parent',ax,'position',[x0+6 y0-1.5 3 3],'name','G',...
    'fontsize',12+2*isunix,'fontweight','bold','facecolor',[1 1 .9]);
wire('parent',ax,'x',x0+[9 14],'y',y0+[0 0],'arrow',0.5);
sysblock('parent',ax,'position',[x0+6 y0-7.5 3 3],'name','K',...
    'fontsize',12+2*isunix,'fontweight','bold','facecolor',[1 1 .9]);
wire('parent',ax,'x',x0+[12 12 9],'y',y0+[0 -6 -6],'arrow',0.5);
wire('parent',ax,'x',x0+[6 2.5 2.5],'y',y0+[-6 -6 -0.5],'arrow',0.5);
text('parent',ax,'position',[x0 y0],'string','r ',...
    'horiz','right','fontsize',12+2*isunix,'fontweight','bold');
text('parent',ax,'position',[x0+14 y0],'string',' y',...
    'horiz','left','fontsize',12+2*isunix,'fontweight','bold');
sysblock('parent',ax,'position',[x0+1 y0-8.5 12 11],'num',' ','name',' ',...
    'fontsize',12+2*isunix,'fontweight','bold','facecolor','none',...
    'linestyle',':','linewidth',1,'edgecolor','k');
equation('parent',ax,'position',[x0+13.5,y0-7],'name','H','num','G','den','1+GK',...
    'anchor','left','fontsize',12+2*isunix,'fontweight','bold')