Помощь В Решении Задачи На Gpss

usergpss

New member
11.06.2014
1
0
#1
Здравствуйте, уважаемые программисты! У меня возникла задача! Моделирование тракта передачи данных.
Для повышения надежности функционирования автоматизированной системы ее телекоммуникационная подсистема выполнена в виде совокупности трактов передачи сообщений. Структура всех трактов одинакова и представляет собой объединение из 6 разнородных каналов. Каждое сообщение передается последовательно по двум каналам, выбранным случайным образом.
Вероятность возникновения ошибки в каналах за висит от их типа и составляет: 1 тип - 0,12; 2 тип- 0,08; 3 тип- 0,09; 4 тип- 0,11; 5 тип-0,15; 6 тип- 0,1.
Средняя длина формализованного сообщения составляет 150 кбайт. Скорости передачи для каналов: 1,2 и 6 тип-14,4 кбит/с; 3 и 5 тип- 56 кбит/с;
4 тип- 128 кбит/с.

Цель: определить вероятность неприема сообщения и среднее время доставки.

Решал немного похожую задачу:
Исследовать тракт обмена информацией, состоящий из 5 каналов. По каналам передаются сообщения трех категорий срочности (КС). Длина сообщений первой КС постоянна и равна 10000 бит, а длины сообщений второй и третьей КС распределены по экспоненциальному закону со средним значением 10000 и 50000 бит соответственно. Известна скорость передачи данных в канале 9600 бит/с и интенсивность поступления сообщении каждой КС – 50, 100, и 500 запросов в час соответственно. Поток сообщений каждой КС - простейший. Обслуживание в канале – с относительным приоритетом.


Вот программа:

10 SIMULATE
20 * MODEL CMO M/M/1
30 EXP FUNCTION RN1,C13
0,0/.1,.105/.2,.223/.3,.357/.4,.511/.5,.593/.6,.916/.7,1.304/.8,1.61/
.9,2.303/.97,3.507/.995,5.298/.999,7
40 TABNAME FUNCTION P$TIP_Z,D3
1,TAB1/2,TAB2/3,TAB3
50 TAB1 TABLE M1,0,10,20
60 TAB2 TABLE M1,0,10,20
70 TAB3 TABLE M1,0,10,20
80 VAR1 VARIABLE 1000/X$NUM1
90 VAR2 VARIABLE 1000/X$NUM2
100 VAR3 VARIABLE 1000/X$NUM3
110 GEN1 GENERATE V$VAR1,FN$EXP
120 ASSIGN TIME_PROCESS,X$NUM4
130 ASSIGN TIP_Z,1
140 TRANSFER ,INPUT
150 GEN2 GENERATE V$VAR2,FN$EXP
160 ASSIGN TIME_PROCESS,X$NUM5
170 ASSIGN TIP_Z,2
180 TRANSFER ,INPUT
190 GEN3 GENERATE V$VAR3,FN$EXP
200 ASSIGN TIME_PROCESS,X$NUM6
210 ASSIGN TIP_Z,3
220 INPUT ASSIGN KVANT,5
230 QUEUE OCHERED
240 SEIZE SYSTEM
250 DEPART OCHERED
260 TEST GE P$TIME_PROCESS,P$KVANT,GO
270 ADVANCE P$KVANT
280 ASSIGN TIME_PROCESS-,P$KVANT
290 TEST E P$TIME_PROCESS,0,OUT
300 GO ADVANCE P$TIME_PROCESS
310 ASSIGN TIME_PROCESS,0
320 OUT RELEASE SYSTEM
330 TEST E P$TIME_PROCESS,0,INPUT
340 TABULATE FN$TABNAME
350 TERMINATE 1
360 INITIAL X$NUM1,100
370 INITIAL X$NUM2,80
380 INITIAL X$NUM3,50
390 INITIAL X$NUM4,5
400 INITIAL X$NUM5,3
410 INITIAL X$NUM6,2
420 START 13282
430 * END



а как переделать ее не знаю! если есть у кого- нибудь возможность, то подскажите пожалуйста!!! Спасибо!