После запуска программы открывается окно, в котором можно наблюдать режим работы системы. Теперь краткая информация предназначения каждой кнопки:

«Вычислить» - после нажатия происходит запуск данной системы и можно в последующем наблюдать показатели изменяющиеся в реальном времени.

Рядом с этой кнопкой находиться текстовое поле, в которой задается время работы системы.

Рисунок 4 - Интерфейс основного окна программы КС

«Задание» - выдает условие задания на курсовую работу и отображает структурную схему модели в символике Q-схем.

Рисунок 5 - Интерфейс окна «Задание»

«О программе» - выводит информацию о разработчике и проблеме, решенную в данной работе.

Рисунок 6 - Интерфейс окна «О программе»

«Выход» - выход из системы.

Слева на форме находиться текстовое поле, в котором отображается время поступления каждого пакета.

7. Результаты моделирования и их анализ

Результат моделирования системы при обработке 3 речевых сообщений.

Таблица 1

Результат первого моделирования

Рисунок 7 - диаграмма при первом моделировании

Таблица 2

Результат второго моделирования

Рисунок 8 - диаграмма при втором моделировании

Таблица 3

Результат третьего моделирования

Рисунок 9 - диаграмма при третьем моделировании

В результате моделирования был спроектирован процесс работы системы для передачи 3 порций цифровой информации. Определено число поступления пакетов и потерь. Из первых двух результатов видно что при поступления пакетов со скоростью 6+-3мс потери составляют порядка 6,5%, для достижения 30% необходимо поступление пакетов со скоростью 3 мс, что видно на третьем примере.

Заключение

Результатом данной работы стало построение программы, моделирующего процесс функционирования заданной системы. Также были построены схемы моделирующего алгоритма и рассчитаны следующие показатели эффективности данной системы: количество поступивших пакетов, количество потерянных пакетов, частота подключения ресурса, частота уничтожения пакетов, вероятность уничтожения пакетов.

По результатам моделирования видно что при поступления пакетов со скоростью 6+-3мс потери составляют порядка 6,5%, для достижения 30% необходимо поступление пакетов со скоростью 3 мс.

Таким образом, показано, что машинное моделирование - это эффективное средство решения задач в системе управления технологическим процессом, где появление сообщений (сигналов) на обработку происходит в случайные моменты времени, т.е. характер их функционирования носит стохастический характер.

Список использованной литературы

1. Б.Д.Гнеденко, И.Н.Коваленко “Введение в теорию массового обслуживания”- М.:Наука, 1987 год.

2. Б.Я.Советов, С.А.Яковлев “Моделирование систем”, Москва “Высшая школа” 2001год.

3. Б.Я.Советов, С.А.Яковлев “Моделирование систем. Лабораторный практикум”, Москва “Высшая школа”1989 год.

4. Методические указания по оформлению курсовых и дипломных проектов для студентов специальностей 210300 “Роботы и робототехнические системы”, 220200 “Автоматизированные системы обработки информации и управления”, 210100 “Управление и информатика в технических системах”. Уфа 1997 год.

5. Н.П.Бусленко “Моделирование сложных систем”,- М.:Наука, 1987 год.

Приложение А (псевдокод)

Алгоритм моделирования работы заданной системы:

начало

скаляр Time,i,SumPac,TimePac,SumTimePac,Buf,TimeBuf,Poter: целая;

массив a[ 6 ]: целый;

ввод (Time:=10000);

для i = 1 до SumPac

повторять

ввод (TimePac:= a[random(7)]);

TimeBuf:=5;

пока SumTimePac< Time выполнять

начало

если TimePac < TimeBuf то

начало

Buf:= TimeBuf- TimePac все;

если Buf > 5 то

начало

Poter:= Poter+1; Buf:=0;

все;

все;

если Poter>(SumPac*0.3) то

начало

TimeBuf:=4;

timePoter:=timePoter+1;

иначе

TimeBuf:=5;

все;

SumPac:=SumPac+1;

SumTimePac:=SumTimePac+ TimePac;

вывод (timePoter, Poter, SumPac)

конец;

Приложение В (листинг программы)

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Buttons;

type

TForm1 = class(TForm)

Timer1: TTimer;

Timer2: TTimer;

Timer3: TTimer;

Edit1: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Memo1: TMemo;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Label8: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

SumPac,Pac,TimePac,Buf,TimeBuf,TimeTrans,Poter,timePoter: integer;

Time,i:integer;

a1:PAnsiChar;

const a: array[0..6] of char = ('3', '4', '5', '6', '7', '8', '9');

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled:=true;

SumPac:=0;

SumTimePac:=0;

TimePac:=0;

Buf:=0;

TimeBuf:=0;

TimeTrans:=5;

Poter:=0;

timePoter:=0;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

randomize;

if radiobutton1.Checked=true then

TimePac:=strtoint(a[random(7)]) else

TimePac:=strtoint(a[0]);

timer1.Interval:=TimePac;

timer2.Interval:=TimePac;

if TimePac<timer3.Interval then

TimeBuf:=TimeBuf+(timer3.Interval-TimePac);

if SumTimePac<=(strtoint(edit1.Text)*1000) then begin

timer1.Enabled:=true;

timer2.Enabled:=true;

timer3.Enabled:=true;

label1.Caption:='Число потерянных пакетов='+floattostr(poter)+' шт';

label2.Caption:=Время:'+floattostr(SumTimePac)+'мс';

label3.Caption:='Всего пакетов='+floattostr(SumPac)+'шт.';

label6.Caption:=Ресурс подключен:'+floattostr(timePoter)+' раз';

label7.Caption:='Частота подключения ресурса:'+floattostr(Round(timePoter/strtoint(edit1.Text)))+'раз/с';

label8.Caption:='Частота уничтожения пакетов:'+floattostr(Round(poter/strtoint(edit1.Text)))+ 'шт/с';

end else

if SumTimePac>1000 then begin

timer1.Enabled:=false;

timer2.Enabled:=false;

timer3.Enabled:=false;

end;

if Poter>(SumPac*0.3) then begin

timer3.Interval:=4;

timePoter:=timePoter+1;

end else

timer3.Interval:=5;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

Buf:=Buf+1;

SumPac:=SumPac+1;

SumTimePac:=SumTimePac+timer2.Interval;

memo1.SelText:=inttostr(SumPac)+'-пакетов-'+inttostr(TimePac)+'мс'#10;

end;

procedure TForm1.Timer3Timer(Sender: TObject);

begin

if Buf>0 then

Buf:=Buf-1 else

if Buf>=1 then begin

Buf:=Buf-1; Poter:=Poter+1;

end else

if Buf<=0 then

Buf:=0;

if TimeBuf>=5 then begin

Poter:=Poter+1;

TimeBuf:=0;

end;

end;

end.

Размещено на Allbest.ru