%начальные значения
k=1;w=0;
om=[];A=[]
om=[];B=[]
u=[];v=[]
%параметры передаточной функции
k1=2;t=0.2;
while w<=25,
 s=i*w;
 %вид передаточной функции
 f=k1/(t*s+1);
 %массив значений для амплитудной характеристики
 A(k)=abs(f);
 %массив значений для фазовой характеристики
 u(k)=real(f);
 v(k)=imag(f);
 B(k)=atan(v(k)/u(k));
 om(k)=w;
 w=w+0.01;
 k=k+1;
end;
%построение графика
plot(om,A,om,B,'-k');
grid off