showpar.m

基于ＭＡＴＬＡＢ的辅助设计 简述了矩阵分析的重要性

%
% SHOWPAR is a m-file which display all the
% transferfunctions and the timedelay. 

%    Author:  Ole Barup Sorensen, Rapid Data Ltd 

%    Copyright (c) 1989-94 by Rapid Data Ltd
%    Revision 10:08  07/02/94

okflag=figflag('Show parameters',0);

if okflag==0,
x=15;y=0;
Sx=500;Sy=160;

G_str = [ratio2s(polyrnd(G_num)),'/',ratio2s(polyrnd(G_den))];
Gc_str = [ratio2s(polyrnd(Gc_num)),'/',ratio2s(polyrnd(Gc_den))];
H_str = [ratio2s(polyrnd(H_num)),'/',ratio2s(polyrnd(H_den))];
t_str = num2str(t_delay);

Fig2=figure('Numbertitle','off','Name','Show parameters','Menubar','none',...
'Units','normal','Position',[(70)/Scx (150)/Scy (500)/Scx (160)/Scy],'Nextplot',...
'new','Resize','off','Color',[0.5 0.5 0.5]);

g(1)=uicontrol(gcf,'Style','frame','Position',[(x)/Sx (y+45)/Sy (470)/Sx (90)/Sy]);
g(2)=uicontrol(Fig2,'Style','edit','String',['Gc(s): ' Gc_str],...
'Position',[(x+15)/Sx (y+110)/Sy (450)/Sx (20)/Sy],'Max',2);
g(3)=uicontrol(Fig2,'Style','edit','String',['G(s): ' G_str],...
'Position',[(x+15)/Sx (y+90)/Sy (450)/Sx (20)/Sy],'Max',2);
g(4)=uicontrol(Fig2,'Style','edit','String',['H(s): ' H_str],...
'Position',[(x+15)/Sx (y+70)/Sy (450)/Sx (20)/Sy],'Max',2);
g(5)=uicontrol(Fig2,'Style','text','String',['Time delay: ',t_str,' seconds'],...
'Position',[(x+15)/Sx (y+50)/Sy (450)/Sx (20)/Sy]);
set(g(1:5),'Foregroundcolor',[0 0 0],'HorizontalAlignment','left');
g(6)=uicontrol(Fig2,'Style','push','String','Done','Position',...
  [(x)/Sx (y+15)/Sy (80)/Sx (20)/Sy],'Callback',...
  'close(Fig2);clear g Fig2;');
end
clear H_str G_str Gc_str t_str okflag