Lk.o_CJN: Returns the vector with the mean number of customers in each...

Description Usage Arguments Details References See Also Examples

View source: R/CJN.R

Description

Returns the vector with the mean number of customers in each node (server) of a Closed Jackson Network

Usage

1
2
  ## S3 method for class 'o_CJN'
Lk(x, ...)

Arguments

x

a object of class o_CJN

...

aditional arguments

Details

Returns the vector with the mean number of customers in each node (server) of a Closed Jackson Network

References

[Sixto2004] Sixto Rios Insua, Alfonso Mateos Caballero, M Concepcion Bielza Lozoya, Antonio Jimenez Martin (2004).
Investigacion Operativa. Modelos deterministicos y estocasticos.
Editorial Centro de Estudios Ramon Areces.

See Also

QueueingModel.i_CJN.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
## See example 11.13 in reference [Sixto2004] for more details.
## create the nodes
n <- 2
n1 <- NewInput.MM1(lambda=0, mu=1/0.2, n=0)
n2 <- NewInput.MM1(lambda=0, mu=1/0.4, n=0)

# think time = 0
z <- 0

# operational value
operational <- FALSE

# definition of the transition probabilities
prob <- matrix(data=c(0.5, 0.5, 0.5, 0.5), nrow=2, ncol=2, byrow=TRUE)

# Define a new input
cjn1 <- NewInput.CJN(prob, n, z, operational, 0, 0.001, n1, n2)

# Check the inputs and build the model
m_cjn1 <- QueueingModel(cjn1)

Lk(m_cjn1)

queueing documentation built on Dec. 9, 2019, 1:06 a.m.