Modelo de optimizacion para una empresa manufacturera de computadores

/*Pontificia Universidad Javeriana*/

/*Caso 1: Optimizacion*/

/*Conjuntos*/

set I; /*Conjunto de Computadores*/

set J; /*Puntos de Venta*/

set K; /*Plantas de Produccion*/

set B; /*Bodegas de almacenamiento*/

set P; /*Proveedores de componentes*/

set S; /*Conjunto de Componentes*/

set M; /*Conjunto de semanas sobre las cuales se elaborara la planeacion*/

/*Parametros*/

param C{I,S}; /*Cantidad de componente s requerido para la fabricacion del computador i*/

param T{I,K}; /*Costo de fabricar el computador i en la fabrica k*/

param CP{I,K}; /*Capacidad de fabricacion del computador i en la fabrica k*/

param A{I,K}; /*Matriz que determina si el computador i se fabrica en la fabrica k*/

param N{P,S}; /*Cantidad de componente S ofrecida por el proveedor P*/

param Q{P,S}; /*Costo de adquisicion del componente S en el proveedor P*/

param Mat{B,J}; /*Matriz que expresa si es posible enviar de la bodega b al punto de venta j*/

param PF{K,J}; /*Precio de enviar un m3 de producto desde la planta k al punto de venta j*/

param PB{B,J}; /*Precio de enviar un m3 desde la bodega b al punto de venta j*/

param PC{K,B}; /*Precio de enviar un m3 desde la planta k a la bodega b*/

param CA{B}; /*Costo de almacenar un m3 en la bodega b*/

param MA{B}; /*Capacidad de almacenamiento de la bodega b*/

param PV{I}; /*Precio de venta del computador i*/

param VM{I}; /*Volumen en m3 del computador tipo i*/

param D{I,M,J}; /*Demanda del computador i en la semana m en el punto de venta j*/

param MM; /*Numero muy grande*/

/*Lectura de conjuntos*/

table lect IN "CSV" "Data\Conjuntos\Computadores.csv": I <- [Computadores];

table lect IN "CSV" "Data\Conjuntos\Puntos_Venta.csv": J <- [PuntosVenta];

table lect IN "CSV" "Data\Conjuntos\Plantas_Produccion.csv": K <- [Plantas];

table lect IN "CSV" "Data\Conjuntos\Bodegas.csv": B <- [Bodegas];

table lect IN "CSV" "Data\Conjuntos\Proveedores.csv": P <- [Proveedores];

table lect IN "CSV" "Data\Conjuntos\Componentes.csv": S <- [Componentes];

table lect IN "CSV" "Data\Conjuntos\Semanas.csv": M <- [Semanas];

/*Lectura de Parametros*/

table info IN "CSV" "Data\Requerimientos_Componentes.csv": [Computador,Componente], C~Cantidad;

table info IN "CSV" "Data\Costo_Fabricacion.csv": [Computador,Planta], T~Costo;

table info IN "CSV" "Data\Capacidad_Fabricacion.csv": [Computador,Planta], CP~Unidades;

table info IN "CSV" "Data\Disponibilidad_Fabricacion.csv": [Computador,Planta], A~Fabricacion;

table info IN "CSV" "Data\Oferta_Componentes.csv": [Proveedor,Componente], N~Cantidad;

table info IN "CSV" "Data\Precio_Componentes.csv": [Proveedor,Componente], Q~Costo;

table info IN "CSV" "Data\Bodega_PuntoVenta.csv": [Bodega,Punto], Mat~Envia;

table info IN "CSV" "Data\EnvioPlanta_PuntoVenta.csv": [Planta,PuntoVenta], PF~Costo;

table info IN "CSV" "Data\EnvioBodega_PuntoVenta.csv": [Bodega,PuntoVenta], PB~Costo;

table info IN "CSV" "Data\EnvioPlanta_Bodega.csv": [Planta,Bodega], PC~Costo;

table info IN "CSV" "Data\Costo_Capacidad_Almacenamiento.csv":[Bodega],

...