ПРОГРАММНАЯ РЕАЛИЗАЦИЯ РЕГУЛЯТОРА, ОБЕСПЕЧИВАЮЩАЯ КОНЕЧНУЮ ДЛИТЕЛЬНОСТЬ ПЕРЕХОДНОГО ПРОЦЕССА СР.

Моделирование в Matlabe.

Рисунок –Модель регулятора в пакете Matlab Simulink

Рисунок –График переходного процесса регулятора в Matlab Simulink

8.2 Программирование регулятора в программе Delphi 7

Листинг программы:

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Series;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Chart1: TChart;

Series1: TLineSeries;

procedure Button1Click(Sender: TObject);

private

public

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var vhod,vuhod:real; n,i:integer;

Xo,Yo:array[0..10]of real;

X,Y:array[0..3] of real;

begin

X[0]:=619.96;

X[1]:=-579.66;

Y[0]:=0;

Y[1]:=-0.4463;

n:=21;

For i:=0 to n do

begin

vhod:=X[0]*Xo[i]+X[1]*Xo[i-1];

vuhod:=Y[1]*Yo[i-1];

Yo[i]:=vhod+vuhod;

Edit1.Text:=FloatToStr(Yo[i]);

end;

Chart1.SeriesList.Series[0].Clear;

for i:=1 to n do

begin

Chart1.SeriesList.Series[0].AddXY(i-1,Yo[i],'',clGreen);

Chart1.SeriesList.Series[0].AddXY(i,Yo[i],'',clGreen);

end;

Рисунок – Результаты работы программы

8.3Блок схема регулятора: