ranges.m

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

% RANGES is a m-file which make the input for the plotrange 

%    Author:  Ole Barup Sorensen, Rapid Data Ltd 

%    Copyright (c) 1989-94 by Rapid Data Ltd
%    Revision 14:57  26/01/94

okflag=figflag('Plot range',0);

if okflag==0,
  Sx=350;Sy=150;
  x=15;y=0;

  Fig9=figure('Numbertitle','off','Name','Plot range','Menubar','none',...
  'Units','normal','Position',[(145)/Scx (200)/Scy (350)/Scx (150)/Scy],'Nextplot',...
  'new','Resize','on','Color',[0.5 0.5 0.5]);


if ((an_type>=1)&(an_type<=4))|(an_type==8),
  mv=w_start;mv1=w_end;mv2=pt;
  Han_An1(1)=uicontrol(Fig9,'Style','frame','Position',[(x)/Sx (55)/Sy (300)/Sx (70)/Sy]);

  Han_An1(2)=uicontrol(Fig9,'Style','text','String','Starting frequency (rad/s):',...
  'Position',[(x+5)/Sx (100)/Sy (200)/Sx (18)/Sy]);
  Han_An1(3)=uicontrol(Fig9,'Style','edit','Position',[(x+210)/Sx (100)/Sy (70)/Sx (18)/Sy],...
  'String',startstr,'Callback',['startstr=get(Han_An1(3),''String'');',...
  'w_start=str2num(startstr);w_start=log10(w_start);']);

  Han_An1(4)=uicontrol(Fig9,'Style','text','String','End frequency (rad/s):',...
  'Position',[(x+5)/Sx (y+80)/Sy (200)/Sx (18)/Sy]);
  Han_An1(5)=uicontrol(Fig9,'Style','edit','Position',[(x+210)/Sx (y+80)/Sy (70)/Sx (18)/Sy],...
  'String',endstr,...
  'Callback',['endstr=get(Han_An1(5),''String'');w_end=str2num(endstr);',...
  'w_end=log10(w_end);']);

  Han_An1(6)=uicontrol(Fig9,'Style','text','String','Number of frequency points:',...
  'Position',[(x+5)/Sx (y+60)/Sy (220)/Sx (20)/Sy]);
  Han_An1(7)=uicontrol(Fig9,'Style','edit','Position',[(x+210)/Sx (y+60)/Sy (70)/Sx (18)/Sy],...
  'String',ptstr,...
  'Callback','ptstr=get(Han_An1(7),''String'');pt=str2num(ptstr);');

  set([Han_An1(3) Han_An1(5) Han_An1(7)],'Backgroundcolor',[1 1 1]);
  set(Han_An1(2:7),'Foregroundcolor',[0 0 0],'HorizontalAlignment','left');

  uicontrol(Fig9,'Style','push','String','Cancel','Position',...
  [(x+100)/Sx (y+15)/Sy (80)/Sx (20)/Sy],'Callback',['close(Fig9);clear Fig9;',...
  'w_start=mv;w_end=mv1;pt=mv2;']);

elseif an_type == 5
  mv=kbeg;mv1=kend;mv2=kgain;
  Han_An1(1)=uicontrol(Fig9,'Style','frame','Position',[(x)/Sx (55)/Sy (300)/Sx (70)/Sy]);

  Han_An1(2)=uicontrol(Fig9,'Style','text','String','Starting gain:',...
  'Position',[(x+5)/Sx (100)/Sy (200)/Sx (18)/Sy]);
  Han_An1(3)=uicontrol(Fig9,'Style','edit','Position',[(x+210)/Sx (100)/Sy (70)/Sx (18)/Sy],...
  'String',kbegstr,...
  'Callback',['kbegstr=get(Han_An1(3),''String'');kbeg=str2num(kbegstr);']);

  Han_An1(4)=uicontrol(Fig9,'Style','text','String','End gain:',...
  'Position',[(x+5)/Sx (80)/Sy (200)/Sx (18)/Sy]);
  Han_An1(5)=uicontrol(Fig9,'Style','edit','Position',[(x+210)/Sx (80)/Sy (70)/Sx (18)/Sy],...
  'String',kendstr,...
  'Callback',['kendstr=get(Han_An1(5),''String'');kend=str2num(kendstr);']);

  Han_An1(6)=uicontrol(Fig9,'Style','text','String','Number of gain points:',...
  'Position',[(x+5)/Sx (60)/Sy (220)/Sx (20)/Sy]);
  Han_An1(7)=uicontrol(Fig9,'Style','edit','Position',[(x+210)/Sx (60)/Sy (70)/Sx (18)/Sy],...
  'String',kgainstr,...
  'Callback','kgainstr=get(Han_An1(7),''String'');kgain=str2num(kgainstr);');

  set([Han_An1(3) Han_An1(5) Han_An1(7)],'Backgroundcolor',[1 1 1]);
  set(Han_An1(2:7),'Foregroundcolor',[0 0 0],'HorizontalAlignment','left');

  uicontrol(Fig9,'Style','push','String','Cancel','Position',...
  [(x+100)/Sx (y+15)/Sy (80)/Sx (20)/Sy],'Callback',['close(Fig9);clear Fig9;',...
  'kbeg=mv;kend=mv1;kgain=mv2;']);

elseif (an_type == 6)|(an_type == 7)
  mv=tend;mv1=pt;
  Han_An1(1)=uicontrol(Fig9,'Style','frame','Position',[(x)/Sx (55)/Sy (250)/Sx (50)/Sy]);
  Han_An1(2)=uicontrol(Fig9,'Style','text','String','Terminate time (seconds):',...
  'Position',[(x+5)/Sx (80)/Sy (170)/Sx (18)/Sy]);
  Han_An1(3)=uicontrol(Fig9,'Style','edit','Position',[(x+180)/Sx (80)/Sy (60)/Sx (18)/Sy],...
  'String',num2str(tstr),...
  'Callback','tstr=get(Han_An1(3),''String'');tend=str2num(tstr);');
  Han_An1(4)=uicontrol(Fig9,'Style','text','String','Number of time points:',...
  'Position',[(x+5)/Sx (60)/Sy (170)/Sx (18)/Sy]);
  Han_An1(5)=uicontrol(Fig9,'Style','edit','Position',[(x+180)/Sx (60)/Sy (60)/Sx (18)/Sy],...
  'String',num2str(pt),...
  'Callback','ptstr=get(Han_An1(5),''String'');pt=str2num(ptstr);');

  set([Han_An1(3) Han_An1(5)],'Backgroundcolor',[1 1 1]);
  set(Han_An1(2:5),'HorizontalAlignment','left');

  uicontrol(Fig9,'Style','push','String','Cancel','Position',...
  [(x+100)/Sx (y+15)/Sy (80)/Sx (20)/Sy],'Callback',...
  ['close(Fig9);clear Fig9;tend=mv;pt=mv1;']);

end;

end

uicontrol(Fig9,'Style','push','String','Done','Position',...
[(x)/Sx (y+15)/Sy (80)/Sx (20)/Sy],'Callback',...
['close(Fig9);clear Fig9']);

clear okflag