
![]() |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[216.73.216.3] |
![]() |
|
Сообщ.
#1
,
|
|
|
Здравствуйте!!Помогите ,пожалуйста)есть прога в GPSS ,но она не запускается ,выдает ошибку,не могу понять в чем проблема.Если можете ПОДСКАЖИТЕ плиз!!!
Вот задание Самолёты прибывают для посадки в район крупного аэропорта каждые 105 мин. Если взлётно-посадочная полоса свободна, прибывший самолет получает разрешение на посадку. Если полоса занята, самолет выполняет полет по кругу и возвращается к аэропорту через каждые 4 минуты. Если после пятого круга самолет не получает разрешения на посадку, он отправляется на запасной аэродром. В аэропорту через каждые 102 мин. К взлетно-посадочной полосе выруливают готовые к взлету машины и получают разрешение на взлет, если полоса свободна. Для взлета и посадки самолеты занимают полосу равно на 2 мин. Если при свободной полосе одновременно один самолет прибывает для посадки, а другой для взлета, полоса предоставляется взлетающей машине. Смоделировать работу аэропорта в течение суток. Подсчитать количество самолетов, которые взлетели, сели и были направлены на запасной аэродром. Определить коэффициент загрузки взлетно-посадочной полосы. А вот код проги line equ 1; основной аэродром line2 equ 2; запасной аэродром ready equ 3; очередь готовых на взлёт самолётов ;-------< самолёты, идущие на посадку >----------- generate 10,5 ; <- с приоритетом 0 assign 2,0 ; инициализация второго параметра ;----------< попытка занять полосу >-------------- LAND gate nu line,WAIT_LAND seize line advance 2 release line transfer ,OUT ;--------< кольцо, где ждут 4 минуты >------------ WAIT_LAND test L PS2,5,LAND2 mark 1 ; транзакт запоминает время начала ожидания assign 2+,1 ; количество кругов ожидания test GE MPS1,4 ; время прошло - следующая попытка transfer ,LAND ;--------------< запасной аэродром >-------------- LAND2 seize line2 ; для статистики release line2 transfer ,OUT ;--------------< взлетающий самолёт >------------- generate 10,2,,,1 ; <- с приоритетом 1 queue ready seize line depart ready advance 2 release line ;--------------------< конец >-------------------- OUT terminate ;--------< время моделирования = 1 сутки >-------- generate 0,,1440 terminate 1 start 1 |