ࡱ>  Root Entry*0_^mR Contents  Root Entry*0_^Contentsq   !20\cf2 enddata\plain\f3\fs20\cf0 \par \par \par \plain\f3\fs20\cf2 END\plain\f3\fs20\cf0 \par \par } \par \par \plain\f2\fs20\cf3 END\plain\f2\fs20\cf0 \par \par } \par } f2 @for\plain\f4\fs20\cf0 ( matriz: \plain\f4\fs20\cf2 @bin\plain\f4\fs20\cf0 ( x)); \par \plain\f4\fs20\cf2 @for\plain\f4\fs20\cf0 ( matriz(i,j): y(i,j) <= (N-1)*x(i,j)); \par \par \pl{\rtf1\ansi\ansicpg1252\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 sets\plain\f3\fs20\cf0 : \par cidades / \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcv.xls','cidades')/: ; \par matriz(cidades, cidades): \par D, \plain\f3\fs20\cf1 ! Matriz de dist\'e2ncias;\plain\f3\fs20\cf0 \par x, \plain\f3\fs20\cf1 ! x(i, j) = 1 se o arco (i,j) fizer parte da solu\'e7\'e3o;\plain\f3\fs20\cf0 \par f; \par \plain\f3\fs20\cf2 endsets\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 data\plain\f3\fs20\cf0 : \par D = \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcv.xls','distancias'); \par \plain\f3\fs20\cf2 enddata\plain\f3\fs20\cf0 \par \par n = \plain\f3\fs20\cf2 @size\plain\f3\fs20\cf0 (cidades); \par [fo] \plain\f3\fs20\cf2 min\plain\f3\fs20\cf0 = \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (matriz(i,j): d(i,j)*x(i,j)); \par \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (cidades(j): \par \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i) | i #ne# j: x(i, j)) = 1; \par \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i) | i #ne# j: x(j, i)) = 1; \par ); \par \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (cidades(j) | j #ne# 1: \par \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i) | i #ne# j: f(i,j)) - \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i) | i #ne# j: f(j,i) ) = 1 ); \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 (matriz(i,j): f(i,j) <= (n-1)*x(i,j)); \par \par \plain\f3\fs20\cf2 data\plain\f3\fs20\cf0 : \par \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcv.xls','solu\'e7\'e3o','fo','fluxo') = x, fo, f; \par \plain\f3\fs  !" f; \par \plain\f3\fs20\cf2 enddata\plain\f3\fs20\cf0 \par \par \par \plain\f3\fs20\cf2 END\plain\f3\fs20\cf0 \par \par } \par } \par } f2 @for\plain\f4\fs20\cf0 ( matriz: \plain\f4\fs20\cf2 @bin\plain\f4\fs20\cf0 ( x)); \par \plain\f4\fs20\cf2 @for\plain\f4\fs20\cf0 ( matriz(i,j): y(i,j) <= (N-1)*x(i,j)); \par \par \pl{\rtf1\ansi\ansicpg1252\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 sets\plain\f3\fs20\cf0 : \par cidades / \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcv.xls','cidades')/: ; \par matriz(cidades, cidades): \par D, \plain\f3\fs20\cf1 ! Matriz de dist\'e2ncias;\plain\f3\fs20\cf0 \par x, \plain\f3\fs20\cf1 ! x(i, j) = 1 se o arco (i,j) fizer parte da solu\'e7\'e3o;\plain\f3\fs20\cf0 \par f; \par \plain\f3\fs20\cf2 endsets\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 data\plain\f3\fs20\cf0 : \par D = \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcv.xls','distancias'); \par \plain\f3\fs20\cf2 enddata\plain\f3\fs20\cf0 \par \par n = \plain\f3\fs20\cf2 @size\plain\f3\fs20\cf0 (cidades); \par [fo] \plain\f3\fs20\cf2 min\plain\f3\fs20\cf0 = \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (matriz(i,j): d(i,j)*x(i,j)); \par \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (cidades(j): \par \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i) | i #ne# j: x(i, j)) = 1; \par \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i) | i #ne# j: x(j, i)) = 1; \par x(j,j) = 0; \par ); \par \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (cidades(j) | j #ne# 1: \par \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i) | i #ne# j: f(i,j)) - \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i) | i #ne# j: f(j,i) ) = 1 ); \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 (matriz(i,j): f(i,j) <= (n-1)*x(i,j)); \par \par \plain\f3\fs20\cf2 data\plain\f3\fs20\cf0 : \par \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('pcv.xls','solu\'e7\'e3o','fo','fluxo') = x, fo,