Actividad 3. Teoria de Filas

1. Contexto del problema

Una empresa tiene un call center con varios operadores que atienden llamadas de clientes. La gerencia quiere analizar si el número de operadores es suficiente para evitar largos tiempos de espera o si deben contratar más personal.

Datos del Problema:

• Tasa de llegada (ᵰ): 29 llamadas por hora.

• Tasa de servicio (ᵰ): Cada operador atiende en promedio 6 llamadas por hora.

• Número de servidores (ᵆ): 5 operadores disponibles.

• Capacidad máxima del sistema: Ilimitada (todos los clientes pueden esperar en la fila).

• Política de servicio: FIFO (primero en llegar, primero en ser atendido).

Responda las siguientes preguntas:

1.- ¿El sistema se encuentra muy ocupado?

2.- ¿Los clientes esperan demasiado en fila?

3.- ¿Cuál es el tiempo promedio de espera?

4.- ¿Qué puede concluir de este sistema?

library(queueing)
# Parámetros del problema
lambda <- 29   # tasa de llegada 
mu <- 6        # tasa de servicio por operador
c <- 5         # número de servidores
# Definir el modelo
modelo1 <- NewInput.MMC(lambda = lambda, mu = mu, c = c, n = 0, method = 0)

# Resolver el modelo
resultado <- QueueingModel(modelo1)
# Mostrar resultados
cat("Factor de utilización (rho):", resultado$RO, "\n")
## Factor de utilización (rho): 0.9666667
cat("Número promedio de clientes en la fila (Lq):", resultado$Lq, "\n")
## Número promedio de clientes en la fila (Lq): 26.61578
cat("Número promedio de clientes en el sistema (L):", resultado$L, "\n")
## Número promedio de clientes en el sistema (L): 31.44912
cat("Tiempo promedio en la fila (Wq):", resultado$Wq * 60, "minutos\n")
## Tiempo promedio en la fila (Wq): 55.06714 minutos
cat("Tiempo promedio en el sistema (W):", resultado$W * 60, "minutos\n")
## Tiempo promedio en el sistema (W): 65.06714 minutos

Interpretacion del Analisis:

El análisis muestra que el call center está casi al límite de su capacidad, con un factor de utilización de 0.97, lo que indica que los operadores están ocupados casi todo el tiempo.

Esto genera largas filas de espera, con un promedio de más de 26 clientes, y un tiempo promedio en la fila de aproximadamente 55 minutos, mientras que el tiempo total en el sistema es de alrededor de 65 minutos.

Los resultados sugieren que se necesitarían más operadores para reducir los tiempos de espera con la finalidad de mejorar la atención al cliente y obtener una mejora reputacion para asi ser mas atraccivo hacia empresas o instituciones que necesitan de este servicio.

Otro elemento que no se contempla pero puede estar relacionado con el tiempo, el Idioma. Estaria intersante saber si exite una relacion con el promedio de tiempo en la fila con el idioma que habla la persona puede que tenga un efecto en el incremento en el tiempo debido a la traducion y entendimiento del idioma.

