Action Principale : minCostFlow
| 1 | DATA mycas.nodos_oferta_demanda; |
| 2 | INFILE DATALINES delimiter=','; |
| 3 | INPUT node $ demand; |
| 4 | IF demand > 0 THEN DO; lower = 0; upper = demand; END; |
| 5 | ELSE IF demand < 0 THEN DO; lower = demand; upper = 0; END; |
| 6 | ELSE DO; lower = 0; upper = 0; END; |
| 7 | DATALINES; |
| 8 | A,10 |
| 9 | B,20 |
| 10 | D,-5 |
| 11 | E,-15 |
| 12 | F,-10 |
| 13 | ; |
| 14 | RUN; |
| 15 | |
| 16 | DATA mycas.arcos_costo; |
| 17 | INFILE DATALINES delimiter=','; |
| 18 | INPUT from $ to $ weight capacity; |
| 19 | DATALINES; |
| 20 | A,B,1,15 |
| 21 | A,D,2,10 |
| 22 | B,D,1,10 |
| 23 | B,E,4,10 |
| 24 | B,C,3,10 |
| 25 | C,E,1,5 |
| 26 | C,F,3,10 |
| 27 | D,F,2,10 |
| 28 | E,F,1,15 |
| 29 | ; |
| 30 | RUN; |