EJERCICIO:

Ejemplo de la compañía Sumco Pump Sumco, una compañía que vende bombas a otras compañías, quiere reducir su costo de inventario determinando el número óptimo de bombas que debe obtener por orden. La demanda anual es de 1,000 unidades, el costo por ordenar es de $ 10 por orden y el costo anual promedio por almacenar por unidad es de $ 0.50. Con estas cifras, si se cumplen los supuestos de la CLE, calculamos el número óptimo de unidades por orden:

### Funcion  para reducir costos de inventario 
# numero optimo de bombas
#Datos
D=1000
Co=10
Ch=0.50


funcion <- function(D, Co, Ch) {

  Q <- sqrt((2 * D * Co) / Ch)
  
  CT <- (D / Q * Co) + (Q / 2 * Ch)
  

  resultado <- list(
    EOQ = Q,
    CT = CT
  )
  
  return(resultado)
}

resultados <- funcion(D, Co, Ch)


cat("El costo de inventario se debe reducir en:", resultados$EOQ, "\n","unidades")
## El costo de inventario se debe reducir en: 200 
##  unidades
cat("La cantidad por ordenar+ la cantidad por almacenar es:", resultados$CT, "\n","dolares")
## La cantidad por ordenar+ la cantidad por almacenar es: 100 
##  dolares

EOQ (200 unidades): Es la cantidad óptima a pedir cada vez, minimizando los costos totales.

CT (100 unidades monetarias): Es el costo anual total que incluye tanto el costo de realizar pedidos como el costo de mantener el inventario. El desglose de los costos muestra que tanto el costo de ordenar como el costo de mantener inventario contribuyen por igual a los costos totales en este caso.