Раздел I. Грамматика. Темы и правила.
Моделирование в 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 |
Обработка графика |
Конец |
Раздел I. Грамматика. Темы и правила.
Дата добавления: 2015-02-28; просмотров: 1136;