---

% Параметры апериодического звена
k = 1;   % Коэффициент усиления
T = 1;   % Постоянная времени

% Создаем передаточную функцию W(s) = k / (T*s + 1)
W = tf(k, [T 1]);

% Строим графики
figure('Name', 'Апериодическое звено');

% ЛАЧХ и ЛФЧХ
subplot(2, 1, 1);
bode(W);
grid on;
title('ЛАЧХ и ЛФЧХ апериодического звена');

% Годограф Найквиста
subplot(2, 1, 2);
nyquist(W);
grid on;
title('Годограф Найквиста (АФЧХ)');