poddergrukovodstkp (интерпретатор GPSS и описание к нему), страница 6

(Exponential(234,0,T1_)),,1 ; Генерация сообщений потока 1
1,1 ; Запись в P1 номера источника

TRANSFER ,Spis

; Отправка сообщения на поиск основного канала

; Второй источник

GENERATE T2_,T02

Soob2 ASSIGN 1,2

ASSIGN 6,0

Генерация сообщений потока 2 Запись в P1 номера источника Обнуление Р6

TRANSFER ,Spis ; Отправка сообщения на поиск основного канала

; Третий источник GENERATE

Soob3 ASSIGN ASSIGN

; Генерация сообщения потока 3 Запись в P1 номера источника Обнуление Р6

(Exponential(234,0,T3_))

1,3

6,0

TRANSFER ,Spis

; Отправка сообщения на поиск основного канала

6,0 ; Обнуление Р6

Сегмент имитации работы накопителя и

основных каналов

TEST L CH$Nak,Emk,Term1

ASSIGN 4,0 ; Подготовка

ASSIGN 4+,1

GATE FV P4,Met2

GATE U P4,Met3

TEST E X*4,1,Met20

TEST GE P4,NKanOsn,Met1

Spis

PoiskOsn

Metl

Met2

Если нет места, то - на счет удаленных циклу поиска свободного и исправного канала Начало цикла поиска свободного и исправного канала Проверка канала на исправность Проверка канала на занятость Если канал не занят источником 1, то прервать Все ли каналы просмотрены?

TEST E

TEST L

LINK

SEIZE

SAVEVALUE

ADVANCE

RELEASE

P6,1,PoiskRez

CH$Nak,Emk,Terml

Nak,FIFO

P4

P4,P1

Met3

Сообщение было прервано? Тогда на резервный канал Если нет места, то - на счет удаленных Сообщение не было прервано? Тогда в накопитель ; Занятие канала ; В Х с номером в Р4 номер источника

(Exponential(30,0,Tposn1)) ; Имитация передачи по каналу

P4

SAVEVALUE P4,0

UNLINK Nak,PoiskOsn,1

TRANSFER ,Term4

TERMINATE

канала

Terml

; Освобождение канала ; Обнулить Х с номером в Р4 Из накопителя - на поиск основного ; Переданное сообщение - на счет ; Счет потерянных сообщений

Met20 PREEMPT P4,PR,Term1,,RE ; Прервать передачу сообщений с низким приоритетом
SAVEVALUE P4,P1 ; Записать в Х с номером в Р4 номер источника
ADVANCE (Exponential(30,0,Tposn1)) ; Имитация передачи по каналу
RETURN P4 ; Освободить канал с номером в Р4

SAVEVALUE P4,0 ; Обнулить Х с номером в Р4

; Счет сообщений, переданных по основным каналам

Term4 TRANSFER ,(Term4+P1)

Term12 TERMINATE ; Счет сообщений от источника 1

Term13 TERMINATE ; Счет сообщений от источника 2

Term9 TERMINATE ; Счет сообщений от источника 3

; Сегмент

Rozigr1 зами

имитации выхода из строя основных каналов

GENERATE ,,,1

ADVANCE (Exponential(11,0,(Totosn1/NKanOsn)))

; Розыгрыш времени между отка-

SAVEVALUE 1000,(RN317/1000)

; Обращение к RN и запись в Х1

ASSIGN 5,0 ; Подготовка к циклу определения отказавшего канала

OtkOsn

ASSIGN 5+,1 ; Начало цикла определения отказавшего канала

канала

