lecionm

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 unidades de $0.50. Con estas cifras, si se cumplen los supuestos de la CLE, calculamos el número óptimo de unidades por orden.

datos:

demanda anual=1000

costo orden=0.10

cost espera=0.5

Empezamos creando una funcion para calcular el lote bombas # Calcular costo por ordenar

costo_por_ordenar <- function(demanda_anual, costo_orden, costo_espera){
  # Cantidad de orden económico
  cle <- sqrt((2 * demanda_anual * costo_orden) / costo_espera)
  return(cle)
  }

# valores del ejemplo
demanda_anual <- 1000
costo_orden <- 10
costo_espera <- 0.5

cantidad_optima <- costo_por_ordenar(demanda_anual, costo_orden, costo_espera)
paste("La cantidad óptima de las bombas a pedir es:", round(cantidad_optima, 2))

## [1] "La cantidad óptima de las bombas a pedir es: 200"

Costo total

 #costo total
costo_total <- function(demanda_anual, costo_orden, costo_espera,cantidad_optima){
  # Costo_total
  ct<-((demanda_anual/cantidad_optima)*costo_orden)+((cantidad_optima/2)*costo_espera)
  return(ct)
}


# valores del ejemplo

cantidad_optima<-200
costototal1<-costo_total(demanda_anual, costo_orden, costo_espera,cantidad_optima)
paste("El costo total de las bombas es:", round(costototal1, 2))

## [1] "El costo total de las bombas es: 100"