%Исследование инерционного звена  
w1=0.1:0.1:10; %1 poddiapazon chastot
w2=10:1:100000; %2 poddiapazon chastot
w=[w1 w2]; %diapazon chastot
W=10./(0.004*j*w+1); %AFCH
A=abs(W); %ACH
F=angle(W)*180/pi; %FCH
figure(1)
plot(real(W), imag(W)); %Stroim AFCH
title('AFCH')
grid
figure(2)
subplot(2,1,1)
plot(log10(w),20*log10(A));grid %Stroim LACH
title('LACH')
subplot(2,1,2)
plot(log10(w),F);grid %Stroim LFCH
title('LFCH')
