ÐÏࡱá>þÿ þÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRoot Entryÿÿÿÿÿÿÿÿ*0_šîÏ»òÀð^µó´^ÍþÿÿÿContentsÿÿÿÿÿÿÿÿÿÿÿÿ éÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRoot Entryÿÿÿÿÿÿÿÿ*0_šîÏ»òÀð^Pÿ‡¸^ÍþÿÿÿContentsÿÿÿÿÿÿÿÿÿÿÿÿéÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿýÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿì‹{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0 Courier New;}} {\colortbl ;\red0\green0\blue255;\red0\green0\blue0;\red0\green175\blue0;} \viewkind4\uc1\pard\cf1\f0\fs36 sets\cf2 : \par Pilhas / \cf1 @ole\cf2 ('Mistura(R).xls','Pilhas') /: retomar, \par desconsiderar, \par pesopilha, \par dnpilha, \par z, \par y, \par x, \cf3 ! vari\'e1vel de decis\'e3o;\cf2 \par Qu; \cf3 ! Massa dispon\'edvel;\cf2 \par Parametros / \cf1 @ole\cf2 ('Mistura(R).xls','Parametros') /: wm, \par wpe, \par wne, \par dnm, \par dpm, \par dpe, \par dne, \par tu, \par tl, \par tr, \par extrapolar; \par Matriz(Pilhas, Parametros): t; \cf3 ! Teor;\cf2 \par \cf1 endsets\cf2 \par \par \cf1 data\cf2 : \par desconsiderar = \cf1 @ole\cf2 ('Mistura(R).xls','desconsiderar'); \par retomar = \cf1 @ole\cf2 ('Mistura(R).xls','retomar'); \par mult = \cf1 @ole\cf2 ('Mistura(R).xls','mult'); \par pesopilha = \cf1 @ole\cf2 ('Mistura(R).xls','pesopilha'); \par retmin = \cf1 @ole\cf2 ('Mistura(R).xls','retmin'); \par extrapolar = \cf1 @ole\cf2 ('Mistura(R).xls','extrapolar'); \par wm = \cf1 @ole\cf2 ('Mistura(R).xls','wm'); \par wpe = \cf1 @ole\cf2 ('Mistura(R).xls','wpe'); \par wne = \cf1 @ole\cf2 ('Mistura(R).xls','wne'); \par Qu = \cf1 @ole\cf2 ('Mistura(R).xls','Qu'); \par tr = \cf1 @ole\cf2 ('Mistura(R).xls','tr'); \par tu = \cf1 @ole\cf2 ('Mistura(R).xls','tu'); \par tl = \cf1 @ole\cf2 ('Mistura(R).xls','tl'); \par t = \cf1 @ole\cf2 ('Mistura(R).xls','t'); \par p = \cf1 @ole\cf2 ('Mistura(R).xls','p'); \par \cf1 enddata\cf2 \par \par [fo] \cf1 min\cf2 = \cf1 @sum\cf2 (Parametros(j): wne(j)*dne(j) + wpe(j)*dpe(j) + \par wm(j)*dnm(j) + wm(j)*dpm(j)) + \par \cf1 @sum\cf2 (Pilhas(i): pesopilha(i)*dnpilha(i)) + \par 1000000*(dnp + dpp) ; \par \par \cf3 ![fo] min = @sum(Parametros(j): dpe(j));\cf2 \par \par \cf3 ! As pilhas em que desconsiderar = 1 n\'e3o podem ser retomadas;\cf2 \par \cf1 @for\cf2 (Pilhas(i) | desconsiderar(i) #EQ# 1: \par x(i) = 0); \par \par \cf3 ! As pilhas em que retomar = 1 devem obrigatoriamente ser retomadas;\cf2 \par \cf1 @for\cf2 (Pilhas(i) | retomar(i) #EQ# 1: \par x(i) = Qu(i)); \par \par \cf3 ! A quantidade a ser retomada deve ser m\'faltiplo de mult;\cf2 \par \cf1 @for\cf2 (Pilhas(i) | retomar(i) #NE# 1: \par z(i) = x(i) / mult); \par \par \cf1 @for\cf2 (Pilhas(i): \par \cf1 @gin\cf2 (z(i))); \par \par \cf3 ! \'c9 poss\'edvel n\'e3o retomar a massa total, mas a quantidade \par restante de cada pilha deve ser a menor poss\'edvel;\cf2 \par \cf1 @for\cf2 (Pilhas(i) : \par x(i) + dnpilha(i) = Qu(i)*y(i)); \par \par \cf3 ! Uma pilha i \'e9 usada somente se y_i = 1;\cf2 \par \cf1 @for\cf2 (Pilhas(i): \par y(i) >= x(i) / Qu(i)); \par \par \cf3 ! A quantidade a ser retomada deve ser maior ou igual a retmin ;\cf2 \par \cf1 @for\cf2 (Pilhas(i): \par x(i) >= retmin * y(i)); \par \par \cf1 @for\cf2 (Pilhas(i): \par \cf1 @bin\cf2 (y(i))); \par \par \cf3 ! A produ\'e7\'e3o deve ser alcan\'e7ada sempre que poss\'edvel;\cf2 \par \cf1 @sum\cf2 (Pilhas(i): x(i)) - dpp + dnp = p; \par \par \cf3 ! A quantidade a ser retomada deve ser menor ou igual \'e0 massa \par dispon\'edvel;\cf2 \par \cf1 @for\cf2 (Pilhas(i): \par x(i) <= Qu(i)); \par \par \cf3 ! O limite superior de especifica\'e7\'e3o deve ser satisfeito;\cf2 \par \cf1\fs32 @for\cf2 (Parametros(j): \par \cf1 @sum\cf2 (Pilhas(i): ( t(i,j) - tu(j) )*x(i)) - dpe(j)*extrapolar(j) <= 0); \par \par \cf3\fs36 ! O limite inferior de especifica\'e7\'e3o deve ser satisfeito;\cf2 \par \cf1 @for\cf2 (Parametros(j): \par \cf1 @sum\cf2 (Pilhas(i): ( t(ì‹{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0 Courier New;}} {\colortbl ;\red0\green0\blue255;\red0\green0\blue0;\red0\green175\blue0;} \viewkind4\uc1\pard\cf1\f0\fs36 sets\cf2 : \par Pilhas / \cf1 @ole\cf2 ('Mistura(R).xls','Pilhas') /: retomar, \par desconsiderar, \par pesopilha, \par dnpilha, \par z, \par y, \par x, \cf3 ! vari\'e1vel de decis\'e3o;\cf2 \par Qu; \cf3 ! Massa dispon\'edvel;\cf2 \par Parametros / \cf1 @ole\cf2 ('Mistura(R).xls','Parametros') /: wm, \par wpe, \par wne, \par dnm, \par dpm, \par dpe, \par dne, \par tu, \par tl, \par tr, \par extrapolar; \par Matriz(Pilhas, Parametros): t; \cf3 ! Teor;\cf2 \par \cf1 endsets\cf2 \par \par \cf1 data\cf2 : \par desconsiderar = \cf1 @ole\cf2 ('Mistura(R).xls','desconsiderar'); \par retomar = \cf1 @ole\cf2 ('Mistura(R).xls','retomar'); \par mult = \cf1 @ole\cf2 ('Mistura(R).xls','mult'); \par pesopilha = \cf1 @ole\cf2 ('Mistura(R).xls','pesopilha'); \par retmin = \cf1 @ole\cf2 ('Mistura(R).xls','retmin'); \par extrapolar = \cf1 @ole\cf2 ('Mistura(R).xls','extrapolar'); \par wm = \cf1 @ole\cf2 ('Mistura(R).xls','wm'); \par wpe = \cf1 @ole\cf2 ('Mistura(R).xls','wpe'); \par wne = \cf1 @ole\cf2 ('Mistura(R).xls','wne'); \par Qu = \cf1 @ole\cf2 ('Mistura(R).xls','Qu'); \par tr = \cf1 @ole\cf2 ('Mistura(R).xls','tr'); \par tu = \cf1 @ole\cf2 ('Mistura(R).xls','tu'); \par tl = \cf1 @ole\cf2 ('Mistura(R).xls','tl'); \par t = \cf1 @ole\cf2 ('Mistura(R).xls','t'); \par p = \cf1 @ole\cf2 ('Mistura(R).xls','p'); \par \cf1 enddata\cf2 \par \par [fo] \cf1 min\cf2 = \cf1 @sum\cf2 (Parametros(j): wne(j)*dne(j) + wpe(j)*dpe(j) + \par wm(j)*dnm(j) + wm(j)*dpm(j)) + \par \cf1 @sum\cf2 (Pilhas(i): pesopilha(i)*dnpilha(i)) + \par 1000000*(dnp + dpp) ; \par \par \cf3 ![fo] min = @sum(Parametros(j): dpe(j));\cf2 \par \par \cf3 ! As pilhas em que desconsiderar = 1 n\'e3o podem ser retomadas;\cf2 \par \cf1 @for\cf2 (Pilhas(i) | desconsiderar(i) #EQ# 1: \par x(i) = 0); \par \par \cf3 ! As pilhas em que retomar = 1 devem obrigatoriamente ser retomadas;\cf2 \par \cf1 @for\cf2 (Pilhas(i) | retomar(i) #EQ# 1: \par x(i) = Qu(i)); \par \par \cf3 ! A quantidade a ser retomada deve ser m\'faltiplo de mult;\cf2 \par \cf1 @for\cf2 (Pilhas(i) | retomar(i) #NE# 1: \par z(i) = x(i) / mult); \par \par \cf1 @for\cf2 (Pilhas(i): \par \cf1 @gin\cf2 (z(i))); \par \par \cf3 ! \'c9 poss\'edvel n\'e3o retomar a massa total, mas a quantidade \par restante de cada pilha deve ser a menor poss\'edvel;\cf2 \par \cf1 @for\cf2 (Pilhas(i) : \par x(i) + dnpilha(i) = Qu(i)*y(i)); \par \par \cf3 ! Uma pilha i \'e9 usada somente se y_i = 1;\cf2 \par \cf1 @for\cf2 (Pilhas(i): \par y(i) >= x(i) / Qu(i)); \par \par \cf3 ! A quantidade a ser retomada deve ser maior ou igual a retmin ;\cf2 \par \cf1 @for\cf2 (Pilhas(i): \par x(i) >= retmin * y(i)); \par \par \cf1 @for\cf2 (Pilhas(i): \par \cf1 @bin\cf2 (y(i))); \par \par \cf3 ! A produ\'e7\'e3o deve ser alcan\'e7ada sempre que poss\'edvel;\cf2 \par \cf1 @sum\cf2 (Pilhas(i): x(i)) - dpp + dnp = p; \par \par \cf3 ! A quantidade a ser retomada deve ser menor ou igual \'e0 massa \par dispon\'edvel;\cf2 \par \cf1 @for\cf2 (Pilhas(i): \par x(i) <= Qu(i)); \par \par \cf3 ! O limite superior de especifica\'e7\'e3o deve ser satisfeito;\cf2 \par \cf1\fs32 @for\cf2 (Parametros(j): \par \cf1 @sum\cf2 (Pilhas(i): ( t(i,j) - tu(j) )*x(i)) - dpe(j)*extrapolar(j) <= 0); \par \par \cf3\fs36 ! O limite inferior de especifica\'e7\'e3o deve ser satisfeito;\cf2 \par \cf1 @for\cf2 (Parametros(j): \par \cf1 @sum\cf2 (Pilhas(i): ( t(i,j) - tl(j) ) * x(i)) + dne(j) >= 0); \par \par \cf3 ! A meta de qualidade deve ser satisfeita sempre que poss\'edvel ;\cf2 \par \cf1 @for\cf2 (Parametros(j): \par \cf1 @sum\cf2 (Pilhas(i): ( t(i,j) - tr(j) ) * x(i)) - dpm(j) + dnm(j) = 0); \par \par \cf3 ! Exportar a solu\'e7\'e3o para o arquivo Mistura(R).xls;\cf2 \par \cf1 data\cf2 : \par \cf1 @ole\cf2 ('Mistura(R).xls','x','dpe','dne','dpm','dnm') = x, dpe, dne, dpm, dnm; \par \cf1 enddata\cf2 \par \par } 32 \par } i,j) - tl(j) ) * x(i)) + dne(j) >= 0); \par \par \cf3 ! A meta de qualidade deve ser satisfeita sempre que poss\'edvel ;\cf2 \par \cf1 @for\cf2 (Parametros(j): \par \cf1 @sum\cf2 (Pilhas(i): ( t(i,j) - tr(j) ) * x(i)) - dpm(j) + dnm(j) = 0); \par \par \cf3 ! Exportar a solu\'e7\'e3o para o arquivo Mistura(R).xls;\cf2 \par \cf1 data\cf2 : \par \cf1 @ole\cf2 ('Mistura(R).xls','x','dpe','dne','dpm','dnm') = x, dpe, dne, dpm, dnm; \par \cf1 enddata\cf2 \par \par } r tl, \par tr, \par dpe, \par dne, \par dnm, \par dpm, \par wne, \par wpe, \par wnm, \par wpm; \par Matriz(Pilhas, Parametros): t; \par \cf1 endsets\cf2 \par \par \cf1 data\cf2 : \par extrapolar = \cf1 @ole\cf2 ('Mistura(R).xls','extrapolar'); \par retmin = \cf1 @ole\cf2 ('Mistura(R).xls','retmin'); \par retomar = \cf1 @ole\cf2 ('Mistura(R).xls','retomar'); \par desconsiderar = \cf1 @ole\cf2 ('Mistura(R).xls','desconsiderar'); \par Qu = \cf1 @ole\cf2 ('Mistura(R).xls','Qu'); \par tu = \cf1 @ole\cf2 ('Mistura(R).xls','tu'); \par tl = \cf1 @ole\cf2 ('Mistura(R).xls','tl'); \par tr = \cf1 @ole\cf2 ('Mistura(R).xls','tr'); \par wnm = \cf1 @ole\cf2 ('Mistura(R).xls','wnm'); \par wpm = \cf1 @ole\cf2 ('Mistura(R).xls','wnm'); \par wne = \cf1 @ole\cf2 ('Mistura(R).xls','wne'); \par wpe = \cf1 @ole\cf2 ('Mistura(R).xls','wpe'); \par p = \cf1 @ole\cf2 ('Mistura(R).xls','p'); \par t = \cf1 @ole\cf2 ('Mistura(R).xls','t'); \par mult = \cf1 @ole\cf2 ('Mistura(R).xls','mult'); \par \cf1 enddata\cf2 \par \par [fo] \cf1 min\cf2 = \cf1 @sum\cf2 (Parametros(j): \par wne(j)*dne(j) + wpe(j)*dpe(j) + \par wnm(j)*dnm(j) + wpm(j)*dpm(j) ) \par + \par \cf1 @sum\cf2 (Pilhas(i): 1000000*dnpilha(i)); \par \par \par \cf1 @sum\cf2 (Pilhas(i): x(i)) = p; \par \par \par \par \cf1 @for\cf2 (Pilhas(i): \par x(i) <= Qu(i)); \par \par \cf1 @for\cf2 (Parametros(j): \par \cf1 @sum\cf2 (Pilhas(i): ( t(i,j) - tu(j) ) * x(i)) - \par dpe(j) * extrapolar(j) <= 0); \par \par \cf1 @for\cf2 (Parametros(j): \par \cf1 @sum\cf2 (Pilhas(i): ( t(i,j) - tl(j) )*x(i)) + \par dne(j)*extrapolar(j) >= 0); \par \par \cf1 @for\cf2 (Parametros(j): \par \cf1 @sum\cf2 (Pilhas(i): ( t(i,j) - tr(j) )*x(i)) \par - dpm(j) + dnm(j) = 0); \par \par \cf1 @for\cf2 (Pilhas(i) | Qu(i) #ne# 0: \par y(i) >= x(i) / Qu(i)); \par \par \cf1 @for\cf2 (Pilhas(i): \par x(i) >= retmin * y(i)); \par \par \cf1 @for\cf2 (Pilhas(i): \par x(i) + dnpilha(i) = Qu(i)*y(i)); \par \par \cf1 @for\cf2 (Pilhas(i): \par \cf1 @bin\cf2 (y(i))); \par \par \cf1 @for\cf2 (Pilhas(i): \par \cf1 @gin\cf2 (z(i))); \par \par \cf1 @for\cf2 (Pilhas(i): \par z(i) = x(i) / mult); \par \par \cf1 @for\cf2 (Pilhas(i) | retomar(i) #eq# 1: \par x(i) = Qu(i) - dnpilha(i) ); \par \par \cf1 @for\cf2 (Pilhas(i) | desconsiderar(i) #eq# 1: \par x(i) = 0); \par \par \cf1 data\cf2 : \par \cf1 @ole\cf2 ('Mistura(R).xls','x') = x; \par \cf1 @ole\cf2 ('Mistura(R).xls','dne') = dne; \par \cf1 @ole\cf2 ('Mistura(R).xls','dpe') = dpe; \par \cf1 @ole\cf2 ('Mistura(R).xls','fo') = fo; \par \cf1 @ole\cf2 ('Mistura(R).xls','dnm') = dnm; \par \cf1 @ole\cf2 ('Mistura(R).xls','dpm') = dpm; \par \cf1 enddata\cf2 \par \fs32 \par } cf2 \par \fs32 \par }