ࡱ> Root Entry*0_^e @Contents Root Entry*0_^e@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\fs28 model\cf2 : \par \cf1 sets\cf2 : \par cidades / \cf1 @ole\cf2 ('pcv(R).xls','cidades')/: ; \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 dist = \cf1 @ole\cf2 ('pcv(R).xls','distancias'); \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 s\'f3 sai uma aresta;\cf2 \par \cf1 @for\cf2 (cidades(i): \cf1 @sum\cf2 (cidades(j) | j #ne# i: x(i,j)) = 1); \par \par \cf3 ! A cada cidade j s\'f3 chega uma aresta;\cf2 \par \cf1 @for\cf2 (cidades(j): \cf1 @sum\cf2 (cidades(i) | i #ne# j: x(i,j)) = 1); \par \par \cf3 ! O fluxo que chega a uma cidade i menos o que sai \'e9 igual a uma unidade;\cf2 \par \cf1 @for\cf2 (cidades(i) | i #ne# 1: \par \cf1 @sum\cf2 (cidades(j): f(j,i)) - \cf1 @sum\cf2 (cidades(j): f(i,j) ) = 1 ); \par \par \cf3 ! O fluxo m\'e1ximo em cada arco \'e9 n-1, onde n \'e9 o n\'famero de cidades;\cf2 \par \cf1 @for\cf2 (matriz(i,j): f(i,j) <= (\cf1 @size\cf2 (cidades)-1)*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 \par \cf1 data\cf2 : \par \cf1 @ole\cf2 ('pcv(R).xls','solu\'e7\'e3o','fo','fluxo') = x, fo, f; \par \cf1 enddata\cf2 \par \par \par \cf1 end\cf2 \par \par }