ÐÏࡱá>þÿ þÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRoot Entryÿÿÿÿÿÿÿÿ*0_šîÏ»òÀð^ Ü6NäÎÄ € Contentsÿÿÿÿÿÿÿÿÿÿÿÿ} ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿþÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRoot Entryÿÿÿÿÿÿÿÿ*0_šîÏ»òÀð^ €¯ÏãÎÄ€ ContentsÿÿÿÿÿÿÿÿÿÿÿÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿýÿÿÿþÿÿÿþÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  !"#$%&'()*+,-þÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1)*X(i,j)); \par \par \plain\f3\fs20\cf1 !ENVIA PARA O ARQUIVO .XLS;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 DATA\plain\f3\fs20\cf0 : \par \tab \plain\f3\fs20\cf2 @OLE\plain\f3\fs20\cf0 ('pcvcp.xls','solucao','fo') = X,FO; \par \plain\f3\fs20\cf2 ENDDATA\plain\f3\fs20\cf0 \par \par \par \par \par } r \plain\f3\fs20\cf2 ENDDATA\plain\f3\fs20\cf0 \par \par \par \par \par } ì‹{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern Courier New;}} {\colortbl\red0\green0\blue0;\red0\green175\blue0;\red0\green0\blue255;} \deflang1046\pard\plain\f3\fs20\cf2 MODEL\plain\f3\fs20\cf0 : \par \plain\f3\fs20\cf2 TITLE\plain\f3\fs20\cf0 PCVCP; \par \plain\f3\fs20\cf2 SETS\plain\f3\fs20\cf0 : \par \tab \plain\f3\fs20\cf1 !CARREGA DO ARQUIVO .XLS (CELULA -> CIDADES) PARA O TIPO DE DADOS CIDADES;\plain\f3\fs20\cf0 \par \tab CIDADES/\plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcvcp.xls','cidade')/:P,Y,W; \par \tab MATRIZ(CIDADES,CIDADES): X,C,F; \par \plain\f3\fs20\cf2 ENDSETS\plain\f3\fs20\cf0 \par \par \plain\f3\fs20\cf2 DATA\plain\f3\fs20\cf0 : \par \tab C = \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcvcp.xls', 'custo'); \par \tab P = \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcvcp.xls', 'penalidade'); \par \tab W = \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcvcp.xls', 'premio'); \par \plain  !"#$%&'()*+,-þÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿj) <= (\plain\f3\fs20\cf2 @SIZE\plain\f3\fs20\cf0 (CIDADES)-1)*X(i,j)); \par \par \plain\f3\fs20\cf1 !ENVIA PARA O ARQUIVO .XLS;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 DATA\plain\f3\fs20\cf0 : \par \tab \plain\f3\fs20\cf2 @OLE\plain\f3\fs20\cf0 ('pcvcp.xls','solucao','fo') = X,FO; \par \plain\f3\fs20\cf2 ENDDATA\plain\f3\fs20\cf0 \par \par \par \par \par } r \plain\f3\fs20\cf2 ENDDATA\plain\f3\fs20\cf0 \par \par \par \par \par } ì‹{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern Courier New;}} {\colortbl\red0\green0\blue0;\red0\green175\blue0;\red0\green0\blue255;} \deflang1046\pard\plain\f3\fs20\cf2 MODEL\plain\f3\fs20\cf0 : \par \plain\f3\fs20\cf2 TITLE\plain\f3\fs20\cf0 PCVCP; \par \plain\f3\fs20\cf2 SETS\plain\f3\fs20\cf0 : \par \tab \plain\f3\fs20\cf1 !CARREGA DO ARQUIVO .XLS (CELULA -> CIDADES) PARA O TIPO DE DADOS CIDADES;\plain\f3\fs20\cf0 \par \tab CIDADES/\plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcvcp.xls','cidade')/:P,Y,W; \par \tab MATRIZ(CIDADES,CIDADES): X,C,F; \par \plain\f3\fs20\cf2 ENDSETS\plain\f3\fs20\cf0 \par \par \plain\f3\fs20\cf2 DATA\plain\f3\fs20\cf0 : \par \tab C = \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcvcp.xls', 'custo'); \par \tab P = \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcvcp.xls', 'penalidade'); \par \tab W = \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcvcp.xls', 'premio'); \par Wmin = \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcvcp.xls', 'Wmin'); \par \plain\f3\fs20\cf2 ENDDATA\plain\f3\fs20\cf0 \par \par [FO] \plain\f3\fs20\cf2 MIN\plain\f3\fs20\cf0 = \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (MATRIZ(i,j):C(i,j)*X(i,j)) + \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(i):P(i)*(1-Y(i))); \par \par \plain\f3\fs20\cf2 @FOR\plain\f3\fs20\cf0 (CIDADES(i): \par \tab \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(j): X(i,j)) = Y(i); \par ); \par \par \plain\f3\fs\f3\fs20\cf2 ENDDATA\plain\f3\fs20\cf0 \par \par [FO] \plain\f3\fs20\cf2 MIN\plain\f3\fs20\cf0 = \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (MATRIZ(i,j):C(i,j)*X(i,j)) + \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(i):P(i)*(1-Y(i))); \par \par \plain\f3\fs20\cf2 @FOR\plain\f3\fs20\cf0 (CIDADES(i): \par \tab \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(j): X(i,j)) = Y(i); \par ); \par \par \plain\f3\fs20\cf2 @FOR\plain\f3\fs20\cf0 (CIDADES(j): \par \tab \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(i): X(i,j)) = Y(j); \par ); \par \par Wmin = 70; \par \par \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(i): W(i)*Y(i)) >= Wmin; \par \par \plain\f3\fs20\cf2 @FOR\plain\f3\fs20\cf0 (MATRIZ(i,j):\plain\f3\fs20\cf2 @BIN\plain\f3\fs20\cf0 (X(i,j))); \par \par \plain\f3\fs20\cf2 @FOR\plain\f3\fs20\cf0 (CIDADES(i): \par \tab \plain\f3\fs20\cf2 @BIN\plain\f3\fs20\cf0 (Y(i)); \par ); \par \par \plain\f3\fs20\cf1 ! Restri\'e7\'f5es de elimina\'e7\'e3o de sub-rotas;\plain\20\cf2 @FOR\plain\f3\fs20\cf0 (CIDADES(j): \par \tab \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(i): X(i,j)) = Y(j); \par ); \par \par \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(i): W(i)*Y(i)) >= Wmin; \par \par \plain\f3\fs20\cf2 @FOR\plain\f3\fs20\cf0 (MATRIZ(i,j):\plain\f3\fs20\cf2 @BIN\plain\f3\fs20\cf0 (X(i,j))); \par \par \plain\f3\fs20\cf2 @FOR\plain\f3\fs20\cf0 (CIDADES(i): \par \tab \plain\f3\fs20\cf2 @BIN\plain\f3\fs20\cf0 (Y(i)); \par ); \par \par \plain\f3\fs20\cf1f3\fs20\cf0 \par \plain\f3\fs20\cf2 @FOR\plain\f3\fs20\cf0 (CIDADES(i) | i #NE# 1: \par \tab \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(j): F(i,j)) - \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(j): F(j,i)) = Y(i) \par ); \par \par \plain\f3\fs20\cf1 ! A quantidade de fluxo de I para J n\'e3o pode superar a capacidade \par do ve\'edculo;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @FOR\plain\f3\fs20\cf0 (MATRIZ(i,j): F(i,j) <= (\plain\f3\fs20\cf2 @SIZE\plain\f3\fs20\cf0 (CIDADES)- ! Restri\'e7\'f5es de elimina\'e7\'e3o de sub-rotas;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @FOR\plain\f3\fs20\cf0 (CIDADES(i) | i #NE# 1: \par \tab \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(j): F(i,j)) - \plain\f3\fs20\cf2 @SUM\plain\f3\fs20\cf0 (CIDADES(j): F(j,i)) = Y(i) \par ); \par \par \plain\f3\fs20\cf1 ! A quantidade de fluxo de I para J n\'e3o pode superar a capacidade \par do ve\'edculo;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @FOR\plain\f3\fs20\cf0 (MATRIZ(i,j): F(i,