程序清单:(部分略)
%电流环BODE图%
den1=([0.0017 1]);num1=40;den2=([0.03 1]);num2=2;num3=.05;den3=([0.002 1]);
[num4,den4]=series(num1,den1,num2,den2);[num,den]=feedback(num4,den4,num3,den3)
w=logspace(-1,4,100);[m,p]=bode(num,den,w);
subplot(211); semilogx(w,20*log10(m));title('电流内环bode');
subplot(212);semilogx(w,p);gtext('frequency(rad/sec)')
gtext('Gain dB');gtext('phase deg');printsys(num,den)
%电流调节器的设计%
den1=([0.0017 1]);num1=40;den2=([0.03 1]);num2=2;num3=.05;den3=([0.002 1]);
[num4,den4]=series(num1,den1,num2,den2);[num,den]=series(num4,den4,num3,den3)
printsys(num,den);wgc=135;dpm=65;kc=34;
ngv=polyval(num,j*wgc);dgv=polyval(den,j*wgc);g=ngv/dgv;
thetag=angle(g);thetagd=thetag*180/pi;mg=abs(g);dpmrad=dpm*pi/180;
tz=(1+kc*mg*cos(dpmrad-thetag)/(-wgc*kc*mg*sin(dpmrad-thetag))
tp=(cos(dpmrad-thetag)+kc*mg)/(wgc*sin(dpmrad-thetag))
nk=[tz,1];dk=[tp,1]
图4 电流环校正后BODE图 图5 转速环校正后BODE图
06-10-23 14:07