код для 1 части (можно использовать и для второй)

close all;
clear all;
clc

%начальные данные
p=[1 86 1903 10890 89890]
b=[8900 89000]
%freqs(b,p)

%корни передатки и график передатки
nol=roots(b)
nol1=nol(1);
r=roots(p)
r1=r(1); r2=r(2); r3=r(3);
dp=polyder(p)
A1=polyval(dp,r1)
B1= polyval(b, r1)
C1=B1./A1
A2=polyval(dp,r2)
B2= polyval(b, r2)
C2=B2./A2
A3=polyval(dp,r3)
B3= polyval(b, r3)
C3=B3./A3
t=[0:0.01:150]; % Изменил время
%x=C1.*exp(r1.*t)+C2.*exp(r2.*t)+C3.*exp(r3.*t);
%figure(1);
%plot(t,x),grid on, xlabel('Time(sec)'), ylabel('x(t)')

%АЧХ
w=[0:0.01:50]; % Изменил макс. частоту
W=(8900.*(w.*1i)+89000)./((w.*1i).^4+86.*(w.*1i).^3+1903.*(w.*1i).^2+10890.*(w.*1i)+89890);
%W=(550)./((w.*1i).^3-14.*w.^2+45.*(w.*1i)+561); % переделал мнимую единицу

WR=real(W); WI=imag(W);
A=sqrt(WR.^2+WI.^2);
figure(2);
plot(w,A), grid on, xlabel('w'), ylabel('A(w)');
figure(3);
plot(WR,WI), grid on, xlabel('P(w)'), ylabel('Q(w)')
figure(30);
nyquist(b,p);
%ФЧХ


f_a=atan(WI./WR)
figure(4);
plot(w,f_a), grid on, xlabel('w'), ylabel('f(w)')
f=atan(w./(-nol1))-(atan(w./(-r1))+atan(w./(-r2))+atan(w./(-r3))); % вычисляю по правильной формуле

figure(40);
plot(w,f), grid on, xlabel('w'), ylabel('f(w)')

sys1=tf(b,p)

figure(1);
impulse(sys1,1)
figure(2);
step(sys1,1)
veshestvennaya1=B1./(r1.*A1);
veshestvennaya2=B2./(r2.*A2);
veshestvennaya3=B3./(r3.*A3);