Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Гостевая книга ... 65535
Содержание сайт... 65535
Вызов хранимых ... 65535
Эмулятор микроп... 65535
Бип из системно... 60764
Invision Power ... 58649
Организация зап... 58615
Модуль Forms 57076
Приложение «Про... 56862
Оператор выбора... 56299
Создание отчето... 56025
Подключение Mic... 55891
ТЕХНОЛОГИИ ДОСТ... 52226
Программируемая... 49543
Пример работы с... 48069
Имитационное мо... 47770
21 ошибка прогр... 42736
Реклама
Ремонт лобового стекла в районе кунцево iautoglass.ru. .
Квадратная тротуарная плитка обзор с фото и ценой за метр квадратный.
Сейчас на сайте
Гостей: 11
На сайте нет зарегистрированных пользователей

Пользователей: 13,022
новичок: igra87
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Сравнение двух бинарных деревьев на Turbo Pascal + отчет
моделирование процесса поступления заявок в ЭВМ на GPSS + Пояснительная ...
Моделирование системы управления качеством производственного процесса на...

Реклама

Описание сети массового обслуживания GPSS world
Описание сети в виде системы массового обслуживания
Распределенная система передачи данных в виде структурной схемы представлена на рисунке 1.
А, В аппаратные объекты типа память.
АВ1, АВ2,АВ3, ВС1, ВС2 – аппаратные объекты типа прибор
Пакеты данных – транзакты, т.е динамические объекты.
За единицу модельного времени принята 1мс.
При попадании пакетов в пункт А происходит их буферизация. Затем пакеты передаются по любой из трех линий в пункт В. Время пересылки по линиям различно. В пункте В пакеты буферизуются, далее передаются в пункт С по линии ВС1 . Если линия ВС1 занята, то включается в работу линия ВС2. Время передачи пакетов по линиям ВС1 и ВС2 одинаково.

Построение структурной схемы модели


В нашем случае мы имеем систему передачи информации из пункта А в пункт С через транзитный узел В. Для описания модели воспользуемся GPSS world. Необходимо смоделировать прохождение через систему передачи данных 800 пакетов. Определить характеристики очередей в пункте А и В. Так же требуется определить вероятность использование линии ВС2 и пропускную способность линии передачи данных ВС1, при которой отпадёт необходимость в наличии буфера в пункте В и линии ВС2.

Формализация и алгоритмизация модели
Схема прохождения транзактов имеет вид :


При этом возникают очереди перед линиям АВ1,АВ2,АВ3.
Алгоритм написан как комментарий к тексту программы.

Блок-схема программы




Текст программы
bufA equ 1 ; Присвоение имени емкости А
bufB equ 2 ; Присвоение имени емкости В
abI equ 1 ; Присвоение имени линии АBI
abII equ 2 ; Присвоение имени линии АBII
abIII equ 3 ; Присвоение имени линии АBIII
bcI equ 4 ; Присвоение имени линии ВСI
bcII equ 5 ; Присвоение имени линии ВСII
f11 equ 1 ; Присвоение имени логической переменной F11
f12 equ 2 ; Присвоение имени логической переменной F12
f13 equ 3 ; Присвоение имени логической переменной F13
initial x$1,17 ; Установка начальных значений для линии ABI
initial x$2,18 ; Установка начальных значений для линии ABII
initial x$3,19 ; Установка начальных значений для линии ABIII
initial xh$1,5 ; Установка начальных значений для линии ABI
initial xh$2,6 ; Установка начальных значений для линии ABII
initial xh$3,2 ; Установка начальных значений для линии ABIII
simulate ; Проведение моделирования
generate 18,3,,800 ; Ввод пакетов в модель
qqq1 gate_lr f11,qqq2 ; Проверка состояния f11
assign 1,1 ; Транзакты первого типа
logic_s f11 ; Установка в 1 f11
logic_s f13 ; Установка в 1 f13
logic_r f12 ; Установка в 0 f12
transfer,vhod ; Передача транзактов в пункт А
qqq2 gate_lr f12,qqq3 ; Проверка состояния f12
assign 1,2 ; Транзакты второго типа
logic_s f12 ; Установка в 1 f12
logic_s f11 ; Установка в 1 f11
logic_r f13 ; Установка в 0 f13
transfer,vhod ; Передача транзактов в пункт А
qqq3 gate_lr f13,qqq1 ; Проверка состояния f13
assign 1,3 ; Транзакты третьего типа
logic_s f13 ; Установка в 1 f13
logic_s f12 ; Установка в 1 f12
logic_r f11 ; Установка в 0 f11
transfer,vhod ; Передача транзактов в пункт А
vhod queue bufA ; Начало первой очереди
seize p$1 ; Занятие пакетами первой линии
depart bufA ; Конец первой очереди
advanse x$p$1,xh$p$1 ; Время передачи по первой линии
release p$1 ; Освобождение первой линии
queue bufB ; Начало второй очереди
gate_nu bcI,prod ; Проверка состояний
seize bcI ; Занятие пакетами линии BCI
depart bufB ; Конец второй очереди
advanse 6,2 ; Время передачи по линии BCI
release bcI ; Освобождение линии BCI
transfer,final ; Передача пакетов на выход
prod seize bcII ; Занятие пакетами линии BCII
depart bufB ; Конец второй очереди
advanse 6,2 ; Время передачи по линии BCII
release bcII ; Освобождение линии BCII
final terminate 1 ; Пункт С. Выход пакетов из модели
start 800
end




