TAREA INDIVIDUAL

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 dolares por orden y el costo anual promedio por almacenar por unidad es de 0.50. dolares Con estas cifras, si se cumplen los supuestos de la CLE, calculamos el número óptimo de unidades por orden:

# datos
D=1000
Co=10
Ch=0.50

inventario <- function(D,Co,Ch){
  Q <- sqrt((2*D*Co)/Ch)
  CT <- (D/Q*Co)+(Q/2*Ch)
  resultado <- list(
    EQQ=Q,
    CT=CT
  )
  return(resultado)
}

resultado <- inventario(D,Co,Ch)

cat("costo de inventario se debe reducir en :", resultado$EQQ)

costo de inventario se debe reducir en : 200

cat("la cantidad por ordenar es :", resultado$CT)

la cantidad por ordenar es : 100