poddergrukovodstkp (538827), страница 6
Текст из файла (страница 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
-
; Среднее время контроля на постах n12 3 ; Стандартное отклонение времени контроля на постах n12
-
; Среднее время контроля на постах 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_)) ; Розыгрыш времени контроля и запись в