dready.m

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

%**********************
%构造前向通道传递函数G(s)
syms s a b c f t T z w
winready=figure('color',[1,1,1],'position',[0.15*winw,0.15*winh,0.7*winw,0.7*winh],...
       'name','函数F(t)的Z变换和LAPLACE变换','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.87,0.32,0.05];
showtext3(pos,color,'输入函数F(t)的表达式');
color=[1;.5;0.7];
uicontrol('style','frame','position',[0.03,0.7,.94,.16],...
   'units','normalized','backgroundcolor',color);
color=[0.8;0.8;0.8];
pos=[0.04,0.76,0.06,0.06];
showtext3(pos,color,'F(t):');
%pos=[0.04,0.71,0.06,0.05];
%showtext(pos,color,'分母:');
%##################
color=[1;.5;0.7];
uicontrol('style','frame','position',[0.03,0.49,.94,.16],...
   'units','normalized','backgroundcolor',color);
color=[0.8;0.8;0.8];
pos=[0.04,0.54,0.2,0.06];
showtext3(pos,color,'LAPLACE变换:');
color=[1;.5;0.7];
uicontrol('style','frame','position',[0.03,0.27,.94,.16],...
   'units','normalized','backgroundcolor',color);
color=[0.8;0.8;0.8];
pos=[0.04,0.32,0.2,0.06];
showtext3(pos,color,'Z变换:');
%##########################
color=[0.8;0.8;0.8];
editg1num=uicontrol(winready,'style','edit','pos',[0.11,0.76,0.85,0.06],'fontsize',12,...
        'string','[ ]','back',[0,1,1],'units','normalized');
%@@@@@@@@@@@@@@@@@@
sr1=['tg1num=get(editg1num,''string'');',...
     'g1num=eval(tg1num);',...
     't1=T*t;gnum1=subs(g1num,t,t1);gnum=ztrans(gnum1,t,z);gnum=simple(gnum);'...
     'gden=laplace(g1num,t,s);gden=simple(gden);',...
     'pos=[0.25,0.54,0.71,0.06];showtext2(pos,color,gden);',...
     'pos=[0.25,0.32,0.71,0.06];showtext2(pos,color,gnum);'];
sr2=['set(editg1num,''string'',''[ ]'');'];
%sr3=['num=gnum;den=gden;close(winready)'];
%$$$$$$$$$$$$$$$$$$
uicontrol(winready,'style','push','string','S、Z变换',...
       'position',[0.04,0.1,0.15,0.06],'units','normalized',...
      'callback',sr1);
uicontrol(winready,'style','push','string','重新输入F(t)',...
       'position',[0.25,0.1,0.26,0.06],'units','normalized','fontsize',12,...
      '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');