ࡱ> Root Entry*0_^&H @Contents$ Root Entry*0_^0GHContentss {\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\fs36 sets\cf2 : \par Facilidades/\cf1 @ole\cf2 ('Medianas(R).xls','Facilidades')/: y; \par Locais/\cf1 @ole\cf2 ('Medianas(R).xls','Locais')/: ; \par Matriz(Facilidades, Locais): d, x; \par \cf1 endsets\cf2 \par \par \cf1 data\cf2 : \par d = \cf1 @ole\cf2 ('Medianas(R).xls','distancias'); \par p = \cf1 @ole\cf2 ('Medianas(R).xls','p'); \par \cf1 enddata\cf2 \par \par \cf3\fs32 ! Minimizar a dist\'e2ncia total;\cf2 \par [fo] \cf1 min\cf2 = \cf1 @sum\cf2 (Facilidades(i): \par \cf1 @sum\cf2 (Locais(j): d(i,j)*x(i,j))); \par \par \par \cf3 ! Cada local \'e9 atendido por uma \'fanica facilidade;\cf2 \par \cf1 @for\cf2 (Locais(j): \par \cf1 @sum\cf2 (Facilidades(i): x(i,j)) = 1); \par \par \cf3 ! Devem ser instaladas p facilidades;\cf2 \par \cf1 @sum\cf2 (Facilidades(i): y(i)) = p; \par \par \cf3 ! Um local j s\'f3 pode ser atendido por uma facilidade \par que esteja instalada em i;\cf2 \par \cf1 @for\cf2 (Facilidades(i): \par \cf1 @for\cf2 (Locais(j): x(i,j) <= y(i))); \par \par \cf3 ! As vari\'e1veis y_i e x_ij s\'e3o bin\'e1rias;\cf2 \par \cf1 @for\cf2 (Facilidades(i): \par \cf1 @bin\cf2 (y(i)); \par \cf1 @for\cf2 (Locais(j): \cf1 @bin\cf2 (x(i,j)))); \par \par \fs36 \par \cf1 data\cf2 : \par \cf1 @ole\cf2 ('Medianas(R).xls','x') = x; \par \cf1 @ole\cf2 ('Medianas(R).xls','y','fo') = y, fo; \par \cf1 enddata\cf2 \par \par \fs32 \par } \cf1 @ole\cf2 ('Medianas(R).xls','x') = x; \par \cf1 @ole\cf2 ('Medianas\cf4 (\cf2 R\cf4 )\cf2 .xls','y','fo') = y, fo; \par \cf1 enddata\cf2 \par \par \fs32 \par } esteja instalada em i;\cf2 \par \cf3 !@for(Facilidades(i): \par @for(Locais(j): x(i,j) <= y(i)));\cf2 \par \par \cf1 @for\cf2 (Facilidades(i): \par \cf1 @bin\cf2 (y(i)); \par \cf1 @for\cf2 (Locais(j): \c