%
% CTRLKIT is the m-file which start up The Control Kit. This
% system gives a graphicial interface to the Control Systems
% Toolbox. It is possible to analysis continuous SISO systems,
% and analysis simple and very complicated systems.

%    Author:  Ole Barup Sorensen, Rapid Data Ltd 

%    Copyright (c) 1989-94 by Rapid Data Ltd
%    Revision 13:44  09/05/94


clear
default
close
set(0,'defaultuicontrolunits','normal','Units','normal');
x=0;y=30;
Scx=640;Scy=480;
Sx=500;Sy=200;
Fig8=figure('MenuBar','none','Name','The Control Kit','NumberTitle',...
'off','Units','normal','Position',[0/Scx 280/Scy 500/Scx 200/Scy],'Color',[0.5 0.5 0.5]);


ct_menu
% Drawings
ctrl_dr(Sx,Sy)

uicontrol(gcf,'Style','push','String','G(s)','Position',...
[(x+250)/Sx (y+100)/Sy (45)/Sx (25)/Sy],'Callback',...
['tit=''G(s)'';',...
'if G_typ==1,inpblock;elseif G_typ==2,block;else,sblock;end;']);

uicontrol(gcf,'Style','push','String','H(s)','Position',...
[(x+195)/Sx (y+30)/Sy (45)/Sx (25)/Sy],'Callback',...
'tit=''H(s)'';inpblock;');

uicontrol(gcf,'Style','push','String','Gc(s)','Position',...
[(x+140)/Sx (y+100)/Sy (45)/Sx (25)/Sy],'Callback',...
'if Gc_typ==0,tit=''Gc(s)'';inpblock;else,pidpar;end;');

uicontrol(gcf,'Style','push','String','Delay','Position',...
[(x+320)/Sx (y+100)/Sy (65)/Sx (25)/Sy],'Callback','inpdelay;');

[re,im,ww]=nyquist(1,1,1);
intmnu

if im==[],
  uicontrol(gcf,'Style','edit','Max',2,'String',...
  ['It is necessary to edit the nyquist.m file,',...
  '| because there is a bug in the file.',...
  '| Look in the manual under installation.'],...
  'Position',[(x+120)/Sx (90)/Sy (300)/Sx (80)/Sy],'Foregroundcolor',[1 1 1]);
end