* Input for multi-chain queuing network

bind
pr11 .675
pr1s .225
pr22 .675
pr2s .225
prate 3600
pdrate 7200
sdrate1 7000
sdrate2 1800
end

mpfqn serve2(c)

* first chain
chain 1
P1 D1 pr11
P1 Ds pr1s
D1 P1 1
Ds P1 1
end

* second chain
chain 2
P2 D2 pr22
P2 Ds pr2s
D2 P2 1
Ds P2 1
end
end

P1 FCFS prate
end
P2 FCFS prate
end
D1 FCFS pdrate
end
D2 FCFS pdrate
end
Ds ps
1 sdrate1
2 sdrate2
end

* alternate for Ds
* Ds ps sdaret1
* 2 sdrate2
* end


end
1 c/2
2 c/2
end

loop c,10,40,10
  expr mqlength(serve2, Ds;c)
  expr mqlength(serve2, Ds,1;c)
  expr mqlength(serve2, Ds,2;c)
end 

end