Структурная схема моделируемой системы. Математическое описание и сходных данных. Структурная схема системы, страница 5

b2:=StrToFloat(Edit14.Text);

if opendialog1.execute then

begin

namefile:=opendialog1.filename;

assignfile(f,namefile);

rewrite (f);

Writeln(f);

Writeln(f,'    Результаты имитационного моделирования  ');

Writeln(f,'    ------------------------------------------');

Writeln(f,'    ------------------------------------------');

Writeln(f);

Writeln(f,'    Передаточная функция объекта по каналу управления ');

Writeln(f);

Writeln(f,'                           k       ');

Writeln(f,'              Wo(p)=------------- ');

Writeln(f,'                   (1+T1p)(1+T2p)     ');

Writeln(f);

Writeln(f,'    Параметры модели объекта ');

Writeln(f,'    Коэффициент передачи k= ',Edit1.text);

Writeln(f,'    Постоянная времени Т1 = ',Edit2.text);

Writeln(f,'    Постоянная времени Т2 = ',Edit3.text);

Writeln(f,'    ------------------------------------------');

Writeln(f);

Writeln(f,'     Возмущение f2:  ');

Writeln(f);

Writeln(f,'      f2(t)=Cf2exp(-Alf*t)    ');

Writeln(f);

Writeln(f,'    Параметры  ');

Writeln(f,'    Cf2 = ',Edit9.text);

Writeln(f,'    Alf = ',Edit16.text);

Writeln(f,'    ------------------------------------------');

Writeln(f);

Writeln(f,'    ПИ - регулятор ');

Writeln(f,'    Настройка К1 = ',edit7.text);

Writeln(f,'    Настройка К2 = ',edit8.text);

Writeln(f,'    ------------------------------------------');

Writeln(f,'    Коэффициент датчика kd = ',edit5.text);

Writeln(f,'    Коэффициент ИМ kim = ',edit6.text);

Writeln(f,'    Коэффициент РО kro = ',edit12.text);

Writeln(f,'    Период дискретности T0 = ',edit15.text);

Writeln(f);

writeln(f,'  Параметры НЭ  ');

writeln(f);

writeln(f,'  Граница b1 = ',edit13.text);

writeln(f,'  Граница b2 = ',edit14.text);

writeln(f);

If (b1=0) and (b2=0) then

Begin

Writeln(f,'  Переходный процесс по задающему воздействию (линейная система)')

end

else

Writeln(f,'  Переходный процесс по задающему воздействию (нелинейная система)');

Writeln(f,'    Возмущающее воздействие экспоненциальное = ',edit4.text);

Writeln(f);

Writeln(f,'Такт   Возмущение   Вход РО   Выход РО  Система  ');

with stringgrid2 do

for N:=1 to N2 do

Writeln(f,'  ',cells[0,N],'   ',cells[1,N],'    ',cells[2,N],'    ',cells[3,N],'    ',cells[4,N]);

closefile(f);

messagedlg('Расчет Переходного процесса по возмущению записан!!!',mtInformation,[mbOk],0);

end;

end;

end;

end.

10. Оценка качественных показателей работы системы

Таблица 1. Качественные и количественные характеристики дискретной системы управления при настройках регулятора                           K1 = 0,041            K2 = 0,027.

Возмущающее воздействие	Установившееся состояние ∆Y∞	Статичес-каая ошибка ∆Е∞	Время регули-рования, Трег	Время переходного процесса Тп.п	Пере-регули-рование σ, %	Затухание за период ξ, %
Для линейной системы управления
При изменении задающего воздействия
1,5·1[t]
При изменении возмущающего воздействия
3*exp(0.02)·1[t]
Для нелинейной системы управления:
При изменении задающего воздействия
1,5·1[t]
При изменении возмущающего воздействия
3*exp(0.02)·1[t]

Вывод: