GPSSWorld
Не компилируется програма. помогите кто умеет
додаю текст проги
МT MATRIX ,6,3 ; Описание матрицы
; Задание исходных данных
Emk1 EQU 2 ; Емкость накопителя 1 на сервере
;Средний интервал поступления запросов на:
IntArm1 EQU 32 ; АРМ1
IntArm2 EQU 25 ; APM2
IntArm3 EQU 30 ; APM3
;Вероятность нахождения информации в базе данных на:
VerArm1 EQU .750 ; АРМ1
VerArm2 EQU .600 ; АРМ2
VerArm3 EQU .400 ; АРМЗ
INITIAL X$VrMod,3600 ; Время моделирования
; Среднее время первичной обработки запросов на:
INITIAL МХ$МТ(2,1),3 ; АРМ1
INITIAL МХ$МТ(2,2),3.5 ; АРМ2
INITIAL MX$MT(2,3),4 ;АРМЗ
;Среднее время передачи запросов на сервер с:
INITIAL МХ$МТ(3,1),2.5 ; АРМ1
INITIAL МХ$МТ(3,2),3.5 ; АРМ2
INITIAL МХ$МТ(3,3),2 ; АРМ3
;Среднее время обработки запросов на сервере с:
INITIAL МХ$МТ(4,1),26
INITIAL МХ$МТ(4,2),31
INITIAL МХ$МТ(4,3),28
;Среднее время передачи данных с сервера на :
INITIAL НХ$МТ(5,1),2.7 ; АРМ1
INITIAL МХ$МТ(5,2),3 ; АРМ2
INITIAL МХ$МТ(5,3),2.2 ; АРМ3
;Среднее время обработки запросов на:
INITIAL MX$MT(6,1),26 ;APM1
INITIAL MX$MT(6,2),20 ;APM2
INITIAL MX$MT(6,3),13.5 ;АРМЗ
; Описание арифметических выражений
;Вероятность обработки запросов с:
VArm1 VARIABLE (N$Ter1+N$Ter7)/N$NS1 ; АРМ1
VArm2 VARIABLE (N$Ter2+N$Ter8)/N$NS2 ; APM2
VArm3 VARIABLE (N$Ter3+N$Ter9)/N$NS3 ; АРМЗ
; Вероятность потери запросов:
VNak VARIABLE N$Met8/N$PZ ; ЛВС
VNak1 VARIABLE N$Ter4/N$NS1 ;APM1
VNak2 VARIABLE N$Ter5/N$NS2 ;APM2
VNak3 VARIABLE N$Ter6/N$NS3 ;АРМ3
;Среднее время обработки запросов (реакция ЛВС):
RArm1 VARIABLE (X$VArm11+X$VArm12)/(N$Ter1+N$Ter7);APM1
RArm2 VARIABLE (X$VArm21+X$VArm22)/(N$Ter2+N$Ter8);APM2
RArm3 VARIABLE (X$VArm31+X$VArm32)/(N$Ter3+N$Ter9); АРМЗ
; Сегмент имитации АРМ1
GENERATE (Exponential 1,0, IntArm1)); Генератор запросов на АРМ1
NS1 ASSIGN 1,1 ;Код 1 - запрос с АРМ1
QUEUE ArmQ1 ;Встать 6 очередь запросов на АРМ1
SEIZE Arm1 ;Занять Arm1
DEPART ArmQ1 ;Покинуть очередь ArmQ1
ADVANCE (Exponential(1,0,MX$МТ(2,Р1))) ;Обработка запроса
TRANSFER VerArm1,Met2,Met1 ;Есть информация в базе данных?
Met1 ADVANCE (Exponential(1,0,MX$МТ(6,Р1))) ;Обработка запроса
RELEASE Arm1 ;Освободить АРМ1
SAVEVALUE VArm11+,M1 ;Суммарное время обработки запросов
TER1 TERMINATE ;Запросы, обработанные на АРМ1 без запроса на сервер
Met2 RELEASE Arm1 ;Освободить АРМ1
PRIORITY 1 ;Запросу на сервер - более високий приоретет
TRANSFER ,Met7 ;Отправка запроса в КПД
; Сегмент имитации АРM2
GENERATE (Exponential(2,0,IntArm2)) ;Генератор запросов на АРМ2
NS2 ASSIGN 1,2 ;Код 2 - запрос с АРМ2
QUEUE ArmQ2 ;Встать в очередь запросов на АРМ2
SEIZE Arm2 ;Занять АРМ2
DEPART ArmQ2 ;Покинуть очередь ArmQ2
ADVANCE (Exponential(2,0,МХ$МТ(2,Р1))) ;Обработка запроса
TRANSFER VerArm2,Met5,Met3 ;Есть информация в базе данных?
Met3 ADVANCE (Exponential(2,0,МХ$МТ(6,Р1))) ;Обработка запроса
RELEASE Arm2 ;Освободить АРМ2
SAVEVALUE VArm21+,M1 ;Суммарное время обработки запросов
Теr2 TERMINATE ;Запросы обработанные на АРМ2 без запроса на ;сервер
Met5 RELEASE Arm2 ;Освободить АРМ2
PRIORITY 1 ;Запросу на сервер - более высокий приоритет
TRANSFER ,Met7 ;Отправка запроса в КПД
;Сегмент имитации АРМ3
GENERATE(Exponential(3,0,IntArm3)) ;Генератор запросов на АРМ3
NS3 ASSIGN 1,3 ;Код 3 - запрос с АРМ3
QUEUE ArmQ3 ;Встать в очередь запросов на АРМ3
SEIZE Arm3 ;Занять АРМ3
DEPART ArmQ3 ;Покинуть очередь ArmQ3
ADVANCE (Exponential(3,0,МХ$МТ(2,Р1))) ;Обработка запроса
TRANSFER VerArm3,Met6,Met4 ;Есть информация в базе данных?
Met3 ADVANCE (Exponential(3,0,МХ$МТ(6,Р1))) ;Обработка запроса
RELEASE Arm3 ;Освободить АРМ3
SAVEVALUE VArm31+,M1 ;Суммарное время обработки запросов
Теr3 TERMINATE ;Запросы обработанные на АРМ3 без запроса на ;сервер
Met6 RELEASE Arm3 ;Освободить АРМ3
PRIORITY 1 ;Запросу на сервер - более высокий приоритет
;сегмент имитации работі канала передачи данніх
GATE NU Can ; Проверка; свободен ли КПД?
SEIZE Can ; Да, занять КПД
ADVANCE (Exponential(4,0,MX$MT(3,P1))); Передача данных
PZ RELEASE Can ; Освободить КПД
;сегмент имитации работы накопителя 1 и сервера
TEST L Q$SerQ1,Emk1,Met8 ;Есть место в накопителе?
QUEUE SerQ1 ;Встать в очередь в накопителе 1 на сервере J
SEIZE Server ;Занять сервер
DEPART SerQ1 ;Покинуть очередь в накопителе ^
ADVANCE (Exponential(5,0,МХ$МТ(4,P1))) ;Обработка запроса
RELEASE Server ;Освободить сервер
;Сегмент имитации работы накопителя 2 и канала передачи данных
QUEUE SerQ2 ;Занять очередь в накопителе 2 на сервере
GATE NU Can ;Свободен ли КПД?
SEIZE Can ;Да, занять КПД
DEPART SerQ2 ;Покинуть очередь в накопителе 2
ADVANCE (Exponential(6,0,MX$MT(5,P1))) ;Передача запроса
RELEASE Can ;Освободить КПД
; Сегмент обработки запросов на АРM1 после получения данных с ;сервера
TEST Е P1,1,Met11 ;Запрос с АРМ1?
SEIZE Arml ;Занять АРМ1
ADVANCE (Exponential(7,0,MX$MT(6,P1)));Обработка запроса
RELEASE Arm1 ;Освободить АРМ1
SAVEVALUE VArm12+,M1 ;Суммарное время обработки запросов
Ter7 TERMINATE ;Запросы, обработанные с запросами на сервер
;Сегмент обработки запросов на АРМ2 после получения данных с ;сервера
Met11 TEST Е P1,2,Met12 ;Запрос с АРМ2?
SEIZE Arm2 ;Занять АРМ2
ADVANCE (Exponential(7,0,MX$MT(6,P1))) ;Обработка запроса
RELEASE Arm2 ;Освободить АРМ2
SAVEVALUE VArm22+,M1 ;Суммарное время обработки запросов
Ter8 TERMINATE ;Запросы, обработанные с запросами на сервер
;Сегмент обработки запросов на АРMЗ после получения данных с сервера
Met12 SEIZE Аrm3 ; Занять АРМ1
ADVANCE (Exponential(7,0,MX$MT(6,P1))) ; Обработка запроса
RELEASE Аrm3 ; Освободить АРМЗ
SAVEVALUE VArm32+,M1 ; Суммарное время обработки запросов
Теr9 TERMINATE ;Запросы, обработанные с запросами на сервер
;Сегмент уничтожения запросов при заполнении накопителя 1 на ;сервере
Met8 Test E P1,1,Met9
Ter4 TERMINATE ;Уничтоженные запросы с АРМ1
Met9 Test E P1,2,Ter6
Ter5 TERMINATE ;Уничтоженные запросы с АРМ2
Ter6 TERMINATE ;Уничтоженные запросы с АРМ3
;Сегмент задания времени моделирования и вывода результатов ;моделирования
GENERATE X$VrMod
;Вероятность обработки запросов с:
SAVEVALUE VArm1,V$VArm1 ;APM1
SAVEVALUE VArm2,V$VArm2 ;APM2
SAVEVALUE VArm3,V$VArm3 ;APM3
;Вероятность потери запросов,
SAVEVALUE VNak,V$VNak ;ЛВС
SAVEVALUE VNak1,V$VNak1 ;APM1
SAVEVALUE VNak2,V$VNak2 ;APM2
SAVEVALUE VNak3,V$VNak3 ;APM3
;Середній час опрацювання запитів
SAVEVALUE RArm1,V$RArm1 ;APM1
SAVEVALUE RArm2,V$RArm2 ;APM2
SAVEVALUE RArm3,V$RArm3 ;APM3
TERMINATE 1
додаю текст проги
МT MATRIX ,6,3 ; Описание матрицы
; Задание исходных данных
Emk1 EQU 2 ; Емкость накопителя 1 на сервере
;Средний интервал поступления запросов на:
IntArm1 EQU 32 ; АРМ1
IntArm2 EQU 25 ; APM2
IntArm3 EQU 30 ; APM3
;Вероятность нахождения информации в базе данных на:
VerArm1 EQU .750 ; АРМ1
VerArm2 EQU .600 ; АРМ2
VerArm3 EQU .400 ; АРМЗ
INITIAL X$VrMod,3600 ; Время моделирования
; Среднее время первичной обработки запросов на:
INITIAL МХ$МТ(2,1),3 ; АРМ1
INITIAL МХ$МТ(2,2),3.5 ; АРМ2
INITIAL MX$MT(2,3),4 ;АРМЗ
;Среднее время передачи запросов на сервер с:
INITIAL МХ$МТ(3,1),2.5 ; АРМ1
INITIAL МХ$МТ(3,2),3.5 ; АРМ2
INITIAL МХ$МТ(3,3),2 ; АРМ3
;Среднее время обработки запросов на сервере с:
INITIAL МХ$МТ(4,1),26
INITIAL МХ$МТ(4,2),31
INITIAL МХ$МТ(4,3),28
;Среднее время передачи данных с сервера на :
INITIAL НХ$МТ(5,1),2.7 ; АРМ1
INITIAL МХ$МТ(5,2),3 ; АРМ2
INITIAL МХ$МТ(5,3),2.2 ; АРМ3
;Среднее время обработки запросов на:
INITIAL MX$MT(6,1),26 ;APM1
INITIAL MX$MT(6,2),20 ;APM2
INITIAL MX$MT(6,3),13.5 ;АРМЗ
; Описание арифметических выражений
;Вероятность обработки запросов с:
VArm1 VARIABLE (N$Ter1+N$Ter7)/N$NS1 ; АРМ1
VArm2 VARIABLE (N$Ter2+N$Ter8)/N$NS2 ; APM2
VArm3 VARIABLE (N$Ter3+N$Ter9)/N$NS3 ; АРМЗ
; Вероятность потери запросов:
VNak VARIABLE N$Met8/N$PZ ; ЛВС
VNak1 VARIABLE N$Ter4/N$NS1 ;APM1
VNak2 VARIABLE N$Ter5/N$NS2 ;APM2
VNak3 VARIABLE N$Ter6/N$NS3 ;АРМ3
;Среднее время обработки запросов (реакция ЛВС):
RArm1 VARIABLE (X$VArm11+X$VArm12)/(N$Ter1+N$Ter7);APM1
RArm2 VARIABLE (X$VArm21+X$VArm22)/(N$Ter2+N$Ter8);APM2
RArm3 VARIABLE (X$VArm31+X$VArm32)/(N$Ter3+N$Ter9); АРМЗ
; Сегмент имитации АРМ1
GENERATE (Exponential 1,0, IntArm1)); Генератор запросов на АРМ1
NS1 ASSIGN 1,1 ;Код 1 - запрос с АРМ1
QUEUE ArmQ1 ;Встать 6 очередь запросов на АРМ1
SEIZE Arm1 ;Занять Arm1
DEPART ArmQ1 ;Покинуть очередь ArmQ1
ADVANCE (Exponential(1,0,MX$МТ(2,Р1))) ;Обработка запроса
TRANSFER VerArm1,Met2,Met1 ;Есть информация в базе данных?
Met1 ADVANCE (Exponential(1,0,MX$МТ(6,Р1))) ;Обработка запроса
RELEASE Arm1 ;Освободить АРМ1
SAVEVALUE VArm11+,M1 ;Суммарное время обработки запросов
TER1 TERMINATE ;Запросы, обработанные на АРМ1 без запроса на сервер
Met2 RELEASE Arm1 ;Освободить АРМ1
PRIORITY 1 ;Запросу на сервер - более високий приоретет
TRANSFER ,Met7 ;Отправка запроса в КПД
; Сегмент имитации АРM2
GENERATE (Exponential(2,0,IntArm2)) ;Генератор запросов на АРМ2
NS2 ASSIGN 1,2 ;Код 2 - запрос с АРМ2
QUEUE ArmQ2 ;Встать в очередь запросов на АРМ2
SEIZE Arm2 ;Занять АРМ2
DEPART ArmQ2 ;Покинуть очередь ArmQ2
ADVANCE (Exponential(2,0,МХ$МТ(2,Р1))) ;Обработка запроса
TRANSFER VerArm2,Met5,Met3 ;Есть информация в базе данных?
Met3 ADVANCE (Exponential(2,0,МХ$МТ(6,Р1))) ;Обработка запроса
RELEASE Arm2 ;Освободить АРМ2
SAVEVALUE VArm21+,M1 ;Суммарное время обработки запросов
Теr2 TERMINATE ;Запросы обработанные на АРМ2 без запроса на ;сервер
Met5 RELEASE Arm2 ;Освободить АРМ2
PRIORITY 1 ;Запросу на сервер - более высокий приоритет
TRANSFER ,Met7 ;Отправка запроса в КПД
;Сегмент имитации АРМ3
GENERATE(Exponential(3,0,IntArm3)) ;Генератор запросов на АРМ3
NS3 ASSIGN 1,3 ;Код 3 - запрос с АРМ3
QUEUE ArmQ3 ;Встать в очередь запросов на АРМ3
SEIZE Arm3 ;Занять АРМ3
DEPART ArmQ3 ;Покинуть очередь ArmQ3
ADVANCE (Exponential(3,0,МХ$МТ(2,Р1))) ;Обработка запроса
TRANSFER VerArm3,Met6,Met4 ;Есть информация в базе данных?
Met3 ADVANCE (Exponential(3,0,МХ$МТ(6,Р1))) ;Обработка запроса
RELEASE Arm3 ;Освободить АРМ3
SAVEVALUE VArm31+,M1 ;Суммарное время обработки запросов
Теr3 TERMINATE ;Запросы обработанные на АРМ3 без запроса на ;сервер
Met6 RELEASE Arm3 ;Освободить АРМ3
PRIORITY 1 ;Запросу на сервер - более высокий приоритет
;сегмент имитации работі канала передачи данніх
GATE NU Can ; Проверка; свободен ли КПД?
SEIZE Can ; Да, занять КПД
ADVANCE (Exponential(4,0,MX$MT(3,P1))); Передача данных
PZ RELEASE Can ; Освободить КПД
;сегмент имитации работы накопителя 1 и сервера
TEST L Q$SerQ1,Emk1,Met8 ;Есть место в накопителе?
QUEUE SerQ1 ;Встать в очередь в накопителе 1 на сервере J
SEIZE Server ;Занять сервер
DEPART SerQ1 ;Покинуть очередь в накопителе ^
ADVANCE (Exponential(5,0,МХ$МТ(4,P1))) ;Обработка запроса
RELEASE Server ;Освободить сервер
;Сегмент имитации работы накопителя 2 и канала передачи данных
QUEUE SerQ2 ;Занять очередь в накопителе 2 на сервере
GATE NU Can ;Свободен ли КПД?
SEIZE Can ;Да, занять КПД
DEPART SerQ2 ;Покинуть очередь в накопителе 2
ADVANCE (Exponential(6,0,MX$MT(5,P1))) ;Передача запроса
RELEASE Can ;Освободить КПД
; Сегмент обработки запросов на АРM1 после получения данных с ;сервера
TEST Е P1,1,Met11 ;Запрос с АРМ1?
SEIZE Arml ;Занять АРМ1
ADVANCE (Exponential(7,0,MX$MT(6,P1)));Обработка запроса
RELEASE Arm1 ;Освободить АРМ1
SAVEVALUE VArm12+,M1 ;Суммарное время обработки запросов
Ter7 TERMINATE ;Запросы, обработанные с запросами на сервер
;Сегмент обработки запросов на АРМ2 после получения данных с ;сервера
Met11 TEST Е P1,2,Met12 ;Запрос с АРМ2?
SEIZE Arm2 ;Занять АРМ2
ADVANCE (Exponential(7,0,MX$MT(6,P1))) ;Обработка запроса
RELEASE Arm2 ;Освободить АРМ2
SAVEVALUE VArm22+,M1 ;Суммарное время обработки запросов
Ter8 TERMINATE ;Запросы, обработанные с запросами на сервер
;Сегмент обработки запросов на АРMЗ после получения данных с сервера
Met12 SEIZE Аrm3 ; Занять АРМ1
ADVANCE (Exponential(7,0,MX$MT(6,P1))) ; Обработка запроса
RELEASE Аrm3 ; Освободить АРМЗ
SAVEVALUE VArm32+,M1 ; Суммарное время обработки запросов
Теr9 TERMINATE ;Запросы, обработанные с запросами на сервер
;Сегмент уничтожения запросов при заполнении накопителя 1 на ;сервере
Met8 Test E P1,1,Met9
Ter4 TERMINATE ;Уничтоженные запросы с АРМ1
Met9 Test E P1,2,Ter6
Ter5 TERMINATE ;Уничтоженные запросы с АРМ2
Ter6 TERMINATE ;Уничтоженные запросы с АРМ3
;Сегмент задания времени моделирования и вывода результатов ;моделирования
GENERATE X$VrMod
;Вероятность обработки запросов с:
SAVEVALUE VArm1,V$VArm1 ;APM1
SAVEVALUE VArm2,V$VArm2 ;APM2
SAVEVALUE VArm3,V$VArm3 ;APM3
;Вероятность потери запросов,
SAVEVALUE VNak,V$VNak ;ЛВС
SAVEVALUE VNak1,V$VNak1 ;APM1
SAVEVALUE VNak2,V$VNak2 ;APM2
SAVEVALUE VNak3,V$VNak3 ;APM3
;Середній час опрацювання запитів
SAVEVALUE RArm1,V$RArm1 ;APM1
SAVEVALUE RArm2,V$RArm2 ;APM2
SAVEVALUE RArm3,V$RArm3 ;APM3
TERMINATE 1