poddergrukovodstkp (538827), страница 27

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

Текст из файла (страница 27)

GENERATE (Exponential(1,0,Tn_)) ; Источник заготовок для деталей ; Подготовка заготовок для деталей

QUEUE Pod ; Встать в очередь

107

SEIZE Pod ; Начать подготовку заготовки для детали

DEPART Pod ; Покинуть очередь

ADVANCE (Exponential(34,0,FN$Pod)) ; Имитация подготовки

RELEASE Pod ; Закончить подготовку заготовки для детали

DCount Operl

ASSIGN

ASSIGN

QUEUE

SEIZE

DEPART

ADVANCE

RELEASE

ADVANCE

TRANSFER

; Код 1 в Р1-деталь проходит первый раз ; Код 1 в Р2-признак 1-й операции

; Встать в очередь

; Начать первую операцию

; Покинуть очередь

Имитация выполнения 1-й операции

1,1

2,1

P2

Konveerl

P2

(Exponential(23,0,T1)) ; Имитация выполнения 1-й операции Konveer1 ; Закончить выполнение 1-й операции (Exponential(23,0,Tk1)) ; Имитация контроля после 1-й операции q1_,,Sboi ; Отправить брак в блок контроля

; Имитация выполнения 2-й операции

ASSIGN

QUEUE

SEIZE

DEPART

ADVANCE

RELEASE

ADVANCE

TRANSFER

2,2

P2

Konveer2

P2

0per2

; Код 2 в Р2-признак 2-й операции Встать в очередь Начать вторую операцию Покинуть очередь

(Exponential(23,0,T2)) ; Имитация выполнения 2-й операции Konveer2 ; Закончить выполнение 2-й операции (Exponential(23,0,Tk2)) ; Имитация контроля после 2-й операции q2_,,Sboi ; Отправить брак в блок контроля

; Имитация выполнения 3-й операции

ASSIGN

QUEUE

SEIZE

DEPART

ADVANCE

RELEASE

ADVANCE

TRANSFER

TRANSFER

2,3

P2

Konveer3

P2

ОрегЗ

; Код 3 в Р2-признак 3-й операции Встать в очередь Начать третью операцию Покинуть очередь

(Normal(20,T3,To3)) ; Имитация выполнения 3-й операции Konveer3 ; Закончить выполнение 3-й операции (Normal(20,Tk3,Tok3)) ; Имитация контроля после 3-й операции q3_,,Sboi ; Отправить брак в блок контроля ,EndOper1 ; Счет готовых деталей

ADVANCE

TRANSFER

TEST E

ASSIGN

TRANSFER

TRANSFER

TRANSFER

TRANSFER

TERMINATE

Имитация окончательного контроля

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

Sboi

(Exponential(23,0,Tk))

q4 ,,EndOper

PI,1,EndOper

1,2

,(Met9+P2)

,Operl

,Oper2

,ОрегЗ

Отправить в окончательный брак

Если второй раз, то в окончательный брак

Met9

Код 2 в Р1-деталь проходит второй раз

EndOper

Отправить для повторного выполнения 1-й операции Отправить для повторного выполнения 2-й операции Отправить для повторного выполнения 3-й операции Счет брака

Если X$Prog< содержимого счетчика завершений, то

записать в X$Prog содержимое счетчика завершений

Обнуление счетчика готовых деталей

Счет количества изготовленных деталей

Если изготовлено N_ деталей, зафиксировать один

; Если содержимое счетчика завершений равно 1, то

Cегмент организации завершения моделирования и расчета результатов моделирования

EndOperl TEST L X$Prog,TGl,MetlO SAVEVALUE Prog,TGI SAVEVALUE NDet,0

MetlO SAVEVALUE NDet+,1

прогон расчет

TEST E X$NDet,N ,Term5

TEST E TG1,1,Met12 результатов моделирования

SAVEVALUE Brak,(INT(N$EndOper/X$Prog)) ; Количество забракованных деталей, шт.

