TU5       TABLE    M1,100,100,20
pribor1    STORAGE    1

PROCEDURE hyperexp(rng,qq,mean1,mean2) begin
if (Uniform(rng,0,100) / 100 < qq) then return (exponential(rng,0,mean1));
else return (exponential(rng,0,mean2));
end;
    GENERATE    (Exponential(5,0,11.11))

    ; Вход в СМО-1 с неограниченным накопителем
SMO1    QUEUE    11
    QUEUE    12
    ENTER    pribor1
    DEPART    11
    ADVANCE    (Exponential(5,0,10))
    LEAVE    pribor1
    DEPART    12

    ; Переправить 0.4118% заявок в СМО-3 (оставшиеся 58.88% пойдут в СМО-2)
    TRANSFER    0.4118,,SMO3

    ; Вход в СМО-2 с ограниченным накопителем
SMO2    TEST L    Q2,3,drop1
    QUEUE    2
    SEIZE    pribor2
    DEPART    2
    ADVANCE    (Exponential(5,0,5)+Exponential(5,0,5))
    RELEASE    pribor2
    TRANSFER    ,quit

    ; Вход в СМО-3 с ограниченным накопителем
SMO3    TEST L    Q3,6,drop2
    QUEUE    3
    SEIZE    pribor3
    DEPART    3
    ADVANCE    (hyperexp(5,0.02,95,8.27))
    RELEASE    pribor3

quit    TABULATE     TU5
    TERMINATE    1
drop1    TERMINATE    1
drop2    TERMINATE    1

START 100000