Untitled

CONTROL DE INVENTARIOS

EJERCICIO

Supongamos que tenemos una tienda minorista y queremos calcular el EOQ la demanda anual tiene las siglas D y es de 1200 unidades por año, el costo de ordenar el inventario C 50 dolares por pedido, el costo de mantenimiento de inventario con la lertra H 3 dolares por unidad por año se pide calcular la EOQ para minimizar los costos totales del inventario

DATOS

D <- 1200 # DEmanda anuel
S <- 50  # costo de ordenar (por pedido)
H <- 3 # costo de mantenimineto de inventario(por unidad)

CALCULO EOQ

EOQ <- sqrt((2*D*S)/H)
EOQ

## [1] 200

COSTO TOTAL MINIMO

Costo_total <- (D/EOQ)*S+(EOQ/2)*H;Costo_total

## [1] 600

IMPRESION DE RESULTADOS

cat("L cantidad Economica de pedido (EOQ)es:", round(EOQ, 2), "Un")

## L cantidad Economica de pedido (EOQ)es: 200 Un

cat("El costo Total Minimo es:$",round(Costo_total, 2), "\n")

## El costo Total Minimo es:$ 600

FUNCION PARA CALCULAR EOQ Y COSTO TOTAL

calcular_EOQ_costo_total <- function() {
  demanda_anual <- as.numeric(readline("Ingrese la demanda anual: "))
  costo_orden <- as.numeric(readline("Ingrese el costo de realizar un pedido: "))
  costo_mantenimiento <- as.numeric(readline("Ingrese el costo de mantenimiento por unidad en inventario: "))
  
  EOQ <- sqrt((2 * demanda_anual * costo_orden) / costo_mantenimiento)
  costo_total <- sqrt(2 * demanda_anual * costo_orden * costo_mantenimiento)
  
  return(list(EOQ = EOQ, costo_total = costo_total))
}

# Llamada a la función para calcular el EOQ y el costo total
resultados <- calcular_EOQ_costo_total()

## Ingrese la demanda anual: 
## Ingrese el costo de realizar un pedido: 
## Ingrese el costo de mantenimiento por unidad en inventario:

print(paste("La Cantidad Económica de Pedido (EOQ) es:", resultados$EOQ))

## [1] "La Cantidad Económica de Pedido (EOQ) es: NA"

print(paste("El Costo Total es:", resultados$costo_total))

## [1] "El Costo Total es: NA"