poddergrukovodstkp (538828), страница 24
Текст из файла (страница 24)
мод. вр. = 1 минTn_EQU35; Среднее время между поступлениями заготовокT1EQU30; Среднее время выполнения 1-й операции, минT2EQU25; Среднее время выполнения 2-й операции, минT3EQU35; Среднее время выполнения 3-й операции, минTo3EQU6 ; Среднеквадратическое отклонение времени выполнения 3-й операции,минTk1EQU4; Среднее время контроля после 1-й операции, минTk2EQU5; Среднее время контроля после 2-й операции, минTk3EQU15; Среднее время контроля после 3-й операции, минTok3EQU2 ; Среднеквадратическое отклонение времени контроля после 3-й операции, минTkEQU8; Среднее время окончательного контроля, минq1_EQU.12; Доля брака после 1-й операцииq2_EQU.15; Доля брака после 2-й операцииq3_EQU.10; Доля брака после 3-й операцииq4_EQU.80; Окончательная доля бракаN_EQU9 ; Количество деталей, которые необходимо изготовить, шт.; Описание функции времени подготовки заготовки для деталиPodFUNCTION RN10,D6.05,10/.18,14/.34,21/.56,22/.85,28/1,25; Сегмент имитации изготовления деталейGENERATE (Exponential(1,0,Tn_)) ; Источник заготовок для деталей; Подготовка заготовок для деталейQUEUEPod; Встать в очередь107SEIZEDEPARTADVANCERELEASEPod; Начать подготовку заготовки для деталиPod; Покинуть очередь(Exponential(34,0,FN$Pod)); Имитация подготовкиPod; Закончить подготовку заготовки для детали; Имитация выполнения 1-й операцииDCountASSIGN1,1; Код 1 в Р1-деталь проходит первый разASSIGN2,1; Код 1 в Р2-признак 1-й операцииOper1QUEUEP2; Встать в очередьSEIZEKonveer1; Начать первую операциюDEPARTP2; Покинуть очередьADVANCE(Exponential(23,0,T1)) ; Имитация выполнения 1-й операцииRELEASEKonveer1; Закончить выполнение 1-й операцииADVANCE(Exponential(23,0,Tk1)) ; Имитация контроля после 1-й операцииTRANSFER q1_,,Sboi; Отправить брак в блок контроля;Имитация выполнения 2-й операцииASSIGN2,2; Код 2 в Р2-признак 2-й операцииOper2QUEUEP2; Встать в очередьSEIZEKonveer2; Начать вторую операциюDEPARTP2; Покинуть очередьADVANCE(Exponential(23,0,T2)) ; Имитация выполнения 2-й операцииRELEASEKonveer2; Закончить выполнение 2-й операцииADVANCE(Exponential(23,0,Tk2)) ; Имитация контроля после 2-й операцииTRANSFER q2_,,Sboi; Отправить брак в блок контроля;Имитация выполнения 3-й операцииASSIGN2,3; Код 3 в Р2-признак 3-й операцииOper3QUEUEP2; Встать в очередьSEIZEKonveer3; Начать третью операциюDEPARTP2; Покинуть очередьADVANCE(Normal(20,T3,To3)); Имитация выполнения 3-й операцииRELEASEKonveer3; Закончить выполнение 3-й операцииADVANCE(Normal(20,Tk3,Tok3)); Имитация контроля после 3-й операцииTRANSFER q3_,,Sboi; Отправить брак в блок контроляTRANSFER ,EndOper1; Счет готовых деталей; Сегмент имитации работы блока контроляSboiADVANCE(Exponential(23,0,Tk)) ; Имитация окончательного контроляTRANSFER q4_,,EndOper; Отправить в окончательный бракTEST EP1,1,EndOper; Если второй раз, то в окончательный бракASSIGN1,2; Код 2 в Р1-деталь проходит второй разMet9TRANSFER ,(Met9+P2)TRANSFER ,Oper1; Отправить для повторного выполнения 1-й операцииTRANSFER ,Oper2; Отправить для повторного выполнения 2-й операцииTRANSFER ,Oper3; Отправить для повторного выполнения 3-й операцииEndOperTERMINATE; Счет брака; Cегмент организации завершения моделирования и расчета результатов моделированияEndOper1 TEST LX$Prog,TG1,Met10 ; Если X$Prog< содержимого счетчика завершений, тоSAVEVALUE Prog,TG1; записать в X$Prog содержимое счетчика завершенийSAVEVALUE NDet,0; Обнуление счетчика готовых деталейMet10SAVEVALUE NDet+,1; Счет количества изготовленных деталейTEST EX$NDet,N_,Term5 ; Если изготовлено N_ деталей, зафиксировать одинпрогонTEST ETG1,1,Met12; Если содержимое счетчика завершений равно 1, торасчет результатов моделирования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) ; Среднее время изготовления одной детали, минSAVEVALUE STime,(X$TDet#N_); Среднее время изготовления N_ деталей, минMet12SAVEVALUE NDet,0; Обнуление счетчика готовых деталейTERMINATE 1Term5TERMINATE; Уничтожение транзактов - готовых деталей1082.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)n2 = 1Exp(T21) = Exp(20);Exp(T22)n3 = 1Exp(T31) = Exp(15);Exp(T32)n4 = 1Exp(T41) = Exp(25);Exp(T42)d = 2;====Nor(T1, To1) = Nor(15, 2);Exp(40);Exp(30);Exp(25);Exp(35);Exp(T13)Exp(T23)Exp(T33)Exp(T43)====Exp(50);Exp(40);Exp(35);Exp(45);q = 2 %.Значения p1, p2, p3, p4 исследователь изменяет от исходных самостоятельно.Результаты моделирования необходимо получить с точностью ε = 0,01 и доверительной вероятностью α = 0,99.Задание на исследованиеРазработать имитационную модель функционирования ремонтного подразделения.
Исследовать зависимость количества отремонтированных СС и вероятностей ремонта средств связи всех типов от интервала Тп поступления их в ремонт и вероятностей p1, p2, p3, p4.Сделать выводы о загруженности каждой группы мастеров и необходимых мерах по повышению эффективности работы ремонтного подразделения.109Программа модели; Вариант 26; Модель ремонтного подразделения связи; Замена имен МКУ номерамиRem1EQU1; 1Rem2EQU2; 2Rem3EQU3; 3Rem4EQU4; 4; ЗаданиеDisRem1Rem2Rem3Rem4МКУ-группSTORAGESTORAGESTORAGESTORAGESTORAGEмастеров22111;;;;;группагруппагруппагруппамастеровмастеровмастеровмастеровКоличествоКоличествоКоличествоКоличествоКоличестводиспетчеровмастеров 1 группымастеров 2 группымастеров 3 группымастеров 4 группы; ЗаданиеVrModTRemn_T1To1ступившимTp_q_исходных данныхEQU1440; Время моделирования, 1 ед.
мод. вр. = 1 минMATRIX,4,3; Задание матрицы времени ремонтаEQU4; Количество типов ССEQU15; Среднее время работы диспетчера с поступившим ССEQU2 ; Среднеквадратическое отклонение времени работы диспетчера с поССEQU30 ; Средний интервал времени поступления одного типа ССEQU0.02; Доля не допущенных диспетчером к ремонту ССINITIALMX$TRem(1,1),30 ; Среднее время 1 вида ремонта СС 1 типаINITIALMX$TRem(1,2),40 ; Среднее время 2 вида ремонта СС 1 типаINITIALMX$TRem(1,3),50 ; Среднее время 3 вида ремонта СС 1 типаINITIALMX$TRem(2,1),20 ; Среднее время 1 вида ремонта СС 2 типаINITIALMX$TRem(2,2),30 ; Среднее время 2 вида ремонта СС 2 типаINITIALMX$TRem(2,3),40 ; Среднее время 3 вида ремонта СС 2 типаINITIALMX$TRem(3,1),15 ; Среднее время 1 вида ремонта СС 3 типаINITIALMX$TRem(3,2),25 ; Среднее время 2 вида ремонта СС 3 типаINITIALMX$TRem(3,3),35 ; Среднее время 3 вида ремонта СС 3 типаINITIALMX$TRem(4,1),25 ; Среднее время 1 вида ремонта СС 4 типаINITIALMX$TRem(4,2),35 ; Среднее время 2 вида ремонта СС 4 типаINITIALMX$TRem(4,3),45 ; Среднее время 3 вида ремонта СС 4 типаTipSSFUNCTION RN27,D4 ; Функция распределения поступающих типов СС.2,1/.5,2/.75,3/1,4VidRemFUNCTION RN72,D3 ; Функция распределения видов ремонтов поступающих СС.5,1/.75,2/1,3; Сегмент имитации поступления СС различных типов, требующих различных видов ремонтаGENERATE (Exponential(67,0,(Tp_/n_))) ; Источники ССASSIGN1,FN$TipSS; Код типа СС в Р1ASSIGN2,FN$VidRem; Код вида ремонта СС в Р2ASSIGN4,0; ПодготовкаASSIGN5,P1; Код типа СС также в Р5;Счет поступивших в ремонт ССMet0TRANSFER ,(Met0+P1)Met01TRANSFER ,Met1Met02TRANSFER ,Met1Met03TRANSFER ,Met1Met04TRANSFER ,Met1;;;;1234типатипатипатипа; Сегмент имитации работы диспетчераMet1QUEUEOCH; Занять очередь к диспетчеруENTERDIS; Занять свободного диспетчераDEPARTOCH; Покинуть очередь к диспетчеруADVANCE(Normal(35,T1,To1)); Имитация работы диспетчера со ССLEAVEDIS; Освободить диспетчераTRANSFER q_,,MET20; Не допустить q СС к ремонту110Met21Met22Met23ASSIGNTEST EGATE SFLINKTEST EGATE SFLINKTEST EGATE SFLINKTEST EGATE SFLINK3,(Exponential(317,0,MX$TRem(P1,P2))) ; Время ремонта-в P3P1,1,MET21; Мастерам 1 группыP1,Met3; Мастера 1 группы заняты? Если да,P1,FIFO; то тогда ожидатьP1,2,MET22; Мастерам 2 группыP1,Met4; Мастера 2 группы заняты? Если да,P1,FIFO; то тогда ожидатьP1,3,MET23; Мастерам 3 группыP1,Met5; Мастера 3 группы заняты? Если да,P1,FIFO; то тогда ожидатьP1,4; Мастерам 4 группыP1,Met6; Мастера 4 группы заняты? Если да,P1,FIFO; то тогда ожидать; Сегмент имитации работы мастеров 1 группыMET3ENTERP1; Занять свободного мастера 1 группыADVANCEP3; Имитация времени ремонтаLEAVEP1; Освободить свободного мастера 1 группыTEST NECH*1,0,Met24; Есть ли в очереди СС 1 типа? Если да,UNLINKP1,Met3,1; тогда на ремонт СС 1 типаTRANSFER ,Met7; Отправить отремонтированное СС для учетаMet24ASSIGN4,(P1+1)TEST NECH*4,0,Met25; Есть ли в очереди СС 2 типа? Если да,UNLINKP4,Met27,1; тогда на ремонт СС 2 типаTRANSFER ,Met7; Отправить отремонтированное СС для учетаMet25ASSIGN4,(P1+1)TEST NECH*4,0,Met26; Есть ли в очереди СС 3 типа? Если да,UNLINKP4,Met27,1; тогда на ремонт СС 3 типаTRANSFER ,Met7; Отправить отремонтированное СС для учетаMet26ASSIGN4,(P1+1)TEST NECH*4,0,Met7; Есть ли в очереди СС 4 типа? Если да,UNLINKP4,Met27,1; тогда на ремонт СС 4 типаTRANSFER ,Met7; Отправить отремонтированное СС для учетаMet27ASSIGN1,1; Код 1 в Р1, чтобы занять мастеров 1 группыTRANSFER ,Met3; Направить СС в 1 группу мастеров; Сегмент имитации работы мастеров 2 группыMET4ENTERP1; Занять свободного мастера 2 группыADVANCEP3; Имитация времени ремонтаLEAVEP1; Освободить свободного мастера 2 группыTEST NECH*1,0,Met28; Есть ли в очереди СС 2 типа? Если да,UNLINKP1,Met3,1; тогда на ремонт СС 2 типаTRANSFER ,Met7; Отправить отремонтированное СС для учетаMet28ASSIGN4,(P1+1)TEST NECH*4,0,Met29; Есть ли в очереди СС 3 типа? Если да,UNLINKP4,Met30,1; тогда на ремонт СС 3 типаTRANSFER ,Met7; Отправить отремонтированное СС для учетаMet29ASSIGN4,(P1+1)TEST NECH*4,0,Met7; Есть ли в очереди СС 4 типа? Если да,UNLINKP4,Met30,1; тогда на ремонт СС 4 типаTRANSFER ,Met7; Отправить отремонтированное СС для учетаMet30ASSIGN1,2; Код 2 в Р1, чтобы занять мастеров 2 группыTRANSFER ,Met4; Направить СС во 2 группу мастеров; Сегмент имитации работы мастеров 3 группыMET5ENTERP1; Занять свободного мастера 3 группыADVANCEP3; Имитация времени ремонтаLEAVEP1; Освободить свободного мастера 3 группыTEST NECH*1,0,Met31; Есть ли в очереди СС 3 типа? Если да,UNLINKP1,Met5,1; тогда на ремонт СС 3 типаTRANSFER ,Met7; Отправить отремонтированное СС для учетаMet31ASSIGN4,(P1+1)TEST NECH*4,0,Met7; Есть ли в очереди СС 4 типа? Если да,UNLINKP4,Met32,1; тогда на ремонт СС 4 типаTRANSFER ,Met7; Отправить отремонтированное СС для учета111Met32ASSIGNTRANSFER1,3,Met5; Код 3 в Р1, чтобы занять мастеров 3 группы; Направить СС в 3 группу мастеров; Сегмент имитации работы мастеров 4 группыMET6ENTERP1; Занять свободного мастера 4 группыADVANCEP3; Имитация времени ремонтаLEAVEP1; Освободить свободного мастера 4 группыUNLINKP1,Met6,1; Отправить на ремонт в 4 группу СС 4 типа; СегментMET7MET8MET9MET10MET11MET20счета отремонтированных ССTRANSFER ,(Met7+P5)TERMINATE; 1 типаTERMINATE; 2 типаTERMINATE; 3 типаTERMINATE; 4 типаTERMINATE; Не допущенные к ремонту СС; Сегмент задания времени моделирования и расчета результатов моделированияGENERATE VrMod; Время моделированияTEST LX$Prog,TG1,Met41 ; Если X$Prog<TG1, тоSAVEVALUE Prog,TG1; запомнить в X$Prog количество прогоновMet41TEST ETG1,1,Met42; Если TG1=1, то расчет результатов моделированияSAVEVALUE KolSS1,(INT(N$Met8/X$Prog)) ; Количество отремонтированных СС 1 типаSAVEVALUE KolSS2,(INT(N$Met9/X$Prog)) ; Количество отремонтированных СС 2 типаSAVEVALUE KolSS3,(INT(N$Met10/X$Prog)); Количество отремонтированных СС 3 типаSAVEVALUE KolSS4,(INT(N$Met11/X$Prog)); Количество отремонтированных СС 4 типаSAVEVALUE VerSS1,(N$Met8/N$Met01); Вероятность ремонта СС 1 типаSAVEVALUE VerSS2,(N$Met9/N$Met02); Вероятность ремонта СС 2 типаSAVEVALUE VerSS3,(N$Met10/N$Met03); Вероятность ремонта СС 3 типаSAVEVALUE VerSS4,(N$Met11/N$Met04); Вероятность ремонта СС 4 типаSAVEVALUE VerSS,(N$Met7/N$Met0); Вероятность ремонта СС всех типовMet42TERMINATE 1Вариант 27Постановка задачиВ ремонтное подразделение средств связи (СС) поступают неисправные СС nтипов с вероятностями р1, р2, …, рn соответственно.