dsmymformk.m

详细介绍了Mathlab的使用方法与技巧

%**********************
%系统的Jordan型、能控规范型、能观规范型、零极点规范型、最小开环传递函数及最小状态空间
windmodelform=figure('color',[1,1,1],'position',[0.05*winw,0.05*winh,0.9*winw,0.9*winh],...
       'name','当前开环离散系统S域的Jordan型,能控规范型,能观规范型,零极点规范型,最小开环传递函数及最小状态空间','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.77,0.1,0.03];showtext(pos,color,'能控规范型');
pos=[0.05,0.59,0.1,0.03];showtext(pos,color,'能观规范型');
pos=[0.05,0.41,0.1,0.03];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.63,.96,.13],...
   'units','normalized','backgroundcolor',color);
uicontrol('style','frame','position',[0.02,0.45,.96,.13],...
   'units','normalized','backgroundcolor',color);
uicontrol('style','frame','position',[0.02,0.32,.96,.085],...
   '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.04,0.03];
showtext(pos,color,'SAK:');
pos=[0.025,0.86,0.04,0.03];
showtext(pos,color,'SBK:');
pos=[0.025,0.82,0.04,0.03];
showtext(pos,color,'SCK:');
%***********
pos=[0.025,0.72,0.04,0.03];
showtext(pos,color,'SAK:');
pos=[0.025,0.68,0.04,0.03];
showtext(pos,color,'SBK:');
pos=[0.025,0.64,0.04,0.03];
showtext(pos,color,'SCK:');
%***********
pos=[0.025,0.54,0.04,0.03];
showtext(pos,color,'SAK:');
pos=[0.025,0.5,0.04,0.03];
showtext(pos,color,'SBK:');
pos=[0.025,0.46,0.04,0.03];
showtext(pos,color,'SCK:');
%***********
pos=[0.025,0.37,0.04,0.03];
showtext(pos,color,'SZK:');
pos=[0.025,0.33,0.04,0.03];
showtext(pos,color,'SPK:');
color=[0.8;.8;0.8];
%************
pos=[0.025,0.24,0.04,0.03];
showtext(pos,color,'Num:');
pos=[0.025,0.2,0.04,0.03];
showtext(pos,color,'Den:');
color=[0.8;.8;0.8];
%************
pos=[0.025,0.1,0.04,0.03];
showtext(pos,color,'SAK:');
pos=[0.025,0.06,0.04,0.03];
showtext(pos,color,'SBK:');
pos=[0.025,0.02,0.04,0.03];
showtext(pos,color,'SCK:');
%***********
uicontrol(windmodelform,'style','edit','pos',[0.07,0.9,0.9,0.03],...
        'string',mat2str(ak1),'back',[0.9,0.9,0.9],'units','normalized');
pos=[0.07,0.86,0.9,0.03];showtext(pos,color,mat2str(bk1));
pos=[0.07,0.82,0.9,0.03];showtext(pos,color,mat2str(ck1));
uicontrol(windmodelform,'style','edit','pos',[0.07,0.72,0.9,0.03],...
        'string',mat2str(ak2),'back',[.9,0.9,0.9],'units','normalized');
pos=[0.07,0.68,0.9,0.03];showtext(pos,color,mat2str(bk2));
pos=[0.07,0.64,0.9,0.03];showtext(pos,color,mat2str(ck2));
uicontrol(windmodelform,'style','edit','pos',[0.07,0.54,0.9,0.03],...
        'string',mat2str(ak3),'back',[0.9,0.9,0.9],'units','normalized');
pos=[0.07,0.5,0.9,0.03];showtext(pos,color,mat2str(bk3));
pos=[0.07,0.46,0.9,0.03];showtext(pos,color,mat2str(ck3));
uicontrol(windmodelform,'style','edit','pos',[0.07,0.37,0.9,0.03],...
        'string',mat2str(zk),'back',[0.9,0.9,0.9],'units','normalized');
uicontrol(windmodelform,'style','edit','pos',[0.07,0.33,0.9,0.03],...
        'string',mat2str(pk),'back',[0.9,0.9,0.9],'units','normalized');
pos=[0.07,0.24,0.9,0.03];showtext(pos,color,mat2str(minnumk));
pos=[0.07,0.2,0.9,0.03];showtext(pos,color,mat2str(mindenk));
uicontrol(windmodelform,'style','edit','pos',[0.07,0.1,0.9,0.03],...
        'string',mat2str(minak),'back',[0.9,0.9,0.9],'units','normalized');
pos=[0.07,0.06,0.9,0.03];showtext(pos,color,mat2str(minbk));
pos=[0.07,0.02,0.9,0.03];showtext(pos,color,mat2str(minck));

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