ÐÏࡱá>þÿ  þÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRoot Entryÿÿÿÿÿÿÿÿ*0_šîÏ»òÀð^°od=cÆ ÀContentsÿÿÿÿÿÿÿÿÿÿÿÿ²ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿ þÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRoot Entryÿÿÿÿÿÿÿÿ*0_šîÏ»òÀð^Ðg‡U=cÆÀContentsÿÿÿÿÿÿÿÿÿÿÿÿ²ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿýÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  !"þÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿì‹{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fmodern\fcharset0 Courier New;}} {\colortbl ;\red0\green0\blue255;\red0\green0\blue0;\red0\green175\blue0;} \viewkind4\uc1\pard\cf1\f0\fs20 model\cf2 : \par \cf1 sets\cf2 : \par cidades / \cf1 @ole\cf2 ('prv(R).xls','cidades')/: demanda; \par matriz(cidades, cidades): dist, \cf3 ! Matriz de dist\'e2ncias;\cf2 \par x, \cf3 ! x(i, j) = 1 se o arco (i,j) fizer parte da solu\'e7\'e3o;\cf2 \par f; \cf3 ! Fluxo de i para j;\cf2 \par \cf1 endsets\cf2 \par \par \cf1 data\cf2 : \par demanda, dist, capVeic = \cf1 @ole\cf2 ('prv(R).xls','demanda','distancias','capVeic'); \par \cf1 enddata\cf2 \par \par [fo] \cf1 min\cf2 = \cf1 @sum\cf2 (matriz(i,j): dist(i,j)*x(i,j)); \par \par \cf3 ! De cada cidade i, exceto o dep\'f3sito, s\'f3 sai um \'fanico ve\'edculo;\cf2 \par \cf1 @for\cf2 (cidades(i) | i #NE# 1: \cf1 @sum\cf2 (cidades(j): x(i,j)) = 1); \par \par \cf3 ! A cada cidade j, exceto o dep\'f3sito, s\'f3 chega um \'fanico ve\'edculo;\cf2 \par \cf1 @for\cf2 (cidades(j) | j #NE# 1: \cf1 @sum\cf2 (cidades(i): x(i,j)) = 1); \par \par \cf3 ! Ao passar por uma cidade j, exceto o dep\'f3sito, o ve\'edculo deve atender a demanda \par dessa cidade, isto \'e9, deve deixar demanda(j) unidades de produto na cidade j;\cf2 \par \cf1 @for\cf2 (cidades(j) | j #ne# 1: \par \cf1 @sum\cf2 (cidades(i): f(i,j)) - \cf1 @sum\cf2 (cidades(i): f(j,i) ) = demanda(j) ); \par \par \cf3 ! O fluxo m\'e1ximo em cada aresta n\'e3o pode superar a capacidade do ve\'edculo;\cf2 \par \cf1 @for\cf2 (matriz(i,j): f(i,j) <= (capVeic)*x(i,j)); \par \par \cf3 ! O n\'famero de ve\'edculos que saem do dep\'f3sito deve ser igual \par ao n\'famero de ve\'edculos que chegam ao dep\'f3sito;\cf2 \par \cf1 @sum\cf2 (cidades(j): x(1, j)) = \cf1 @sum\cf2 (cidades(j): x(j, 1)); \par \par \cf3 ! As vari\'e1veis x s\'e3o bin\'e1rias;\cf2 \par \cf1 @for\cf2 (matriz(i,j): \cf1 @bin\cf2 (x  !"þÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿì‹{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fmodern\fcharset0 Courier New;}} {\colortbl ;\red0\green0\blue255;\red0\green0\blue0;\red0\green175\blue0;} \viewkind4\uc1\pard\cf1\f0\fs20 model\cf2 : \par \cf1 sets\cf2 : \par cidades / \cf1 @ole\cf2 ('prv(R).xls','cidades')/: demanda; \par matriz(cidades, cidades): dist, \cf3 ! Matriz de dist\'e2ncias;\cf2 \par x, \cf3 ! x(i, j) = 1 se o arco (i,j) fizer parte da solu\'e7\'e3o;\cf2 \par f; \cf3 ! Fluxo de i para j;\cf2 \par \cf1 endsets\cf2 \par \par \cf1 data\cf2 : \par demanda, dist, capVeic = \cf1 @ole\cf2 ('prv(R).xls','demanda','distancias','capVeic'); \par \cf1 enddata\cf2 \par \par [fo] \cf1 min\cf2 = \cf1 @sum\cf2 (matriz(i,j): dist(i,j)*x(i,j)); \par \par \cf3 ! De cada cidade i, exceto o dep\'f3sito, s\'f3 sai um \'fanico ve\'edculo;\cf2 \par \cf1 @for\cf2 (cidades(i) | i #NE# 1: \cf1 @sum\cf2 (cidades(j): x(i,j)) = 1); \par \par \cf3 ! A cada cidade j, exceto o dep\'f3sito, s\'f3 chega um \'fanico ve\'edculo;\cf2 \par \cf1 @for\cf2 (cidades(j) | j #NE# 1: \cf1 @sum\cf2 (cidades(i): x(i,j)) = 1); \par \par \cf3 ! O n\'famero de ve\'edculos que saem do dep\'f3sito deve ser igual \par ao n\'famero de ve\'edculos que chegam ao dep\'f3sito;\cf2 \par \cf1 @sum\cf2 (cidades(j): x(1, j)) = \cf1 @sum\cf2 (cidades(j): x(j, 1)); \par \par \cf3 ! Ao passar por uma cidade j, exceto o dep\'f3sito, o ve\'edculo deve atender a demanda \par dessa cidade, isto \'e9, deve deixar demanda(j) unidades de produto na cidade j;\cf2 \par \cf1 @for\cf2 (cidades(j) | j #ne# 1: \par \cf1 @sum\cf2 (cidades(i): f(i,j)) - \cf1 @sum\cf2 (cidades(i): f(j,i) ) = demanda(j) ); \par \par \cf3 ! O fluxo m\'e1ximo em cada aresta n\'e3o pode superar a capacidade do ve\'edculo;\cf2 \par \cf1 @for\cf2 (matriz(i,j): f(i,j) <= (capVeic)*x(i,j)); \par \par \cf3 ! As vari\'e1veis x s\'e3o bin\'e1rias;\cf2 \par \cf1 @for\cf2 (matriz(i,j): \cf1 @bin\cf2 (x(i,j))); \par \par \cf1 data\cf2 : \par \cf1 @ole\cf2 ('prv(R).xls','solucao','dtotal') = x, fo; \par \cf1 enddata\cf2 \par \par \par \cf1 end\cf2 \par \par } ar } ard\cf1\f0\fs20 model\cf2 : \par \cf1 sets\cf2 : \par cidades / \cf1 @ole\cf2 ('prv(R).xls','cidades')/: demanda; \par matriz(cidades, cidades): dist, \cf3 ! Matriz de dist\'e2ncias;\cf2 \par x, \cf3 ! x(i, j) = 1 se o arco (i,j) fizer parte da solu\'e7\'e3o;\cf2 \par