demo/orloca.R

In orloca.es: Spanish version of orloca package. Modelos de localizacion en investigacion operativa

# Ajuste de parametros graficos
opar <- par(ask = dev.interactive(orNone = TRUE))

# Creacion de un objeto loca.p
o <- new("loca.p", x = c(-1, 1, 0), y = c(0, 0, 1))

# Imprimiendo un resumen del objeto
print(o)

# Grafica de los puntos de demanda
plot(o)

# Evaluacion de la funcion en el punto (0, 0.5)
distsum(o, x=0, y=0.5)

# Grafica de las curvas de nivel de la funcion objetivo
contour(o)

# Grafica 3D de la funcion objetivo
persp(o)

# Grafica 3D
persp(o, col=cm.colors(10000), border=FALSE, shade=TRUE, theta=50, phi=5, ltheta=135)

# Otra grafica 3D
persp(o, col=cm.colors(10000), border=FALSE, shade=TRUE, theta=50, phi=5, ltheta=135, lphi=90)

# Grafica con una imagen de fondo
file = system.file('img', 'spain_provinces.png', package='orloca')
img = readPNG(file)
plot(loca.p(x=.55, y=.62), img=img,  xlim=c(0,1), ylim=c(0,1), xleft=0, ybottom=0, xright=1, ytop=1)
contour(loca.p(x=.55, y=.62), img=img,  xmin=0, ymin=0, xmax=1, ymax=1, xleft=0, ybottom=0, xright=1, ytop=1)

# Busqueda del minimo
distsummin(o)

# Nuevo objeto aleatorio loca.p con 10 puntos de demanda
p <- rloca.p(10)

# Busqueda del minimo 
sol <- distsummin(p)

# El minimo
sol

# Evaluacion de la funcion en el minimo
distsum(p, sol[1], sol[2])

# Calculo del tiempo de ejecucion
system.time(distsummin(p))

# Restauracion de los parametros graficos
par(opar)