Escuela Superior Politécnica de Chimborazo

### 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")

## El costo de inventario se debe reducir en: 200

cat("La cantidad por ordenar+ la cantidad por almacenar es:", resultados$CT, "\n")

## La cantidad por ordenar+ la cantidad por almacenar es: 100