╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   Root Entry        *0_Ъю╧╗Є└Ё^@╓Т▄j╟ └ Contents            С                         ■   ¤                               ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Root Entry        *0_Ъю╧╗Є└Ё^`На▄j╟└ Contents            С                                 ■   ¤   ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     !"#$%&'()*+,-./012■                                                                                                                                                                                                                                                                                                                       solucao','dtotal') = x, fo; \par \plain\f3\fs20\cf2 enddata\plain\f3\fs20\cf0 \par \par \plain\f3\fs20\cf2 end\plain\f3\fs20\cf0 \par } ьЛ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern\fprq2 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 ('prv(R).xls','cidades')/: demanda; \par matriz(cidades, cidades): dist, \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; \plain\f3\fs20\cf1 ! Fluxo de i para j;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 endsets\plain\f3\fs20\cf0 \par \par \plain\f3\fs20\cf2 data\plain\f3\fs20\cf0 : \par demanda, dist, capVeic = \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('prv(R).xls','demanda','distancias','capVeic'); \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): dist(i,j)*x(i,j)); \par \par \plain\f3\fs20\cf1 ! De cada cidade k, exceto o dep\'f3sito, s\'f3 sai um \'fanico ve\'edculo;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (cidades(k) | k #NE# 1: \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(j): x(k,j)) = 1); \par \par \plain\f3\fs20\cf1 ! A cada cidade k, exceto o d  !"#$%&'()*+,-./012■                                                                                                                                                                                                                                                                                                                       solucao','dtotal') = x, fo; \par \plain\f3\fs20\cf2 enddata\plain\f3\fs20\cf0 \par \par \plain\f3\fs20\cf2 end\plain\f3\fs20\cf0 \par } ьЛ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern\fprq2 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 ('prv(R).xls','cidades')/: demanda; \par matriz(cidades, cidades): dist, \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; \plain\f3\fs20\cf1 ! Fluxo de i para j;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 endsets\plain\f3\fs20\cf0 \par \par \plain\f3\fs20\cf2 data\plain\f3\fs20\cf0 : \par demanda, dist, capVeic = \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('prv(R).xls','demanda','distancias','capVeic'); \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): dist(i,j)*x(i,j)); \par \par \plain\f3\fs20\cf1 ! De cada cidade k, exceto o dep\'f3sito, s\'f3 sai um \'fanico ve\'edculo;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (cidades(k) | k #NE# 1: \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(j): x(k,j)) = 1); \par \par \plain\f3\fs20\cf1 ! A cada cidade k, exceto o dep\'f3sito, s\'f3 chega um \'fanico ve\'edculo;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (cidades(k) | k #NE# 1: \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i): x(i,k)) = 1); \par \par \plain\f3\fs20\cf1 ! 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;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(j): x(1, j)) = \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidadesep\'f3sito, s\'f3 chega um \'fanico ve\'edculo;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (cidades(k) | k #NE# 1: \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i): x(i,k)) = 1); \par \par \plain\f3\fs20\cf1 ! 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;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(j): x(1, j)) = \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i): x(i, 1)); \par \par \plain\f3\fs20\cf1 ! Ao passar por uma cidade k, exceto o dep\'f3sito, o ve\'edculo deve atender a demanda \par dessa cidade, isto \'e9, deve deixar demanda(k) unidades de produto na cidade k;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (cidades(k) | k #ne# 1: \par \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i): f(i,k)) - \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i): f(k,i) ) = demanda(k) ); \par \par \plain\f3\fs20\cf1 ! O fluxo m\'e1ximo em cada aresta n\'e3o pode superar a capacidade do ve\'edculo;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (matriz(i,j): f(i,j) <= (capVeic)*x(i,j)); \par \par \plain\f3\fs20\cf1 ! As vari\'e1veis x s\'e3o bin\'e1rias;\plain\f3\fs20\cf0 \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 data\plain\f3\fs20\cf0 : \par \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('prv(R).xls','(i): x(i, 1)); \par \par \plain\f3\fs20\cf1 ! Ao passar por uma cidade k, exceto o dep\'f3sito, o ve\'edculo deve atender a demanda \par dessa cidade, isto \'e9, deve deixar demanda(k) unidades de produto na cidade k;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (cidades(k) | k #ne# 1: \par \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i): f(i,k)) - \plain\f3\fs20\cf2 @sum\plain\f3\fs20\cf0 (cidades(i): f(k,i) ) = demanda(k) ); \par \par \plain\f3\fs20\cf1 ! O fluxo m\'e1ximo em cada aresta n\'e3o pode superar a capacidade do ve\'edculo;\plain\f3\fs20\cf0 \par \plain\f3\fs20\cf2 @for\plain\f3\fs20\cf0 (matriz(i,j): f(i,j) <= (capVeic)*x(i,j)); \par \par \plain\f3\fs20\cf1 ! As vari\'e1veis x s\'e3o bin\'e1rias;\plain\f3\fs20\cf0 \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 data\plain\f3\fs20\cf0 : \par \plain\f3\fs20\cf2 @ole\plain\f3\fs20\cf0 ('prv(R).xls','