TEST LE X1000,(P5#(1/NKanOsn)),OtkOsn ; Определение отказавшего

ASSIGN 4,P5 ; Занесение в P4 номера отказавшего канала

GATE FV P4,Rozigr1 ; Не является ли канал уже отказавшим?

36

ASSIGN 1,(Exponential(15,0,Tvosn1)) ; Розыгрыш времени восстановления

Перевод канала P4 в недоступность Имитация восстановления канала Учет времени отказа

; Имитация отказов канала связи Met17 FUNAVAIL P4,RE,Met4 ADVANCE P1 SAVEVALUE VrOtk+,P1

FAVAIL TRANSFER Met4 ASSIGN RELEASE шел отказ

TRANSFER

P4 ; Перевод восстановленного канала в доступность
,Rozigr1 ; Отправить на розыгрыш очередного отказа
6,1 ; Занесение в P6 признака прерванного сообщения
P4 ; Освободить канал, при передаче по которому произо-

,PoiskOsn ;Отправить сообщение на поиск свободного канала

; Сегмент имитации работы резервных каналов

канала Met5

PoiskRez ASSIGN 4,NKanOsn ; Подготовка к циклу поиска свободного и исправного

ASSIGN GATE FV GATE U TEST E TEST GE TEST L LINK SEIZE SAVEVALUE ADVANCE ADVANCE RELEASE

канала

Metl8

Nak,FIFO P4

P4,P1 Tvkl

Met6

4+,1 ; Начало цикла поиска свободного и исправного
P4,Met18 ; Проверка канала на исправность
P4,Met6 ; Проверка канала на занятость
X*4,1,Met21 ; Если канал не занят источником 1, то прервать
P4,(NKanOsn+NKanRez),Met5 ; Все ли каналы просмотрены?
CH$Nak,Emk,Term1 ; Если нет места, то - на счет удаленных
; Поместить в накопитель
; Занять канал с номером в Р4
; В Х с номером в Р4 номер источника
; Имитация включения канала
(Exponential(36,0,Tprez1)) ; Имитация работы канала
P4 ; Освободить канал с номером в Р4

SAVEVALUE P4,0 ; Обнулить Х с номером в Р4

UNLINK Nak,PoiskOsn,1 ; Очередное сообщение на передачу

; Учет сообщений, переданных по резервным каналам

Term7 TRANSFER ,(Term7+P1)

Term14 TERMINATE ; Счет сообщений от источника 1

Term15 TERMINATE ; Счет сообщений от источника 2

Term6 TERMINATE ; Счет сообщений от источника 3

Met21 PREEMPT P4,PR,Term1,,RE ; Прервать передачу сообщений с низким приоритетом
SAVEVALUE P4,P1 ; Записать в Х с номером в Р4 номер источника
ADVANCE (Exponential(30,0,Tposn1)) ; Имитация передачи по каналу
RETURN P4 ; Освободить канал с номером в Р4

SAVEVALUE P4,0 ; Обнулить Х с номером в Р4

TRANSFER ,Term7

; Сегмент

Rozigr2 зами

имитации выхода из строя резервных каналов

GENERATE ,,,1

; Розыгрыш времени между отка-

ADVANCE (Exponential(11,0,(Totrez1/NKanRez)))

SAVEVALUE 1001,(RN415/1000)

ASSIGN

ASSIGN

; Обращение к RN и запись в Х2

OtkRez

TEST LE ASSIGN GATE FV ASSIGN FUNAVAIL ADVANCE

5.0 ; Подготовка к циклу определения отказавшего канала
5+,1 ; Начало цикла определения отказавшего канала
X1001,(P5#(1/NKanRez)),OtkRez ; Определение отказавшего канала
4,(P5+NKanOsn) ; Занесение в P4 номера отказавшего канала
P4,Rozigr2 ; Не является ли канал уже отказавшим?
1,(Exponential(11,0,Tvrez1)) ; Розыгрыш времени восстановления
P4,RE,Met7 ; Перевод канала P4 в недоступность
P1 ; Имитация восстановления канала

SAVEVALUE VrOtk+,P1 ; Учет времени отказа

TRANSFER

ASSIGN

RELEASE

FAVAIL P4 ; Перевод восстановленного канала в доступность ,Rozigr2 ; Отправить на розыгрыш очередного отказа

Met7

шел отказ

TRANSFER ,Spis ; Отправить непереданное сообщение в накопитель

; Сегмент задания времени моделирования и вычисления результатов

GENERATE VrMod ; Задание времени моделирования

6.1 ; Занесение в P6 признака прерванного сообщения
P4 ; Освободить канал, при передаче по которому произо-

37

TEST E TG1,1,Met19 ; Если TG1=1, то расчет результатов

SAVEVALUE Ver1,V$Ver1 ; Вероятность передачи сообщений потока1

SAVEVALUE Ver2,V$Ver2 ; Вероятность передачи сообщений потока2

SAVEVALUE Ver3,V$Ver3 ; Вероятность передачи сообщений потока3

SAVEVALUE Ver,V$Ver ; Вероятность передачи сообщений всех потоков

SAVEVALUE VOtk,V$VOtk ; Вероятность отказа в передаче сообщений

SAVEVALUE VerOtk,V$VerOtk ; Вероятность безотказной работы

2.2. Модели предприятия по производству изделий

Met19 TERMINATE 1

Вариант 5 Постановка задачи

Предприятие имеет n1 цехов, производящих n1 типов блоков, т. е. каждый цех производит блоки одного типа. Интервалы выпуска блоков T1, T2, …, Tn1 — случайные. Из n1 блоков собирается одно изделие.

Перед сборкой каждый тип блоков проверяется на n11, n12, …, n1n соответ­ствующих постах. Длительности контроля одного соответствующего блока T11, T12, …, T1n — случайные. На каждом посту бракуется q11, q12, …, q1n % бло­ков соответственно. Эти блоки в дальнейшем процессе сборки не участвуют и удаляются с постов контроля.

Прошедшие контроль, т. е. не забракованные блоки поступают на один из n2 пунктов сборки. На каждом пункте сборки одновременно собирается только од­но изделие. Сборка начинается только тогда, когда имеются все необходимые n1 блоков различных типов. Время сборки Tc случайное.

После сборки изделие поступает на один из n3 стендов выходного контроля. На одном стенде одновременно проверяется только одно изделие. Время про­верки Tп случайное. По результатам проверки бракуется q2 % изделий.

Забракованное изделие направляется в цех сборки, где неработоспособные блоки заменяются новыми. Время замены Tc случайное. После замены блоков изделие вновь поступает на один из стендов выходного контроля.

Прошедшие стенд выходного контроля изделия поступают в отдел военной приемки. Время приемки Tпр одного изделия случайное. По результатам прием­ки бракуется q4 % изделий, которые направляются вновь на стенд выходного контроля.

Принятые военной приемкой изделия направляются на склад.

Исходные данные

n1 = 3; Exp(T1) = Exp(12); Rav(T2, Tо2) = Rav(8, 4);

Rav(T3, Tо3) = Rav(7, 5); n11 = 2; Exp(T11) = Exp(7); n12 = 2; Rav(T12, Tо12) = Rav(3, 9); n13 = 2; Exp(T13) = Exp(10); n2 = 2; Nor(Tс, Tос) = Nor(18, 2); n3 = 2; Nor(Tп, Tоп) = Nor(12, 2);

Nor(Tпр, Tопр) = Nor(15, 2).

Величины брака q11, q12, q13 для n11, n12, n13 соответственно, q2, и q4 исследователь устанавливает самостоятельно.

Результаты моделирования необходимо получить с точностью ε = 1 и довери­тельной вероятностью α = 0,99.

38

Задание на исследование

Разработать имитационную модель функционирования предприятия. Исследо­вать влияние качества изготовления блоков q11, q12, q13 на количество при­нятых военной приемкой изделий в течение недели (48 часов).

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

Программа модели

; Вариант 5

; Модель функционирования предприятия

; Замена имен МКУ номерами

Kontr1 EQU 1 ;

Kontr2 EQU 2 ;

Kontr3 EQU 3 ;

; Задание исходных данных

Замена имен МКУ номерами Замена имен МКУ номерами Замена имен МКУ номерами

EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU

qll_ ql2_ ql3_ q2_ q4_ TipBl VrMod Tl_ T2_ T02_ T3_ T03_ Tll_ T12_ T012_ T13_ Tc_ T0c_ Tp_ T0p_ Tpr_ T0pr_

контроля

0.01 ; Доля забракованных блоков на постах n11 0.03 ; Доля забракованных блоков на постах n12 0.05 ; Доля забракованных блоков на постах n13 0.05 ; Доля забракованных изделий на пункте выходного 0.05 ; Доля забракованных изделий военной приемкой

3 ; Мах количество типов блоков, изготавливаемых цехами
2880 ; Время моделирования, 1 ед. мод. вр. = 1 мин
12 ; Средний интервал выпуска блоков типа

8 ; Средний интервал выпуска блоков типа

4 ; Стандартное отклонение времени выпуска блоков типа
7 ; Средний интервал выпуска блоков типа

5 ; Стандартное отклонение времени выпуска блоков типа 3
7 ; Среднее время контроля на постах n11

1. ; Среднее время контроля на постах n12 3 ; Стандартное отклонение времени контроля на постах n12

2. ; Среднее время контроля на постах n13 18 ; Среднее время сборки изделия 2 ; Стандартное отклонение времени сборки изделия 18 ; Среднее время проверки изделия 2 ; Стандартное отклонение времени проверки изделия 15 ; Среднее время приема изделия 2 ; Стандартное отклонение времени приема изделия

Задание количества пунктов сборки и контроля

STORAGE STORAGE STORAGE STORAGE STORAGE

Sbor

Kontrl

Kontr2

Kontr3

Kontsb

Количество пунктов сборки Количество постов n11 Количество постов n12 Количество постов n13 Количество пунктов сборки

;Сегмент имитации работы цеха 1 без постов контроля GENERATE (Exponential(32,0,T1_))

ASSIGN 1,1 ; Код 1 в параметре 1 транзакта - тип 1 блока ASSIGN 2,(Exponential(23,0,T11_)) ; Розыгрыш времени контроля и запись в Р2 ASSIGN 9,q11_;Запись в Р9 доли брака блоков после контроля TRANSFER ,Met1

; Сегмент имитации работы цеха 2 без постов контроля

GENERATE T2_,T02_

ASSIGN 1,2 ; Код 2 в параметре 1 транзакта - тип 2 блока

ASSIGN 2,((T12_-T012_)+2#T012_#(RN27/1000)) ; Розыгрыш времени контроля и
запись в Р2

ASSIGN 9,q12_ ; Запись в Р9 доли брака блоков после постов контроля

39

TRANSFER ,Met1

; Сегмент имитации работы цеха 3 без постов контроля GENERATE T3_,T03_

Р2

ASSIGN 1,3 ; Код 3 в параметре 1 транзакта - тип 3 блока ASSIGN 2,(Exponential(22,0,T13_)) ; Розыгрыш времени контроля и запись в