# Lab 4 - IOP 2013-2

Oct 26th, 2014
2,185
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. MODEL:
2.
3. SETS:
4.
5. !Sets primitivos;
6. MESES/1..4/:DISP_LINEA1,DISP_LINEA2;
7. PRODUCTOS/P Q R S/:TIEMPO_LINEA1,TIEMPO_LINEA2,LIBRAS,II;
8. AUX1/RPTA/:CMP;
9.
11. MATRIZ1(PRODUCTOS,MESES):X,XV,IF,PRECIO,DEMANDA_MAX;
12.
13. ENDSETS
14.
15. DATA:
16.
17. II,LIBRAS,COSTO_MP,PRECIO_INV,DISP_LINEA1,DISP_LINEA2,TIEMPO_LINEA1,TIEMPO_LINEA2,PRECIO,DEMANDA_MAX,MAX_MATERIA=
18. @OLE('C:\Users\HP\Desktop\datos.xlsx');
19.
20. @OLE('C:\Users\HP\Desktop\datos.xlsx') = X,XV,IF,CMP;
21.
22. ENDDATA
23.
24. !Función objetivo;
25. MAX = @SUM(MATRIZ1(I,J):PRECIO(I,J)*XV(I,J) -  PRECIO_INV*IF(I,J)) - COSTO_MP*CMP(1) ;
26.
27. !Restricciones;
28.
29. !Demanda maxima;
30. @FOR(MATRIZ1(I,J):XV(I,J)<=DEMANDA_MAX(I,J));
31.
33. @FOR(MESES(J):@SUM(PRODUCTOS(I):TIEMPO_LINEA1(J)*X(I,J))<=DISP_LINEA1);
34. @FOR(MESES(J):@SUM(PRODUCTOS(I):TIEMPO_LINEA2(J)*X(I,J))<=DISP_LINEA2);
35.
36. !Ecuaciones de inventario;
37. @FOR(MATRIZ1(I,J)|J#EQ#1:XV(I,J)+IF(I,J)=X(I,J));
38. @FOR(MATRIZ1(I,J)|J#GE#2:XV(I,J)+IF(I,J)=X(I,J)+IF(I,J-1));
39.
40.
41. !Consumo de materia prima;
42. @SUM(MATRIZ1(I,J): LIBRAS(I)*X(I,J)) = CMP(1);
43.