rm(list=ls())
dev.off()
cat("\014")

# Ejemplo Red cerrada

library(queueing)
m<-c(0,1,1,0)
prob<-matrix(data=m, nrow=2, ncol=2, byrow=TRUE)
prob

n<-6                                   # número de clientes en el sistema
z<-0                                   # think time of the client ?
operational<-FALSE                     # los valores de la matriz prob son probabilidades

n1 <- NewInput.MM1(lambda=0, mu=10)    # subsistema 1
n2 <- NewInput.MM1(lambda=0, mu=15)    # subsistema 2

# Resolución del modelo
cjn1 <- NewInput.CJN(prob, n, z, operational, 0, 0.001, n1, n2)
model<-QueueingModel(cjn1)

print(summary(model), digits=4)
Report(model)