На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
  
> GPSS , помогите найти ошибку плизззззз
    Здравствуйте!!Помогите ,пожалуйста)есть прога в GPSS ,но она не запускается ,выдает ошибку,не могу понять в чем проблема.Если можете ПОДСКАЖИТЕ плиз!!!
    Вот задание

    Самолёты прибывают для посадки в район крупного аэропорта каждые 105 мин. Если взлётно-посадочная полоса свободна, прибывший самолет получает разрешение на посадку. Если полоса занята, самолет выполняет полет по кругу и возвращается к аэропорту через каждые 4 минуты. Если после пятого круга самолет не получает разрешения на посадку, он отправляется на запасной аэродром. В аэропорту через каждые 102 мин. К взлетно-посадочной полосе выруливают готовые к взлету машины и получают разрешение на взлет, если полоса свободна. Для взлета и посадки самолеты занимают полосу равно на 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
    1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0,0133 ]   [ 14 queries used ]   [ Generated: 18.07.25, 00:02 GMT ]