function varargout = keshe(varargin)gui_Singleton = 1;gui_State = struct('gui_Name', mfilename, ... 'gui_Singleton', gui_Singleton, ... 'gui_OpeningFcn', @keshe_OpeningFcn, ... 'gui_OutputFcn', @keshe_OutputFcn, ... 'gui_LayoutFcn', [] , ... 'gui_Callback', []);if nargin && ischar(varargin{1}) gui_State.gui_Callback = str2func(varargin{1});end if nargout [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});else gui_mainfcn(gui_State, varargin{:});end% End initialization code - DO NOT EDIT % --- Executes just before keshe is made visible.function keshe_OpeningFcn(hObject, eventdata, handles, varargin)handles.output = hObject; guidata(hObject, handles); % --- Outputs from this function are returned to the command line.function varargout = keshe_OutputFcn(hObject, eventdata, handles) varargout{1} = handles.output; function edit1_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit1_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction edit2_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit2_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end % --- Executes on button press in pushbutton1.function pushbutton1_Callback(hObject, eventdata, handles)axes(handles.axes1);claa=get(handles.edit1,'string');b=get(handles.edit2,'string');aa=tf(str2num(a),str2num(b));axes(handles.axes1);rlocus(aa,'r'); %set(handles.edit5,'string',[]); % --- Executes on button press in pushbutton2.function pushbutton2_Callback(hObject, eventdata, handles)a=get(handles.edit1,'string');b=get(handles.edit2,'string');axes(handles.axes2);sys=tf(str2num(a),str2num(b));sys=feedback(sys,1);pzmap(sys)%% --- Executes on button press in pushbutton3.function pushbutton3_Callback(hObject, eventdata, handles)set(handles.edit1,'string',[]);set(handles.edit2,'string',[]);set(handles.edit5,'string',[]);set(handles.edit3,'string',[]);set(handles.edit4,'string',[]);set(handles.edit6,'string',[]);set(handles.edit7,'string',[]);set(handles.edit11,'string',[]);set(handles.edit8,'string',[]);set(handles.edit12,'string',[]);set(handles.edit9,'string',[]);set(handles.edit10,'string',[]);set(handles.edit13,'string',[]);axes(handles.axes1)claaxes(handles.axes2)cla % --- Executes on button press in pushbutton4.function pushbutton4_Callback(hObject, eventdata, handles)a=get(handles.edit1,'string');b=get(handles.edit2,'string');aa=tf(str2num(a),str2num(b));num=aa.num{1};den=aa.den{1};p=roots(den);z=roots(num);n=length(p);m=length(z); axes(handles.axes1)cla axes(handles.axes1);rlocus(aa,'r');hold onif n>m s=(sum(p)-sum(z))/(n-m); set(handles.edit5,'string',s); sd=[]; if nargout<1 for i=1:n-m sd=[sd,s]; end sysa=zpk([],sd,1); hold on; [r,k]=rlocus(sysa); for i=1:n-m plot(real(r(i,:)),imag(r(i,:)),'g:'); end endend % --- Executes on button press in pushbutton5.function pushbutton5_Callback(hObject, eventdata, handles)a=get(handles.edit1,'string');b=get(handles.edit2,'string');aa=tf(str2num(a),str2num(b));sys=feedback(aa,1);%axes(handles.axes2);[p,z]=pzmap(sys);if real(p)<0 set(handles.edit3,'string','YES')else set(handles.edit3,'string','NO')end function edit3_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit3_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));End% --- Executes on button press in pushbutton6.function pushbutton6_Callback(hObject, eventdata, handles)close % --- Executes on button press in pushbutton7.function pushbutton7_Callback(hObject, eventdata, handles)a=get(handles.edit1,'string');b=get(handles.edit2,'string');sys=tf(str2num(a),str2num(b));[K,s]=breakin(sys);if isempty(s) set(handles.edit4,'string','No Unit');elsett=num2str(s);set(handles.edit4,'string',tt);endfunction [K,s]=breakin(sys)sys=tf(sys);num=sys.num{1};den=sys.den{1};a=conv(den,polyder(num));b=conv(num,polyder(den));dk_ds=([zeros(1,length(b)-length(a)),a]-b);ss=roots(dk_ds);K=[];s=[];syms nums densfor i=1:length(ss) nums=poly2sym(num,'s');%得到分子多项式表达式 dens=poly2sym(den,'s'); Kk(i)=-subs(dens/nums,'s',ss(i));%得到某分离点所对应增益值 if Kk(i)>0 K=[K,Kk(i)]; s=[s,ss(i)];%舍去负增益对应分离点 else S='木有分离点'; endendfunction edit4_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit4_CreateFcn(hObject, eventdata, handles) if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit5_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit5_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end % --- Executes on button press in pushbutton9.function pushbutton9_Callback(hObject, eventdata, handles)a=get(handles.edit1,'string');b=get(handles.edit2,'string');aa=tf(str2num(a),str2num(b)); [K,Wcg]=imwk(aa); if isempty(Wcg) set(handles.edit6,'string','NULL'); set(handles.edit7,'string','NULL');elsegg=num2str(Wcg);mm=num2str(K);set(handles.edit6,'string',gg);set(handles.edit7,'string',mm);end [K0,Wcg0]=imwk(aa);kt=num2str(K0);set(handles.edit8,'string',kt);set(handles.edit11,'string','0'); [K1,st]=breakin(aa);kz=num2str(K1);set(handles.edit12,'string',kz);[K2,Wcg2]=imwk(aa);kzz=num2str(K2);set(handles.edit9,'string',kzz); [K3,s]=breakin(aa);set(handles.edit13,'string','0');kw=num2str(K3);set(handles.edit10,'string',kw);function [K,Wcg]=imwk(sys)sys=tf(sys);num=sys.num{1};den=sys.den{1};asys=allmargin(sys);Wcg=asys.GMFrequency;K=asys.GainMargin; function edit6_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit6_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit7_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit7_CreateFcn(hObject, eventdata, handles) if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit8_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit8_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit9_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit9_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit10_Callback(hObject, eventdata, handles)% --- Executes during object creation, after setting all properties.function edit10_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit11_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit11_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit12_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit12_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit13_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit13_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit14_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit14_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit15_Callback(hObject, eventdata, handles)% --- Executes during object creation, after setting all properties.function edit15_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit16_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit16_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end % --- Executes on button press in pushbutton10.function pushbutton10_Callback(hObject, eventdata, handles)global mm c=get(handles.edit14,'string');a=get(handles.edit15,'string');b=get(handles.edit16,'string');Gk=tf(str2num(a),str2num(b));switch mm case 1 Gkd=c2d(Gk,str2num(c),'zoh'); case 2 Gkd=c2d(Gk,str2num(c),'foh');endset(handles.pushbutton12,'Enable','on');axes(handles.axes3);rlocus(Gkd); % --- Executes on button press in pushbutton11.function pushbutton11_Callback(hObject, eventdata, handles)set(handles.edit14,'string',1);set(handles.edit15,'string',[]);set(handles.edit16,'string',[]);set(handles.edit17,'string',[]);set(handles.edit18,'string',[]);set(handles.pushbutton12,'Enable','off');set(handles.pushbutton13,'Enable','off');axes(handles.axes3)cla % --- Executes on button press in pushbutton12.function pushbutton12_Callback(hObject, eventdata, handles)global kk;c=get(handles.edit14,'string');a=get(handles.edit15,'string');b=get(handles.edit16,'string');Gk=tf(str2num(a),str2num(b));Gkd=c2d(Gk,str2num(c));[kk,poles]=rlocfind(Gkd);set(handles.pushbutton13,'Enable','on'); % --- Executes on button press in pushbutton13.function pushbutton13_Callback(hObject, eventdata, handles)global kk;set(handles.edit18,'string',kk);set(handles.edit17,'string','0'); function edit17_Callback(hObject, eventdata, handles) % --- Executes during object creation, after setting all properties.function edit17_CreateFcn(hObject, eventdata, handles) if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end function edit18_Callback(hObject, eventdata, handles)% --- Executes during object creation, after setting all properties.function edit18_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end % --- Executes on selection change in popupmenu1.function popupmenu1_Callback(hObject, eventdata, handles)global mmmm=get(hObject,'Value'); % --- Executes during object creation, after setting all properties.function popupmenu1_CreateFcn(hObject, eventdata, handles)if ispc set(hObject,'BackgroundColor','white');else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end 。