Работа аэропорта в 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