LS0tCnRpdGxlOiAiQWN0aXZpZGFkIDMgTW9kdWxvIDIiCmF1dGhvcjogIlNlYmFzdGlhbiBFc3Bpbm96YSBBMDA4MzM3MDQiCmRhdGU6ICIyMDI1LTA4LTIwIgpvdXRwdXQ6IAogaHRtbF9kb2N1bWVudDogCiAgdG9jOiBUUlVFCiAgdG9jX2Zsb2F0OiBUUlVFCiAgY29kZV9kb3dubG9hZDogVFJVRQogIHRoZW1lOiB5ZXRpCi0tLQoKIyA8c3BhbiBzdHlsZT0nY29sb3I6Ymx1ZTsnPiAgQWN0aXZpZGFkIDMuIFRlb3JpYSBkZSBGaWxhcyAgPC9zcGFuPgoKIVtdKGh0dHBzOi8vaS5waW5pbWcuY29tL29yaWdpbmFscy9mOC80My81Yi9mODQzNWI5NTNiN2M0NGIzZmE3ZTdhYjEzMmUxM2U2ZC5naWYpCgoqKjEuIENvbnRleHRvIGRlbCBwcm9ibGVtYSoqCgpVbmEgZW1wcmVzYSB0aWVuZSB1biBjYWxsIGNlbnRlciBjb24gdmFyaW9zIG9wZXJhZG9yZXMgcXVlIGF0aWVuZGVuCmxsYW1hZGFzIGRlIGNsaWVudGVzLiBMYSBnZXJlbmNpYSBxdWllcmUgYW5hbGl6YXIgc2kgZWwgbsO6bWVybyBkZQpvcGVyYWRvcmVzIGVzIHN1ZmljaWVudGUgcGFyYSBldml0YXIgbGFyZ29zIHRpZW1wb3MgZGUgZXNwZXJhIG8gc2kKZGViZW4gY29udHJhdGFyIG3DoXMgcGVyc29uYWwuCgoqKkRhdG9zIGRlbCBQcm9ibGVtYToqKgoK4oCiIFRhc2EgZGUgbGxlZ2FkYSAo4bWwKTogMjkgbGxhbWFkYXMgcG9yIGhvcmEuCgrigKIgVGFzYSBkZSBzZXJ2aWNpbyAo4bWwKTogQ2FkYSBvcGVyYWRvciBhdGllbmRlIGVuIHByb21lZGlvIDYgbGxhbWFkYXMgcG9yIGhvcmEuCgrigKIgTsO6bWVybyBkZSBzZXJ2aWRvcmVzICjhtYYpOiA1IG9wZXJhZG9yZXMgZGlzcG9uaWJsZXMuCgrigKIgQ2FwYWNpZGFkIG3DoXhpbWEgZGVsIHNpc3RlbWE6IElsaW1pdGFkYSAodG9kb3MgbG9zIGNsaWVudGVzIHB1ZWRlbiBlc3BlcmFyIGVuIGxhCmZpbGEpLgoK4oCiIFBvbMOtdGljYSBkZSBzZXJ2aWNpbzogRklGTyAocHJpbWVybyBlbiBsbGVnYXIsIHByaW1lcm8gZW4gc2VyIGF0ZW5kaWRvKS4KCgoqKlJlc3BvbmRhIGxhcyBzaWd1aWVudGVzIHByZWd1bnRhczoqKgoKMS4tIMK/RWwgc2lzdGVtYSBzZSBlbmN1ZW50cmEgbXV5IG9jdXBhZG8/CgoyLi0gwr9Mb3MgY2xpZW50ZXMgZXNwZXJhbiBkZW1hc2lhZG8gZW4gZmlsYT8KCjMuLSDCv0N1w6FsIGVzIGVsIHRpZW1wbyBwcm9tZWRpbyBkZSBlc3BlcmE/Cgo0Li0gwr9RdcOpIHB1ZWRlIGNvbmNsdWlyIGRlIGVzdGUgc2lzdGVtYT8KCmBgYHtyfQpsaWJyYXJ5KHF1ZXVlaW5nKQojIFBhcsOhbWV0cm9zIGRlbCBwcm9ibGVtYQpsYW1iZGEgPC0gMjkgICAjIHRhc2EgZGUgbGxlZ2FkYSAKbXUgPC0gNiAgICAgICAgIyB0YXNhIGRlIHNlcnZpY2lvIHBvciBvcGVyYWRvcgpjIDwtIDUgICAgICAgICAjIG7Dum1lcm8gZGUgc2Vydmlkb3JlcwpgYGAKCmBgYHtyfQojIERlZmluaXIgZWwgbW9kZWxvCm1vZGVsbzEgPC0gTmV3SW5wdXQuTU1DKGxhbWJkYSA9IGxhbWJkYSwgbXUgPSBtdSwgYyA9IGMsIG4gPSAwLCBtZXRob2QgPSAwKQoKIyBSZXNvbHZlciBlbCBtb2RlbG8KcmVzdWx0YWRvIDwtIFF1ZXVlaW5nTW9kZWwobW9kZWxvMSkKYGBgCmBgYHtyfQojIE1vc3RyYXIgcmVzdWx0YWRvcwpjYXQoIkZhY3RvciBkZSB1dGlsaXphY2nDs24gKHJobyk6IiwgcmVzdWx0YWRvJFJPLCAiXG4iKQpjYXQoIk7Dum1lcm8gcHJvbWVkaW8gZGUgY2xpZW50ZXMgZW4gbGEgZmlsYSAoTHEpOiIsIHJlc3VsdGFkbyRMcSwgIlxuIikKY2F0KCJOw7ptZXJvIHByb21lZGlvIGRlIGNsaWVudGVzIGVuIGVsIHNpc3RlbWEgKEwpOiIsIHJlc3VsdGFkbyRMLCAiXG4iKQpjYXQoIlRpZW1wbyBwcm9tZWRpbyBlbiBsYSBmaWxhIChXcSk6IiwgcmVzdWx0YWRvJFdxICogNjAsICJtaW51dG9zXG4iKQpjYXQoIlRpZW1wbyBwcm9tZWRpbyBlbiBlbCBzaXN0ZW1hIChXKToiLCByZXN1bHRhZG8kVyAqIDYwLCAibWludXRvc1xuIikKYGBgCioqSW50ZXJwcmV0YWNpb24gZGVsIEFuYWxpc2lzOiAqKgoKRWwgYW7DoWxpc2lzIG11ZXN0cmEgcXVlIGVsIGNhbGwgY2VudGVyIGVzdMOhIGNhc2kgYWwgbMOtbWl0ZSBkZSBzdSBjYXBhY2lkYWQsIGNvbiB1biBmYWN0b3IgZGUgdXRpbGl6YWNpw7NuIGRlIDAuOTcsIGxvIHF1ZSBpbmRpY2EgcXVlIGxvcyBvcGVyYWRvcmVzIGVzdMOhbiBvY3VwYWRvcyBjYXNpIHRvZG8gZWwgdGllbXBvLiAKCkVzdG8gZ2VuZXJhIGxhcmdhcyBmaWxhcyBkZSBlc3BlcmEsIGNvbiB1biBwcm9tZWRpbyBkZSAqKm3DoXMgZGUgMjYgY2xpZW50ZXMqKiwgeSB1biB0aWVtcG8gcHJvbWVkaW8gZW4gbGEgKipmaWxhIGRlIGFwcm94aW1hZGFtZW50ZSA1NSBtaW51dG9zKiosIG1pZW50cmFzIHF1ZSBlbCB0aWVtcG8gdG90YWwgZW4gZWwgc2lzdGVtYSBlcyBkZSAqKmFscmVkZWRvciBkZSA2NSBtaW51dG9zKiouIAoKTG9zIHJlc3VsdGFkb3Mgc3VnaWVyZW4gcXVlIHNlIG5lY2VzaXRhcsOtYW4gbcOhcyBvcGVyYWRvcmVzIHBhcmEgcmVkdWNpciBsb3MgdGllbXBvcyBkZSBlc3BlcmEgY29uIGxhIGZpbmFsaWRhZCBkZSBtZWpvcmFyIGxhIGF0ZW5jacOzbiBhbCBjbGllbnRlIHkgb2J0ZW5lciB1bmEgbWVqb3JhIHJlcHV0YWNpb24gcGFyYSBhc2kgc2VyIG1hcyBhdHJhY2Npdm8gaGFjaWEgZW1wcmVzYXMgbyBpbnN0aXR1Y2lvbmVzIHF1ZSBuZWNlc2l0YW4gZGUgZXN0ZSBzZXJ2aWNpby4gCgpPdHJvIGVsZW1lbnRvIHF1ZSBubyBzZSBjb250ZW1wbGEgcGVybyBwdWVkZSBlc3RhciByZWxhY2lvbmFkbyBjb24gZWwgdGllbXBvLCBlbCBJZGlvbWEuIEVzdGFyaWEgaW50ZXJzYW50ZSBzYWJlciBzaSBleGl0ZSB1bmEgcmVsYWNpb24gY29uIGVsIHByb21lZGlvIGRlIHRpZW1wbyBlbiBsYSBmaWxhIGNvbiBlbCBpZGlvbWEgcXVlIGhhYmxhIGxhIHBlcnNvbmEgcHVlZGUgcXVlIHRlbmdhIHVuIGVmZWN0byBlbiBlbCBpbmNyZW1lbnRvIGVuIGVsIHRpZW1wbyBkZWJpZG8gYSBsYSB0cmFkdWNpb24geSBlbnRlbmRpbWllbnRvIGRlbCBpZGlvbWEuIAoKIVtdKGh0dHBzOi8vaS5yZWRkLml0L3F2ZGN5djl1Y3NoeC5naWYpCgoK