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

cells[4,i+1]:=floattostrf(y,fffixed,8,4);

rowcount:=rowcount+1;//dobavl_vizual_stroki

end//1

else

begin//2

cells[0,i+1]:=floattostrf(Vr,fffixed,3,0);

cells[1,i+1]:=floattostrf(Cf,fffixed,8,4);

cells[2,i+1]:=floattostrf(Q,fffixed,8,4);

cells[3,i+1]:=floattostrf(U[n],fffixed,8,4);

cells[4,i+1]:=floattostrf(y,fffixed,8,4);

rowcount:=rowcount+1;//dobavl_vizual_stroki

end;//2

//построение графиков

If RadioButton1.checked=true then

begin//lin_zad

Series1.AddXY(Vr,y,'',clteecolor);

Series2.AddXY(Vr,Co,'',clteecolor);

end//lin_zad

Else If RadioButton2.checked=true then

begin//lin_vozm

Series1.AddXY(Vr,y,'',clteecolor);

Series5.AddXY(Vr,Cf,'',clteecolor);

end//lin_vozm

Else If RadioButton3.checked=true then

begin//nelin_zad

Series1.AddXY(Vr,y,'',clteecolor);

Series2.AddXY(Vr,Co,'',clteecolor);

Series3.AddXY(Vr,Q,'',clteecolor);

Series4.AddXY(Vr,U[n],'',clteecolor);

end//nelin_zad

Else If RadioButton4.checked=true then

begin//nelin_vozm

Series1.AddXY(Vr,y,'',clteecolor);

Series5.AddXY(Vr,Cf,'',clteecolor);

Series3.AddXY(Vr,Q,'',clteecolor);

Series4.AddXY(Vr,U[n],'',clteecolor);

end;//nelin_vozm

Vr:=Vr+diskr;

n:=n+1;

end;//rab_cikl

end;//переходный процесс по заданию и возмущению

procedure TForm1.ComboBox2Change(Sender: TObject);

var

i,N1:integer;

begin

N1:=strtoint(combobox2.Text);

for i:=1 to N1 do

with stringgrid1 do

begin//1

cells[0,i]:='';

cells[1,i]:='';

cells[2,i]:='';

cells[3,i]:='';

cells[4,i]:='';

rowcount:=2;

end;//1

series1.Clear;

series2.Clear;

series3.Clear;

series4.Clear;

series5.Clear;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin//1

with stringgrid1 do

//заголовок таблицы

begin//zag_tabl

Cells[0,0]:='Время';

Cells[1,0]:='Задание';

Cells[2,0]:='Рег-р+ИМ';

Cells[3,0]:='УпрВозд';

Cells[4,0]:='Система';

rowcount:=2;

end;//zag_tabl

end;//1

procedure TForm1.N3Click(Sender: TObject);

var

f:textfile;//запись в текстовый файл

namefile:string;

i,N1:integer;

label lin,nel,save;

begin

N1:=strtoint(combobox2.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,'                    -p*tau');

writeln(f,'                  k*e ');

writeln(f,'       W(p) = -------------- ');

writeln(f,'                    p ');

writeln(f);

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

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

writeln(f,'    Запаздывание tau = ',edit14.text);

writeln(f,'    ------------------------------------------');

writeln(f);

writeln(f,'    Передаточная функция звена по каналу возмущения  ');

writeln(f);

writeln(f,'                    k ');

writeln(f,'       W(p) = -------------- ');

writeln(f,'                 1 + T*p ');

writeln(f);

writeln(f,'    Параметры звена ');

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

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

writeln(f,'    ------------------------------------------');

writeln(f);

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

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

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

writeln(f,'    ------------------------------------------');

writeln(f);

if radiobutton1.Checked=true then

begin

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

writeln(f,'    Задающее воздействие ступенчатое = ',edit8.text);

goto lin;

end;

if radiobutton2.Checked=true then

begin

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