Question

Repeat Problem 1, except for an M/M/3 queue with mean interarrival time 1.25 minutes and mean service time 3 minutes at each of the three servers. Hint: You might want to consider creating a computer program or spreadsheet, or use mmc.exe.

Answer 1

Explanation:

library('queueing')

i_mmmc <- NewInput.MMC(lambda=1/1.25, mu=1/3,c=3) #create input parameters

o_mmc <- QueueingModel(i_mmc) #Build the model

mmc_summ <- summary(o_mmc)

t(mmc_summ$el[c(1,2,3,10,7,11,8,12,9)])

## [,1]

## lambda 0.800000000

## mu 0.333333333

## c 3.000000000

## X 0.800000000

## P0 0.05617978

## L 4.98876404

## Lq 2.58876404

## W 6.23595506

## Wq 3.23595506

The command-line program from the Simio website(username and password in preface of book )provided a c++ executable file that calculates various M/M/c metrics.it is called using the command prompt,navigating to the directory of the mmc.exe file,and typing mmc followed by values of \lambda ,mu and c separated by space...

$ cd C:\Users\Ayush\Google Drive\Education\Masters\SPS\DATA 604\Simio_Student_Resources

$ mmc 0.8 0.33333333 3