Advertisement
pmanriquez93

Lab 4 - IOP 2013-2

Oct 26th, 2014
1,234
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.  
  10. !Sets derivados;
  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.  
  32. !Disponibilidad mensual de tiempo de cada linea;
  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.  
  44. !Disponibiliad de materia prima;
  45. CMP(1) <= MAX_MATERIA;
Advertisement
RAW Paste Data Copied
Advertisement