Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- MODEL:
- SETS:
- !Sets primitivos;
- MESES/1..4/:DISP_LINEA1,DISP_LINEA2;
- PRODUCTOS/P Q R S/:TIEMPO_LINEA1,TIEMPO_LINEA2,LIBRAS,II;
- AUX1/RPTA/:CMP;
- !Sets derivados;
- MATRIZ1(PRODUCTOS,MESES):X,XV,IF,PRECIO,DEMANDA_MAX;
- ENDSETS
- DATA:
- II,LIBRAS,COSTO_MP,PRECIO_INV,DISP_LINEA1,DISP_LINEA2,TIEMPO_LINEA1,TIEMPO_LINEA2,PRECIO,DEMANDA_MAX,MAX_MATERIA=
- @OLE('C:\Users\HP\Desktop\datos.xlsx');
- @OLE('C:\Users\HP\Desktop\datos.xlsx') = X,XV,IF,CMP;
- ENDDATA
- !Función objetivo;
- MAX = @SUM(MATRIZ1(I,J):PRECIO(I,J)*XV(I,J) - PRECIO_INV*IF(I,J)) - COSTO_MP*CMP(1) ;
- !Restricciones;
- !Demanda maxima;
- @FOR(MATRIZ1(I,J):XV(I,J)<=DEMANDA_MAX(I,J));
- !Disponibilidad mensual de tiempo de cada linea;
- @FOR(MESES(J):@SUM(PRODUCTOS(I):TIEMPO_LINEA1(J)*X(I,J))<=DISP_LINEA1);
- @FOR(MESES(J):@SUM(PRODUCTOS(I):TIEMPO_LINEA2(J)*X(I,J))<=DISP_LINEA2);
- !Ecuaciones de inventario;
- @FOR(MATRIZ1(I,J)|J#EQ#1:XV(I,J)+IF(I,J)=X(I,J));
- @FOR(MATRIZ1(I,J)|J#GE#2:XV(I,J)+IF(I,J)=X(I,J)+IF(I,J-1));
- !Consumo de materia prima;
- @SUM(MATRIZ1(I,J): LIBRAS(I)*X(I,J)) = CMP(1);
- !Disponibiliad de materia prima;
- CMP(1) <= MAX_MATERIA;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement