Результаты работы СМО

Результаты работы СМО. Характеристики работы СМОВар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Время работы СМО Поступило заявок78397353779359584178Обслужено заявок53164342165237362840Не обслужено заявок25233011614122221338Абсолютная пропускная способность системы0,050,030,0070,040,0130,10,0080,0 420,0090,070,0030,0040,0070,0360,0140,02 Относительная пропускная способность системы0,7140,370,330,6670,57100,80,5680 ,8570,5560,6670,60,7780,620,6830,513Веро ятность отказа, 28,662,566,733,342,902043,214,344,433,34 022,237,931,748,7 Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар 2Вар 1Вар ,010,0060,0060,0170,0070,0290,0010,0320, 0080,0360,0050,0370,0060,0360,0040,0360, 0040,0330,0060,0370,7890,5880,7760,570,6 880,5050,7820,5380,6190,540,6820,5880,67 70,5470,750,5520,690,5720,6740,54621,141 ,232,44331,349,521,846,238,14631,841,232 ,345,32844,83142,832,645,4 Приложение 2. Приложение 3. Приложение 4. Приложение 5. Приложение 6. Листинг программы.

PROGRAM CANSMO TYPE CHANNAL FREE, CLAIM1, CLAIM2 TIME word INTENSITY word STATISTICS word VAR CHANNAL1, CHANNAL2 CHANNALКаналы T, t, tc1, tc2 TIME Время l1, l2, n1, n2 INTENSITY Интенсивности served1, notserved1, served2, notserved2, S STATISTICS Статистика M,NINTEGERчисло реализаций FUNCTION Wt TIME l INTENSITY booleanОпределяет появилась ли заявка Begin по интенсивности потока l if random l60 then W TRUE else W FALSE End FUNCTION Ft TIME n INTENSITY TIMEОпределяет сколько будет обрабатываться заявка Begin по интенсивности обслуживания заявок n F t round60n End BEGIN M0 WRITELNВВЕДИТЕ ЧИСЛО РЕАЛИЗАЦИЙ РАБОТЫ СМО READLNN REPEAT MM1 writelnM, -ая реализация randomize CHANNAL1 FREE CHANNAL2 FREE l1 3 l2 1 n1 2 n2 1 served1 0 notserved1 0 served2 0 notserved2 0 writeВведите время исследования СМО - Т readlnT repeat if tc1 t then begin if CHANNAL1 CLAIM1 then incserved1 else incserved2 CHANNAL1 FREE writelnКанал1 выполнил заявку end if tc2 t then begin if CHANNAL2 CLAIM1 then incserved1 else incserved2 CHANNAL2 FREE writelnКанал2 выполнил заявку end if Wt, l1 then begin writelnПоступила заявка1 if CHANNAL1 FREE then begin CHANNAL1 CLAIM1 tc1 Ft, n1 writelnКанал1 принял заявку1 end else if CHANNAL2 FREE then begin CHANNAL2 CLAIM1 tc2 Ft, n1 writelnКанал2 принял заявку1 end else if CHANNAL1 CLAIM2 then begin CHANNAL1 CLAIM1 tc1 Ft, n1 incnotserved2 writelnКанал1 принял заявку1 вместо заявки2 end else if CHANNAL2 CLAIM2 then begin CHANNAL2 CLAIM1 tc2 Ft, n1 incnotserved2 writelnКанал2 принял заявку1 вместо заявки2 end else begin incnotserved1 writelnзаявка1 не обслужена end end if Wt, l2 then begin writelnПоступила заявка2 if CHANNAL1 FREE then begin CHANNAL1 CLAIM2 tc1 Ft, n2 writelnКанал1 принял заявку2end else if CHANNAL2 FREE then begin CHANNAL2 CLAIM2 tc2 Ft, n2 writelnКанал2 принял заявку2end else begin incnotserved2 writelnзаявка2 не обслужена end end inct until T t S served1 notserved1 served2 notserved2 writelnвремя работы СМО ,T writelnобслужено каналом1 ,served1 writelnобслужено каналом2 ,served2 writelnПоступило заявок ,S writelnОбслужено заявок, served1served2 writelnНе обслужено заявок, notserved1notserved2 writelnИнтенсивность поступления заявок в систему, served1served2T23 writelnАбсолютная пропускная способность системы, served1served2T23 writelnВероятность отказа, notserved1notserved2S10021, writelnОтносительная пропускная способность системы, served1served2S23 readln UNTIL M N writelnмоделирование закончено END.