Пример 4. 58 generate „30,18; Эвакуация потерпевших

Рассмотрим модель эвакуации потерпевших и раненых во время боевых действий. Потерпевшие эвакуируются 5- и 13-местными ав­томобилями. Если на пункте эвакуации собирается раненых больше чем мест в автомобиле, то вывозится столько раненых, сколько есть свободных мест. Иначе вывозятся все. Известными являются функ­ции времени прибытия раненых к медицинскому пункту (МП) полка. В каждом полку есть четыре МП. Раненые эвакуируются в военно-полевой передвижной госпиталь (ВППГ), где им предоставляется не­обходимая помощь.

Фрагмент программы:

; Author: V. Tomashevskiy

TPOLK FUNCTION...; Функция распределения интервалов

; времени от момента ранения до

;подготовки в МП полка

; для следующей эвакуации

EХР1 FUNCTION RN1,C21; Функция распределения

Интервалов времени прибытия

ЧЮ/. 9151,12/. 9418,14/. 9625,16/. 9763,18; раненых в МП

9859,20/. 9896,22/. 9933,24/. 9955,26/. 9963,28

9974,30/. 9981,32/. 9989,34/. 9996,36/1,96

MEST_VP FUNCTION X$CARVP,D2; Эксплуатируется 9 автомобилей ^5/18,13; пятиместных и 9 - 13-местных

GENERATE „30,18; Эвакуация потерпевших

; 18 автомобилями. Момент выезда —; через 30 мин после начала боя

SAVEVALUE CARVP+,1; Определение номера автомобиля

ASSIGN MESTOVP,FN$MEST_VP; Определение количеств;,

; мест в автомобиле

VOZVR ADVANCE 120,20; Длительность рейса к полку

EV TEST LE CH$EVAC_POL,P$MESTOVP,BOLVP

; Если потерпевших меньше, чем мест в автомобиле, то эвакуируют всех

UNLINK EVAC POL,VPPG,CH$EVAC_POL

TRANSFER,VOZVR; Новый рейс к МП полка

BOLVP UNLINK EVAC_POL,VPPG,P$M ESTOVP

; Эвакуируют потерпевших в количестве, не превышающем числа мест в автомобиле

TRANSFER,VOZVR; Новый рейс к МП полка

; Эвакуация потерпевших с первого МП полка

GENERATE FN$EXPl,,100; Поступление потерпевших в МП полка:

; первый поступает не раньше, чем через; 100 мин после начала боя

SAVEVALUE SV_P1+,1; Подсчет санитарных потерь

TRANSFER,NAK; Направить на эвакуацию

; Эвакуация потерпевших со второго МП полка

GENERATE 8,FN$EXP,100

ASSIGN 1,2

ASSIGN TRAN,FN$TPOLK

SAVEVALUE SV_P2+,1

TRANSFER,NAK; Эвакуация потерпевших с третьего МП полка

GENERATE 10,FN$EXP,100

ASSIGN 1,3

ASSIGN TRAN,FN$TPOLK

SAVEVALUE SV_P3+,1

TRANSFER,NAK; Эвакуация потерпевших с четвертого МП полка

GENERATE 10,FN$EXP,100

ASSIGN 1,4

ASSIGN TRAN,FN$TPOLK

SAVEVALUE SV_P4+,1

NAK LINK EVAC_POL,FIFO

; Ожидание эвакуации из МП полка

VPPG ADVANCE 60,10; Эвакуация в ВППГ

; Прибытие медицинского транспорта на пост сортировки ВППГ

ADVANCE 2,1; Сортировка в ВППГ

…