Листинги результатов моделирования
GPSSR/PC V1.1 13-MAY-2005 18:31 PAGE 2
C:\UP\GPSS\GPSS\Ttt.LST=C:\UP\GPSS\GPSS\Ttt.gps


SYMBOL VALUE SYMBOL VALUE
====== ===== ====== =====

ABI 1 ABII 2
ABIII 3 BCI 4
BCII 5 BUFA 1
BUFB 2 F11 1
F12 2 F13 3
FINAL 36 PROD 32
QQQ1 2 QQQ2 8
QQQ3 14 VHOD 20


GPSSR/PC V1.1 13-MAY-2005 18:31 PAGE 4
C:\UP\GPSS\GPSS\Ttt.LST=C:\UP\GPSS\GPSS\Ttt.gps

RELATIVE CLOCK 14427 ABSOLUTE CLOCK 14427

BLOCK COUNTS
BLOCK CURRENT TOTAL BLOCK CURRENT TOTAL BLOCK CURRENT TOTAL

1 0 800 2 0 800 3 0 267
4 0 267 5 0 267 6 0 267
7 0 267 8 0 533 9 0 267
10 0 267 11 0 267 12 0 267
13 0 267 14 0 266 15 0 266
16 0 266 17 0 266 18 0 266
19 0 266 20 0 800 21 0 800
22 0 800 23 0 800 24 0 800
25 0 800 26 0 800 27 0 792
28 0 792 29 0 792 30 0 792
31 0 792 32 0 8 33 0 8
34 0 8 35 0 8 36 0 800


FACILITY AVERAGE NUMBER AVERAGE SEIZING PREEMPTING
UTILIZATION ENTRIES TIME/TRAN TRANS.NO. TRANS.NO.
1 0.31 267 16.83
2 0.32 267 17.16
3 0.31 266 17.08
4 0.34 792 6.12
5 0.00 8 5.37


LOGIC SWITCH - SET (ON) STATUS
SWITCH NAME NAME NAME NAME NAME NAME NAME NAME NAME

1 2

QUEUE MAXIMUM AVERAGE TOTAL ZERO PERC. AVERAGE $AVERAGE TABLE CURRENT
CONTENT CONTENT ENTRIES ENTRIES ZERO TIME/TR TIME/TR NUMBR CONTENT
1 1 0.00 800 800 100.00 0.00 0.00 0
2 1 0.00 800 800 100.00 0.00 0.00 0





CONTENTS OF (NONZERO) HALFWORD SAVEVALUES
XH LOC VALUE LOC VALUE LOC VALUE LOC VALUE

1 5 2 6 3 2

CONTENTS OF (NONZERO) FULLWORD SAVEVALUES
XF LOC VALUE LOC VALUE LOC VALUE LOC VALUE

1 17 2 18 3 19


Опубликовал Kest June 04 2009 18:19:40 · 0 Комментариев · 16130 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Dynamic Titles дл...
AVIwriter
SODA [Исходник на...
Дарахвелидзе П., ...
PBFoldder
PDJ_Anima
Функции Visual Basic
FormShape [Исходн...
Правила программи...
PDJXPPack
Пример клиента ФТ...
Delphi 2005 Секре...
TrayComp
Assembler. Учебни...
База каталогов ( ...
Программирование ...
Adapter (пример D...
Основы Delphi. Пр...
Простой текстовый...
Apollovcl61

Топ загрузок
Приложение Клие... 100307
Delphi 7 Enterp... 77963
Converter AMR<-... 20021
Borland C++Buil... 10679
GPSS World Stud... 9277
Borland Delphi ... 7669
Turbo Pascal fo... 6884
Visual Studio 2... 4906
Калькулятор [Ис... 3997
FreeSMS v1.3.1 3486
Случайные статьи
Пакет обновления д...
Текстовые файлы
Моделирование элек...
Поиск в Рамблере
Протокол РРРоЕ
Диалоговое окно Re...
Классы символов в ...
Запись и чтение об...
Форматирование в W...
Устраните самую кр...
Видео в Интернете ...
Проектирование гра...
29.100.
4. Как гарантирова...
Многостраничные ко...
ОБЪЕКТНО–ОРИЕНТИРО...
Внимание к ключево...
Виртуальные методы...
Малая вирусная энц...
Системы множествен...
А сколько человек ...
Этап идентификации
Программно получит...
IBM WebSphere MQ
— издание 381— авт...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?