%**********************
%離散系統能控規范型、能觀規范型、零極點規范型
windmodelformk=figure('color',[1,1,1],'position',[0.05*winw,0.25*winh,0.9*winw,0.6*winh],...
       'name','當前開環離散系統能控規范型、能觀規范型、零極點規范型','numbertitle','off','menubar','none',...
        'resize','off','clipping','off');
color=[0.2;.6;.1];
uicontrol('style','frame','position',[0,0,1,1],...
   'units','normalized','backgroundcolor',color);
color=[.3;1;0.7];
%pos=[0.05,0.95,0.1,0.03];showtext(pos,color,'Jordan型');
pos=[0.05,0.91,0.1,0.04];showtext(pos,color,'能控規范型');
pos=[0.05,0.6,0.1,0.04];showtext(pos,color,'能觀規范型');
pos=[0.05,0.3,0.1,0.04];showtext(pos,color,'零極點規范型');
%pos=[0.05,0.28,0.14,0.03];showtext(pos,color,'最小開環傳遞函數');
%pos=[0.05,0.15,0.1,0.03];showtext(pos,color,'最小狀態空間');
color=[1;.5;0.7];
%uicontrol('style','frame','position',[0.02,0.81,.96,.13],...
%   'units','normalized','backgroundcolor',color);
uicontrol('style','frame','position',[0.02,0.69,.96,.19],...
   'units','normalized','backgroundcolor',color);
uicontrol('style','frame','position',[0.02,0.37,.96,.19],...
   'units','normalized','backgroundcolor',color);
uicontrol('style','frame','position',[0.02,0.08,.96,.19],...
   'units','normalized','backgroundcolor',color);
%uicontrol('style','frame','position',[0.02,0.19,.96,.085],...
%   'units','normalized','backgroundcolor',color);
%uicontrol('style','frame','position',[0.02,0.01,.96,.13],...
%   'units','normalized','backgroundcolor',color);
color=[.8;.8;.8];
%pos=[0.025,0.9,0.02,0.03];
%showtext(pos,color,'AK:');
%pos=[0.025,0.86,0.02,0.03];
%showtext(pos,color,'BK:');
%pos=[0.025,0.82,0.02,0.03];
%showtext(pos,color,'CK:');
%***********
pos=[0.025,0.82,0.035,0.05];
showtext(pos,color,'DAK:');
pos=[0.025,0.76,0.035,0.05];
showtext(pos,color,'DBK:');
pos=[0.025,0.7,0.035,0.05];
showtext(pos,color,'DCK:');
%***********
pos=[0.025,0.5,0.035,0.05];
showtext(pos,color,'DAK:');
pos=[0.025,0.44,0.035,0.05];
showtext(pos,color,'DBK:');
pos=[0.025,0.38,0.035,0.05];
showtext(pos,color,'DCK:');
%***********
pos=[0.025,0.21,0.035,0.05];
showtext(pos,color,'DZK:');
pos=[0.025,0.15,0.035,0.05];
showtext(pos,color,'DPK:');
pos=[0.025,0.09,0.035,0.05];
showtext(pos,color,'DKK:');
color=[0.8;.8;0.8];
%************
%pos=[0.025,0.24,0.04,0.03];
%showtext(pos,color,'DNum:');
%pos=[0.025,0.2,0.04,0.03];
%showtext(pos,color,'DDen:');
%color=[0.8;.8;0.8];
%************
%pos=[0.025,0.1,0.02,0.03];
%showtext(pos,color,'AK:');
%pos=[0.025,0.06,0.02,0.03];
%showtext(pos,color,'BK:');
%pos=[0.025,0.02,0.02,0.03];
%showtext(pos,color,'CK:');
%***********
%uicontrol(windmodelform,'style','edit','pos',[0.05,0.9,0.92,0.03],...
%        'string',mat2str(da1),'back',[0.9,0.9,0.9],'units','normalized');
%pos=[0.05,0.86,0.92,0.03];showtext(pos,color,mat2str(db1));
%pos=[0.05,0.82,0.92,0.03];showtext(pos,color,mat2str(dc1));
uicontrol(windmodelformk,'style','edit','pos',[0.07,0.82,0.9,0.05],...
        'string',mat2str(dak2),'back',[.9,0.9,0.9],'units','normalized');
pos=[0.07,0.76,0.9,0.05];showtext(pos,color,mat2str(dbk2));
pos=[0.07,0.7,0.9,0.05];showtext(pos,color,mat2str(dck2));
uicontrol(windmodelformk,'style','edit','pos',[0.07,0.5,0.9,0.05],...
        'string',mat2str(dak3),'back',[0.9,0.9,0.9],'units','normalized');
pos=[0.07,0.44,0.9,0.05];showtext(pos,color,mat2str(dbk3));
pos=[0.07,0.38,0.9,0.05];showtext(pos,color,mat2str(dck3));
uicontrol(windmodelformk,'style','edit','pos',[0.07,0.21,0.9,0.05],...
        'string',mat2str(dzk),'back',[0.9,0.9,0.9],'units','normalized');
uicontrol(windmodelformk,'style','edit','pos',[0.07,0.15,0.9,0.05],...
   'string',mat2str(dpk),'back',[0.9,0.9,0.9],'units','normalized');
uicontrol(windmodelformk,'style','edit','pos',[0.07,0.09,0.9,0.05],...
        'string',mat2str(dkk),'back',[0.9,0.9,0.9],'units','normalized');
%pos=[0.07,0.24,0.9,0.03];showtext(pos,color,mat2str(dminnum));
%pos=[0.07,0.2,0.9,0.03];showtext(pos,color,mat2str(dminden));
%uicontrol(windmodelform,'style','edit','pos',[0.05,0.1,0.92,0.03],...
%        'string',mat2str(dmina),'back',[0.9,0.9,0.9],'units','normalized');
%pos=[0.05,0.06,0.92,0.03];showtext(pos,color,mat2str(dminb));
%pos=[0.05,0.02,0.92,0.03];showtext(pos,color,mat2str(dminc));

uicontrol(windmodelformk,'style','push','string','Close',...
       'position',[0.45,0.01,0.1,0.05],'units','normalized',...
      'callback','close(windmodelformk)');