Ejercicio de la compania 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.

DATOS

Los productos que habla en este ejercicio que trata es de bombas, para el cual se requiere reducir el costo de inventario y lo vamos a realizar en los pasos siguientes:

**Para ello se requiere calcular el número optimo de bombas Q*?**

Demanda <- 1000
Costo_ordenar <- 10
Costo_por_almacenar <- 0.50

Desarrollo

¿Calcular el número optimo de bombas?

Q <-sqrt((2*Demanda*Costo_ordenar)/Costo_por_almacenar)
Q
## [1] 200

El numero optimo de bombas que debe realizar la empresa Sumco Pump es de 200 unidades.

¿Calcular el costo total anual por inventario?

costo_total <- (Demanda/Q)*Costo_ordenar+(Q/2)*Costo_por_almacenar
costo_total
## [1] 100

El costo total anual por inventario de la empresa es de $100 doláres

¿Calcular del número de ordenes por año?

Num_ordenes_año <- Demanda/Q
Num_ordenes_año
## [1] 5

El Número de ordenes por año es de 5 ordenes que la compania Sumco Pump debe realizar.

¿Calcular de lo mismo de lo anterior pero utilizando una sola funcion

calcular_inventario <- function(Demanda, Costo_ordenar, Costo_por_almacenar) {
  
  # Calcular el número óptimo de bombas
  Q <- sqrt((2 * Demanda * Costo_ordenar) / Costo_por_almacenar)
  
  # Calcular el costo total anual por inventario
  costo_total <- (Demanda / Q) * Costo_ordenar + (Q / 2) * Costo_por_almacenar
  
  # Calcular el número de órdenes por año
  Num_ordenes_año <- Demanda / Q
  
  # Devolver los resultados
  resultado <- list(
    Q = Q,
    costo_total = costo_total,
    Num_ordenes_año = Num_ordenes_año
  )
  
  return(resultado)
}

# Usar la función con los datos proporcionados
resultados <- calcular_inventario(Demanda = 1000, Costo_ordenar = 10, Costo_por_almacenar = 0.50)
resultados
## $Q
## [1] 200
## 
## $costo_total
## [1] 100
## 
## $Num_ordenes_año
## [1] 5