* central-server queuing system

pfqn csm(jobs)
* routing probabilities...
cpu disk1 p1
cpu disk2 p2
disk1 cpu 1
disk2 cpu 1
end
* servers
cpu FCFS 1000/20
disk1 FCFS 1000/30
disk2 FCFS 1000/42.918
end
* number of jobs
chain1 jobs
end


bind
p1 0.667
p2 0.233
end 

loop i,2,10,2
expr tput(csm, cpu;i)
expr util(csm, cpu;i)
expr qlength(csm, cpu;i)
expr rtime(csm, cpu;i)
end 

end
