Лабораторная работа №3

МИНИСТЕРСТВО ПО ОБРАЗОВАНИЮ И НАУКЕ РОССИЙСКОЙ ФЕДЕРАЦИИ

УФИМСКИЙ ГОСУДАРСТВЕННЫЙ АВИАЦИОННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

Кафедра АСУ

Лабораторная работа №3

МОДЕЛИРОВАНИЕ ПРОЦЕССОВ УСТАНОВЛЕНИЯ РАВНОВЕСИЯ В ОТКРЫТЫХ ДИНАМИЧЕСКИХ СИСТЕМАХ.

Выполнили:

Проверил:

Бакусов

Уфа 2008г.

1.Задание: Построить модель системы в соответствии с рекуррентным отношением. Если дана матрица:

0,2 0,2 0,2 0,2 0,3

0,1 0,1 0,2 0,3 0,1

0,1 0,1 0,2 0 0,1

0,1 0,2 0,2 0,1 0,3

0,4 0,4 0,2 0,1 0,2

2.Выполнение задания:

2.1.Блок-схема для линейного изменения вектора с

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

program laba3;

uses

dos, crt;

var

A:array [1..5,1..5] of real;

x:array [1..100,1..5] of real;

c:array [1..5] of real;

i,j:integer;

BEGIN

a[1,1]:=0.2;

a[1,2]:=0.2;

a[1,3]:=0.2;

a[1,4]:=0.2;

a[1,5]:=0.3;

a[2,1]:=0.1;

a[2,2]:=0.1;

a[2,3]:=0.2;

a[2,4]:=0.3;

a[2,5]:=0.1;

a[3,1]:=0.1;

a[3,2]:=0.1;

a[3,3]:=0.2;

a[3,4]:=0;

a[3,5]:=0.1;

a[4,1]:=0.1;

a[4,2]:=0.2;

a[4,3]:=0.2;

a[4,4]:=0.1;

a[4,5]:=0.3;

a[5,1]:=0.4;

a[5,2]:=0.4;

a[5,3]:=0.2;

a[5,4]:=0.1;

a[5,5]:=0.2;

for i:=1 to 5 do

x[1,i]:=0;

for i:=1 to 5 do

c[i]:=1;

for j:=2 to 100 do begin

for i:=1 to 5 do

x[j,i]:=a[i,1]*x[j-1,1]+a[i,2]*x[j-1,2]+a[i,3]*x[j-1,3]+a[i,4]*x[j-1,4]+a[i,5]*x[j-1,5]+c[i];

for i:=1 to 5 do

c[i]:=c[i]+1;

writeln(j,'.x=(',x[j,1]:4:4,', ',x[j,2]:4:4,', ',x[j,3]:4:4,', ',x[j,4]:4:4,', ',x[j,5]:4:4,')');

end;

readln;

END.

2.3.Скриншот работы программы:

3.Выводы по проделанной работе:

В данной лабораторной работе было изучено моделирование процессов установления равновесия в открытых динамических системах. Была построена модель системы согласно данному рекуррентному отношению. Написана программа реализующая это рекуррентное отношение при нулевых начальных условиях и при линейном нарастании вектора с.