cfit.m

华东理工大学自动化系《控制系统分析、设计和应用》教材配套程序实例,有关说明： 1. 安装MATLAB软件。安装时

% 曲线拟合的示例

% Copyright 2000-2001 ECUST. 
%   $Revision: 1.1 $  $Date: 2000/04/25 08:11:12 $

f1=figure('name','曲线拟合','NumberTitle','off','Menubar','none','resize','off',...
   'pos',[10 50 750 500],'color','w');
load fitdata;
axes('pos',[.1 .1 .7 .8]);
plot(tt,y,'b',t,h,'r.','linew',2,'markers',18);grid;
legend1('拟合','实际');[r,s]=max(tt);[r1,s1]=max(y);
str1=[' Kp= ',num2str(x(1))];
str2=[' Tp= ',num2str(x(2))];
str3=['τp= ',num2str(x(3))];
text(r/2,r1/2,str1,'fonts',14,'fontw','b','color','r');
text(r/2,r1/2-r1/16,str2,'fonts',14,'fontw','b','color','r');
text(r/2,r1/2-r1/8,str3,'fonts',14,'fontw','b','color','r');
title('阶跃响应曲线和拟合曲线比较','fonts',14,'fontw','b');
set(gca,'fonts',14,'fontw','b');
uicontrol('sty','frame','pos',[650 25 70 80],'back',[0 1 1]);
uicontrol('sty','pus','pos',[655 30 60 30],'string','关  闭',...
   'fonts',14,'fontw','bold','call','close(gcf)');
uicontrol('sty','pus','pos',[655 70 60 30],'string','下一页',...
   'fonts',14,'fontw','bold','call','close(gcf);cfit1');