%начальные значения
k=1;w=0;
om=[];B=[]
u=[];v=[]
%параметры передаточной функции
k1=24;t1=0.008;t2=0.025;t3=0.1;
while w<=80,
 s=i*w;
 %f=k1/((t1*s+1)*(t2*s+1)*(t3*s+1)*s);
 %u(k)=real(f);
 %v(k)=imag(f);
 B(k)=(-atan(0.008*w)-atan(0.025*w)-atan(0.1*w)-pi/2)*180/pi;
 %B(k)=(atan(v(k)/u(k)))*180/pi;
 om(k)=w;
 w=w+0.01;
 k=k+1;
end;
%построение графика
plot(om,B,'-k');
grid off