imcpid.m

用MATLAB的脚本语言M语言编写的

function [Gc,Kp,Ti,Td,H]=imcpid(key,vars)
K=vars(1); L=vars(2); T=vars(3); N=vars(4); 
a=K*L/T; Tf=vars(5); Ti=[]; Td=[];
if key==2, Kp=T/(K*(L+Tf)); Ti=T; 
else, Kp=(L/2+T)/(K*(L+Tf)); 
   Ti=T+L/2; Td=L*T/(L+2*T); 
end
[Gc,H]=writepid(Kp,Ti,Td,N,key);