Reciban un cordial saludo.

En un modelo de inventarios con los parámetros

  # Parámetros
  # Precio de venta unitario del minorista
     p <- 10
  # Precio de venta unitario al por mayor del fabricante al minorista para
la
  # primera, segunda y tercer orden
      w <- 6
      wpr <- 7
      wseg <- 7.5
  # Valor de salvamento unitario para el minorista al final del periodo
       v <- 0.5
  # Costo unitario del pedido para el minorista
       k <- 1
       kpr <- 1.5
  # Costo unitario por escacez para el minorista
       r <- 5
  # Costos unitarios para el fabricante para la primera, segunda y tercera
orden
  # del minorista
      c. <- 2
      cpr <- 2.5
      cseg <- 4
  # Costo unitario del fabricante para la capacidad de reserva
      b <- 1
      bpr <- 0.75
debo graficar en el plano b, bpr la región determinada por el
siguiente conjunto de desigualdades (lineales)
d<-c()
d[1]<-bpr<wseg-cseg
d[2]<-b<p+r-cpr-k
d[3]<-bpr<p+r-cseg-kpr
d[4]<-bpr>b+wseg-cseg-wpr+cpr
d[5]<-b<c.-v
d[6]<-bpr>(wseg+kpr-v)*(wseg-cseg)/((p+r-v)*(wseg-cseg)-(p+r-wseg-kpr)*(wpr-cpr))*b-

(w-v)*(wpr-cpr-wseg+cseg)*(wseg-cseg)/((p+r-v)*(wseg-cseg)-(p+r-wseg-kpr)*(wpr-cpr))
d[7]<-bpr<(wseg-cseg)/(wpr-cpr)*b
d[8]<-bpr>(cseg+kpr-v)/(cpr+k-v)*b-(c.-v)*(cseg+kpr-cpr-k)/(cpr+k-v)
d[9]<-bpr<(p+r-cseg-kpr)/(p+r-cpr-k)*b

Les agradecería una mano con una guía (una bilblioteca de funciones? unas
funciones específicas?). Ya la hice 'a mano' con la función polygon, pero,
aunque llego a lo que busco, no es general ni elegante el proceso.

Gracias por su amable atención.

Saludos.

César Escalante C.

	[[alternative HTML version deleted]]

