Работа аэропорта в GPSS World

Самолеты прибывают для посадки в район крупного аэропорта каждые 10±5 минут. Если взлетно-посадочная полоса свободна, прибывший самолет получает разрешение на посадку. Если полоса занята, самолет выполняет полет по кругу и возвращается к аэропорту каждые 4 минуты. Если после пятого круга самолет не получает разрешения на посадку, он отправляется на запасной аэродром. В аэропорту каждые 10±2 минут к взлетно-посадочной полосе выруливают готовые к взлету машины и получают разрешение на взлет, если полоса свободна. Для взлета и посадки самолеты занимает полосу ровно на 2 минуты. Если при свободной полосе одновременно один самолет прибывает для посадки, а другой - для взлета, полоса предоставляется взлетающей машине. Смоделировать работу аэропорта в течении суток. Подсчитать количество самолетов, которые взлетели сели и были направлены на запасной аэродром. Определить коэффициент загрузки взлетно-посадочной полосы.

Листинг программы:

 INITIAL X$krug,0
 polosa STORAGE 1
 AAA1 VARIABLE C1-X1
 TAB1 TABLE V$AAA1,5,5,44
 GENERATE 10,2,,,2
 TABULATE TAB1
 ENTER polosa
 ADVANCE 2
 LEAVE polosa
 TERMINATE 0
 GENERATE 10,5,,,1
 TABULATE TAB1
 svobo GATE SNF polosa,zanat
 ENTER polosa
 ADVANCE 2
 LEAVE polosa
 TERMINATE 0
 zanat SAVEVALUE krug+,1
 TEST LE X$krug,4,ulet
 ADVANCE 4
 TRANSFER ,svobo
 ulet SAVEVALUE krug,0
 TERMINATE 0
 GENERATE 1440
 TERMINATE 1
 START 1