SAVEVALUE DoljaBrak,(X$Brak/(X$Brak+N_)) ; Общая доля брака

SAVEVALUE DoljaDet,(N_/(X$Brak+N_)) ; Доля готовых деталей

SAVEVALUE TDet,(AC1/N$EndOper1) ; Среднее время изготовления одной детали, мин

Metl2 Term5

SAVEVALUE STime,(X$TDet#N_) ; Среднее время изготовления N_ деталей, мин

SAVEVALUE NDet,0 ; Обнуление счетчика готовых деталей

TERMINATE 1

108

TERMINATE ; Уничтожение транзактов - готовых деталей

2.8. Модели функционирования ремонтного подразделения

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

В ремонтное подразделение средств связи (СС) поступают неисправные СС n типов с вероятностями р1, р2, …, рn соответственно. Интервалы времени Тп между двумя очередными поступлениями одного типа СС случайные. Каждое СС любого типа может требовать одного из трех видов ремонта с вероятностями р11, р21 или р31 соответственно.

В ремонтном подразделении имеются n1, n2, …, nn мастеров для ремонта СС каждого типа соответственно. Мастера n1 ремонтируют СС первого типа. Если их нет и мастера n2, …, nn групп заняты, они ремонтируют СС этих типов. При этом поступающие СС первого типа ожидают их освобождения. Мастера n2 ремонтируют СС второго типа. Если их нет и мастера n3, n4, …, nn групп за­няты, они ремонтируют СС этих типов. При этом поступающие СС второго типа ожидают их освобождения. Аналогичные обязанности и у мастеров остальных групп. Только мастера nn ремонтируют СС одного n-го типа.

Время ремонта n-го типа СС случайное, не зависит от мастера, а зависит только от вида ремонта: Т11, Т12, Т13 – для СС первого типа, Т21, Т22, Т23 – для СС второго типа, …, Tn1, Tn2, …, Tnn – для СС n-го типа.

Прием и распределение неисправных СС между мастерами осуществляется d диспетчерами. Время, затрачиваемое одним диспетчером на одно СС, Т1, слу­чайное. Диспетчерами не допускаются к ремонту q % СС всех типов.

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

Exp(Тп) = Exp(30);

n = 4;

p1 = 0.2, p2 = 0.3, p3 = 0.25, p4 = 0.25;

p11 = 0.5, p2 = 0.25, p3 = 0.25;

n1 = 2; Exp(T11) = Exp(30); Exp(T12) = Exp(40); Exp(T13) = Exp(50);

n2 = 1 Exp(T21) = Exp(20); Exp(T22) = Exp(30); Exp(T23) = Exp(40);

n3 = 1 Exp(T31) = Exp(15); Exp(T32) = Exp(25); Exp(T33) = Exp(35);

n4 = 1 Exp(T41) = Exp(25); Exp(T42) = Exp(35); Exp(T43) = Exp(45);

d = 2; Nor(T1, To1) = Nor(15, 2); q = 2 %.

Значения p1, p2, p3, p4 исследователь изменяет от исходных самостоятель­но.

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

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

Разработать имитационную модель функционирования ремонтного подразделе­ния. Исследовать зависимость количества отремонтированных СС и вероятно­стей ремонта средств связи всех типов от интервала Тп поступления их в ре­монт и вероятностей p1, p2, p3, p4.

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

109

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

; Вариант 26

связи

; Модель ремонтного подразделения

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

1. группа мастеров

2. группа мастеров

3. группа мастеров

4. группа мастеров

Rem1 EQU 1

Rem2 EQU 2

Rem3 EQU 3

; Задание МКУ-групп мастеров Dis STORAGE 2 Rem1 STORAGE 2 Rem2 STORAGE 1 Rem3 STORAGE 1 Rem4 STORAGE 1

Количество диспетчеров Количество мастеров 1 группы Количество мастеров 2 группы ; Количество мастеров 3 группы Количество мастеров 4 группы

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

данных 1440 ,4,3 4 15

Rem4 EQU 4

EQU

MATRIX

EQU

EQU

EQU

VrMod

TRem

n

tI

Tol

; Время моделирования, 1 ед. мод. вр. = 1 мин

; Задание матрицы времени ремонта

; Количество типов СС

2 ; Среднеквадратическое отклонение времени работы диспетчера с по-

ступившим СС

; Среднее время работы диспетчера с поступившим СС

EQU

EQU

INITIAL

INITIAL

INITIAL

INITIAL

INITIAL

INITIAL

INITIAL

INITIAL

INITIAL

INITIAL

INITIAL

INITIAL

FUNCTION

Tp_

q

30 ; Средний

0.02

MX$TRem(l,1),30

MX$TRem(l,2),40

MX$TRem(l,3),50

MX$TRem(2,1),20

MX$TRem(2,2),30

MX$TRem(2,3),40

MX$TRem(3,1),15

MX$TRem(3,2),25

MX$TRem(3,3),35

MX$TRem(4,1),25

MX$TRem(4,2),35

MX$TRem(4,3),45

интервал времени поступления одного типа СС

СС

Доля не допущенных диспетчером к ремонту

Среднее время

Среднее время

Среднее время

Среднее время

Среднее время

Среднее время

Среднее время

Среднее время

Среднее время

Среднее время

Среднее время

RN27,D4 ; Функция распределения поступающих типов СС

RN72,D3 ; Функция распределения видов ремонтов поступающих СС

TipSS

.2,1/.5,2/.75,3/1,4 VidRem FUNCTION .5,1/.75,2/1,3

; Сегмент имитации поступления СС различных типов, требующих различных видов ремонта

Среднее время

Источники СС

ASSIGN ASSIGN ASSIGN ASSIGN

Код типа СС в Р1

Код вида ремонта СС в Р2

Подготовка

Код типа СС также в Р5

GENERATE (Exponential(67,0,(Tp_/n_)))

l,FN$TipSS 2,FN$VidRem 4,0 5,PI

TRANSFER TRANSFER TRANSFER TRANSFER TRANSFER

Счет поступивших в ремонт СС

MetO

MetOl

Met02

Met03

Met04

1. типа

2. типа

3. типа

4. типа

,(MetO+Pl)

,Metl

,Metl

,Metl

,Metl

; Сегмент имитации работы диспетчера

Met1 QUEUE OCH ; Занять очередь к диспетчеру

ENTER DIS ; Занять свободного диспетчера

DEPART OCH ; Покинуть очередь к диспетчеру

ADVANCE (Normal(35,T1,To1)) ; Имитация работы диспетчера со СС

LEAVE DIS ; Освободить диспетчера

110

TRANSFER q_,,MET20 ; Не допустить q СС к ремонту

ASSIGN TEST E GATE SF LINK TEST E GATE SF LINK TEST E GATE SF LINK TEST E GATE SF LINK

(317,0,MX$TRem(P1,P2))) ; Мастерам 1 группы ; Мастера 1 группы заняты? Если да, ; то тогда ожидать ; Мастерам 2 группы ; Мастера 2 группы заняты? Если да, ; то тогда ожидать ; Мастерам 3 группы ; Мастера 3 группы заняты? Если да, ; то тогда ожидать ; Мастерам 4 группы ; Мастера 4 группы заняты? Если да, ; то тогда ожидать

; Время ремонта-в P3

3,(Exponential

PI,1,MET21

Pl,Met3

PI,FIFO

Met21

P1,2,MET22

Pl,Met4

PI,FIFO

Met22

P1,3,MET23

Pl,Met5

PI,FIFO

Met23

PI,4

Pl,Met6

PI,FIFO

Сегмент имитации

ENTER

ADVANCE

LEAVE

TEST NE

UNLINK

Характеристики

Список файлов учебной работы