Taller en clase

Funciones

Función para Consumo de lote económico

CLE <- function(D,C_o,C_h){
  Q <- sqrt((2*D*C_o)/C_h)
  return(Q)
}

Función para Costo anual por ordenar

CAO <- function(D,Q,C_o){
  A <- (D/Q)*C_o
  return(A)
}

Función para Costo anual por almacenaje

CAA <- function(Q,C_h){
  B <- (Q/2)*C_h
  return(B)
}

Función para Costo total anual

CT <- function(CAO,CAA){
  TOTAL <- CAO + CAA
  return(TOTAL)
}

Función para Número de órdenes por año

NOA <- function(D,Q){
  N <- D/Q
  return(N)
}

Ejercicio 1

# EJERCICIO 1
A <- CLE(1000,10,0.50)
cat("El Consumo de lote económico es:",A,"\n")

El Consumo de lote económico es: 200 

B <- CAO(1000,200,10)
cat("El Costo anual por ordenar es:",B,"\n")

El Costo anual por ordenar es: 50 

C <- CAA(200,0.50)
cat("El Costo anual por almacenar es:",C,"\n")

El Costo anual por almacenar es: 50 

D <- CT(50,50)
cat("El Costo total anual es:",D,"\n")

El Costo total anual es: 100 

E <- NOA(1000,200)
cat("El número de órdenes por año es:",E)

El número de órdenes por año es: 5