detran.m

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

%**********************
%构造前向通道传递函数G(s)
syms a b c d s t T z
winready=figure('color',[1,1,1],'position',[0.15*winw,0.15*winh,0.7*winw,0.7*winh],...
       'name','构造前向通道传递函数G(s)','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.03,0.85,0.32,0.04];
showtext(pos,color,'传递函数G1(s)');
color=[1;.5;0.7];
uicontrol('style','frame','position',[0.03,0.7,.94,.13],...
   'units','normalized','backgroundcolor',color);
color=[0.8;0.8;0.8];
pos=[0.04,0.77,0.06,0.05];
showtext(pos,color,'分子:');
pos=[0.04,0.71,0.06,0.05];
showtext(pos,color,'分母:');
%$$$$$$$$$$$$$$$$$$$
color=[.3;1;0.7];
pos=[0.03,0.64,0.32,0.04];
showtext(pos,color,'传递函数G2(s)');
color=[1;.5;0.7];
uicontrol('style','frame','position',[0.03,0.49,.94,.13],...
   'units','normalized','backgroundcolor',color);
color=[0.8;0.8;0.8];
pos=[0.04,0.56,0.06,0.05];
showtext(pos,color,'分子:');
pos=[0.04,0.5,0.06,0.05];
showtext(pos,color,'分母:');
%##################
color=[.3;1;0.7];
pos=[0.03,0.43,0.32,0.04];
showtext(pos,color,'传递函数G(s)');
color=[1;.5;0.7];
uicontrol('style','frame','position',[0.03,0.28,.94,.13],...
   'units','normalized','backgroundcolor',color);
color=[0.8;0.8;0.8];
pos=[0.04,0.35,0.06,0.05];
showtext(pos,color,'分子:');
pos=[0.04,0.29,0.06,0.05];
showtext(pos,color,'分母:');
%##########################
color=[0.8;0.8;0.8];
editg1num=uicontrol(winready,'style','edit','pos',[0.11,0.77,0.85,0.05],...
        'string','[]','back',[0,1,1],'units','normalized');
editg1den=uicontrol(winready,'style','edit','pos',[0.11,0.71,0.85,0.05],...
        'string','[]','back',[0,1,1],'units','normalized');
editg2num=uicontrol(winready,'style','edit','pos',[0.11,0.56,0.85,0.05],...
        'string','[]','back',[0,1,1],'units','normalized');
editg2den=uicontrol(winready,'style','edit','pos',[0.11,0.5,0.85,0.05],...
        'string','[]','back',[0,1,1],'units','normalized');
%@@@@@@@@@@@@@@@@@@
%sr1=['tg1num=get(editg1num,''string'');',...
%     'tg1den=get(editg1den,''string'');',...
%     'tg2num=get(editg2num,''string'');',...
%     'tg2den=get(editg2den,''string'');',...
%     'g1num=eval(tg1num);g1den=eval(tg1den);',...
%     'g2num=eval(tg2num);g2den=eval(tg2den);',...
%     'gnum=g1num*g2num;gden=g1den*g2den;',...
%     'pos=[0.11,0.35,0.85,0.05];showtext2(pos,color,gnum);',...
%     'pos=[0.11,0.29,0.85,0.05];showtext2(pos,color,gden);'];
sr2=['set(editg1num,''string'',gnum);',...
     'set(editg1den,''string'',gden);',...
     'set(editg2num,''string'',''[]'');',...
     'set(editg2den,''string'',''[]'');'];
sr3=['num=gnum;den=gden;close(winready)'];
%$$$$$$$$$$$$$$$$$$
%uicontrol(winready,'style','push','string','求解G(s)',...
%       'position',[0.04,0.1,0.15,0.06],'units','normalized',...
%      'callback',sr1);
%uicontrol(winready,'style','push','string','G(s)传递给G1(s)并重构G2(s)',...
%       'position',[0.25,0.1,0.26,0.06],'units','normalized',...
%      'callback',sr2);
%uicontrol(winready,'style','push','string','生成前向通道G(s)',...
%       'position',[0.57,0.1,0.17,0.06],'units','normalized',...
%      'callback',sr3);
uicontrol(winready,'style','push','string','取消',...
       'position',[0.8,0.1,0.15,0.06],'units','normalized',...
      'callback','close(winready)');
%set(dmsimu,'enable','off');
%set(dmchange,'enable','off');
%set(dminfy,'enable','off');
%set(msimu,'enable','on');
%set(mchange,'enable','on');
%set(minfy,'enable','on');