╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   Root Entry        *0_Ъю╧╗Є└Ё^╨├;бой╞ АContents            ~                        ■   ¤                           ■            ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                   Root Entry        *0_Ъю╧╗Є└Ё^А Mлой╞АContents            U                                ■   ¤   ■                        ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                         !■                                                                                                                                                                                                                                                                                                                                                                                           ьЛ{\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\fs20 Title\cf2 : Exercicio 2 da Lista; \par \par \cf1 sets\cf2 : \par parametros/\cf1 @ole\cf2 ('Mistura(R).xls','parametros')/: tl, \cf3 ! valor minimo admissivel para o parametro;\cf2 \par tu; \cf3 ! valor maximo admissivel para o parametro;\cf2 \par \tab pilhas/\cf1 @ole\cf2 ('Mistura(R).xls','pilhas')/: c, \cf3 ! custo por tonelada de cada pilha;\cf2 \par x, \cf3 ! quantidade a ser retomada na pilha;\cf2 \par Qu;\cf3 ! quantidade disponivel na pilha;\cf2 \par \tab matriz(pilhas,parametros): t; \cf3 ! valor de cada parametro na pilha;\cf2 \par \cf1 endsets\cf2 \par \par \cf1 data\cf2 : \par \tab tl, tu, t, Qu, p, c = \par \tab\tab\cf1 @ole\cf2 ('Mistura(R).xls','tl','tu','t','Qu','p','custos'); \par \cf1 enddata\cf2 \par \par \cf3 ! Minimizar o custo total;\cf2 \par [fo] \cf1 min\cf2 = \cf1 @sum\cf2 (pilhas(i): c(i)*x(i)); \par \par \cf3 ! O limite superior de especificacao deve ser satisfeito para cada parametro j;\cf2 \par \cf1 @for\cf2 (parametros(j): [lim_sup] \cf1 @sum\cf2 (pilhas(i): (t(i,j) - tu(j))*x(i)) <= 0); \par \par \cf3 ! O limite inferior de especificacao deve ser satisfeito para cada parametro j;\cf2 \par \cf1 @for\cf  !■                                                                                                                                                                                                                                                                                                                                                                                           ьЛ{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0 Courier New;}} {\colortbl ;\red0\green0\blue255;\red0\green0\blue0;\red0\green175\blue0;\red255\green0\blue0;} \viewkind4\uc1\pard\cf1\f0\fs20 Title\cf2 : Exercicio 2 da Lista; \par \par \cf1 sets\cf2 : \par parametros/\cf1 @ole\cf2 ('Mistura(R).xls','parametros')/: tl, \cf3 ! valor minimo admissivel para o parametro;\cf2 \par tu; \cf3 ! valor maximo admissivel para o parametro;\cf2 \par \tab pilhas/\cf1 @ole\cf2 ('Mistura(R).xls','pilhas')/: c, \cf3 ! custo por tonelada de cada pilha;\cf2 \par x, \cf3 ! quantidade a ser retomada na pilha;\cf2 \par Qu;\cf3 ! quantidade disponivel na pilha;\cf2 \par \tab matriz(pilhas,parametros): t; \cf3 ! valor de cada parametro na pilha;\cf2 \par \cf1 endsets\cf2 \par \par \cf1 data\cf2 : \par \tab tl, tu, t, Qu, p, c = \par \tab\tab\cf1 @ole\cf2 ('Mistura(R).xls','tl','tu','t','Qu','p','custos'); \par \cf1 enddata\cf2 \par \par \cf3 ! Minimizar o custo total;\cf2 \par [fo] \cf1 min\cf2 = \cf1 @sum\cf2 (pilhas(i): c(i)*x(i)); \par \par \cf3 ! O limite superior de especificacao deve ser satisfeito para cada parametro j;\cf2 \par \cf1 @for\cf2 (parametros(j): [lim_sup] \cf1 @sum\cf2 (pilhas(i): (t(i,j) - tu(j))*x(i)) <= 0); \par \par \cf3 ! O limite inferior de especificacao deve ser satisfeito para cada parametro j;\cf2 (parametros(j): [lim_inf] \cf1 @sum\cf2 (pilhas(i): (t(i,j) - tl(j))*x(i)) >= 0); \par \par \cf3 ! A quantidade a ser retomada em cada pilha i deve ser inferior ou igual a Qu(i);\cf2 \par \cf1 @for\cf2 (pilhas(i): \cf1 @BND\cf2 (0, x(i), Qu(i))); \par \par \cf3 ! A producao total deve ser igual a p;\cf2 \par [producao] \cf1 @sum\cf2 (pilhas(i): x(i)) = p; \par \par \par \cf3 ! Exportar para a planilha Mistura.xls a quantidade a ser retomada em cada pilha;\cf2 \par \cf1 Data\cf2 : \par \t2 \par \cf1 @for\cf2 (parametros(j): [lim_inf] \cf1 @sum\cf2 (pilhas(i): (t(i,j) - tl(j))*x(i)) >= 0); \par \par \cf3 ! A quantidade a ser retomada em cada pilha i deve ser inferior ou igual a Qu(i);\cf2 \par \cf1 @for\cf2 (pilhas(i): \cf1 @BND\cf2 (0, x(i), Qu(i))); \par \par \cf3 ! A producao total deve ser igual a p;\cf2 \par [producao] \cf1 @sum\cf2 (pilhas(i): x(i)) = p; \par \par \par \cf3 ! Exportar para a planilha Mistura.xls a quantidade a ser retomada em cada pilha;\cf2 \par \cfab\cf1 @ole\cf2 ('Mistura(R).xls','x') = x; \par \cf1 enddata\cf2 \par \par } \par \cf1 enddata\cf2 \par \par } enddata\cf2 \par \par } 2 \par \par } 2 \par \cf1 @for\cf2 (pilhas(i): nunidret(i) = x(i) / unidret); \par \par \cf3 ! Se for retomada qualquer quantidade na pilha i entao y(i) = 1. Caso contrario, \par y(i) assume valor 0;\cf2 \par \cf1 @for\cf2 (pilhas(i) | Qu(i) #ne# 0: y(i) >= x(i)/Qu(i)); \par \par \cf3 ! Se for retomar alguma pilha i a quantidade x(i)