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

Моделирование в 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Блок схема регулятора:

 

Начало
і=0..n
vhod:=X[0]*Xo[i]+X[1]*Xo[i-1]; vuhod:=Y[1]*Yo[i-1]; Yo[i]:=vhod+vuhod;
і=0..n
Обработка графика
Конец

 

 








Дата добавления: 2015-02-28; просмотров: 830;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.004 сек.