Set n / n1*n14 /; Set s / a1 /; yupp('n1','n1','a1')=0; Parameter fcost(m,n,s) / $ondelim n1 n2 a1 834 n2 n1 a1 724 n1 n3 a1 962 n3 n1 a1 645 n1 n4 a1 961 n4 n1 a1 942 n1 n5 a1 891 n5 n1 a1 653 n1 n6 a1 921 n6 n1 a1 895 n1 n7 a1 771 n7 n1 a1 912 n1 n8 a1 535 n8 n1 a1 811 n1 n9 a1 673 n9 n1 a1 711 n1 n10 a1 547 n10 n1 a1 757 n1 n11 a1 723 n11 n1 a1 778 n1 n12 a1 690 n12 n1 a1 606 n1 n13 a1 764 n13 n1 a1 805 n1 n14 a1 870 n14 n1 a1 601 n2 n3 a1 629 n3 n2 a1 954 n2 n4 a1 966 n4 n2 a1 808 n2 n5 a1 626 n5 n2 a1 538 n2 n6 a1 929 n6 n2 a1 615 n2 n7 a1 704 n7 n2 a1 806 n2 n8 a1 521 n8 n2 a1 572 n2 n9 a1 777 n9 n2 a1 512 n2 n10 a1 661 n10 n2 a1 767 n2 n11 a1 531 n11 n2 a1 650 n2 n12 a1 966 n12 n2 a1 691 n2 n13 a1 957 n13 n2 a1 883 n2 n14 a1 709 n14 n2 a1 588 n3 n4 a1 506 n4 n3 a1 668 n3 n5 a1 762 n5 n3 a1 859 n3 n6 a1 548 n6 n3 a1 541 n3 n7 a1 791 n7 n3 a1 520 n3 n8 a1 848 n8 n3 a1 984 n3 n9 a1 553 n9 n3 a1 938 n3 n10 a1 627 n10 n3 a1 893 n3 n11 a1 807 n11 n3 a1 617 n3 n12 a1 809 n12 n3 a1 951 n3 n13 a1 519 n13 n3 a1 803 n3 n14 a1 844 n14 n3 a1 702 n4 n5 a1 593 n5 n4 a1 587 n4 n6 a1 948 n6 n4 a1 618 n4 n7 a1 798 n7 n4 a1 798 n4 n8 a1 972 n8 n4 a1 792 n4 n9 a1 690 n9 n4 a1 691 n4 n10 a1 656 n10 n4 a1 634 n4 n11 a1 828 n11 n4 a1 886 n4 n12 a1 869 n12 n4 a1 916 n4 n13 a1 822 n13 n4 a1 699 n4 n14 a1 892 n14 n4 a1 712 n5 n6 a1 503 n6 n5 a1 688 n5 n7 a1 755 n7 n5 a1 585 n5 n8 a1 588 n8 n5 a1 757 n5 n9 a1 669 n9 n5 a1 689 n5 n10 a1 868 n10 n5 a1 555 n5 n11 a1 941 n11 n5 a1 560 n5 n12 a1 639 n12 n5 a1 996 n5 n13 a1 549 n13 n5 a1 949 n5 n14 a1 797 n14 n5 a1 605 n6 n7 a1 955 n7 n6 a1 701 n6 n8 a1 786 n8 n6 a1 855 n6 n9 a1 912 n9 n6 a1 945 n6 n10 a1 821 n10 n6 a1 982 n6 n11 a1 696 n11 n6 a1 661 n6 n12 a1 673 n12 n6 a1 659 n6 n13 a1 753 n13 n6 a1 510 n6 n14 a1 686 n14 n6 a1 522 n7 n8 a1 787 n8 n7 a1 891 n7 n9 a1 977 n9 n7 a1 824 n7 n10 a1 872 n10 n7 a1 570 n7 n11 a1 518 n11 n7 a1 770 n7 n12 a1 692 n12 n7 a1 980 n7 n13 a1 802 n13 n7 a1 625 n7 n14 a1 523 n14 n7 a1 681 n8 n9 a1 505 n9 n8 a1 531 n8 n10 a1 722 n10 n8 a1 900 n8 n11 a1 913 n11 n8 a1 670 n8 n12 a1 711 n12 n8 a1 667 n8 n13 a1 640 n13 n8 a1 624 n8 n14 a1 576 n14 n8 a1 802 n9 n10 a1 678 n10 n9 a1 984 n9 n11 a1 619 n11 n9 a1 587 n9 n12 a1 510 n12 n9 a1 815 n9 n13 a1 543 n13 n9 a1 609 n9 n14 a1 565 n14 n9 a1 974 n10 n11 a1 629 n11 n10 a1 520 n10 n12 a1 623 n12 n10 a1 761 n10 n13 a1 764 n13 n10 a1 616 n10 n14 a1 511 n14 n10 a1 547 n11 n12 a1 790 n12 n11 a1 763 n11 n13 a1 662 n13 n11 a1 713 n11 n14 a1 865 n14 n11 a1 700 n12 n13 a1 803 n13 n12 a1 824 n12 n14 a1 613 n14 n12 a1 850 n13 n14 a1 993 n14 n13 a1 540 $offdelim /; Parameter vcost(m,n,s) / $ondelim n1 n2 a1 9 n2 n1 a1 9 n1 n3 a1 1 n3 n1 a1 9 n1 n4 a1 7 n4 n1 a1 8 n1 n5 a1 1 n5 n1 a1 6 n1 n6 a1 8 n6 n1 a1 9 n1 n7 a1 1 n7 n1 a1 7 n1 n8 a1 2 n8 n1 a1 3 n1 n9 a1 4 n9 n1 a1 4 n1 n10 a1 2 n10 n1 a1 2 n1 n11 a1 8 n11 n1 a1 8 n1 n12 a1 3 n12 n1 a1 1 n1 n13 a1 6 n13 n1 a1 6 n1 n14 a1 7 n14 n1 a1 4 n2 n3 a1 3 n3 n2 a1 1 n2 n4 a1 6 n4 n2 a1 9 n2 n5 a1 4 n5 n2 a1 3 n2 n6 a1 4 n6 n2 a1 1 n2 n7 a1 4 n7 n2 a1 1 n2 n8 a1 4 n8 n2 a1 6 n2 n9 a1 7 n9 n2 a1 4 n2 n10 a1 7 n10 n2 a1 9 n2 n11 a1 5 n11 n2 a1 9 n2 n12 a1 8 n12 n2 a1 4 n2 n13 a1 7 n13 n2 a1 7 n2 n14 a1 9 n14 n2 a1 3 n3 n4 a1 8 n4 n3 a1 7 n3 n5 a1 3 n5 n3 a1 5 n3 n6 a1 9 n6 n3 a1 2 n3 n7 a1 6 n7 n3 a1 6 n3 n8 a1 1 n8 n3 a1 4 n3 n9 a1 1 n9 n3 a1 4 n3 n10 a1 9 n10 n3 a1 3 n3 n11 a1 2 n11 n3 a1 1 n3 n12 a1 2 n12 n3 a1 9 n3 n13 a1 3 n13 n3 a1 2 n3 n14 a1 2 n14 n3 a1 5 n4 n5 a1 2 n5 n4 a1 5 n4 n6 a1 9 n6 n4 a1 4 n4 n7 a1 6 n7 n4 a1 6 n4 n8 a1 5 n8 n4 a1 8 n4 n9 a1 6 n9 n4 a1 3 n4 n10 a1 2 n10 n4 a1 3 n4 n11 a1 4 n11 n4 a1 2 n4 n12 a1 3 n12 n4 a1 4 n4 n13 a1 4 n13 n4 a1 5 n4 n14 a1 1 n14 n4 a1 9 n5 n6 a1 9 n6 n5 a1 6 n5 n7 a1 7 n7 n5 a1 8 n5 n8 a1 8 n8 n5 a1 7 n5 n9 a1 9 n9 n5 a1 9 n5 n10 a1 1 n10 n5 a1 6 n5 n11 a1 8 n11 n5 a1 5 n5 n12 a1 1 n12 n5 a1 8 n5 n13 a1 2 n13 n5 a1 4 n5 n14 a1 3 n14 n5 a1 9 n6 n7 a1 2 n7 n6 a1 7 n6 n8 a1 8 n8 n6 a1 3 n6 n9 a1 2 n9 n6 a1 6 n6 n10 a1 1 n10 n6 a1 4 n6 n11 a1 5 n11 n6 a1 2 n6 n12 a1 3 n12 n6 a1 3 n6 n13 a1 7 n13 n6 a1 1 n6 n14 a1 4 n14 n6 a1 2 n7 n8 a1 6 n8 n7 a1 4 n7 n9 a1 8 n9 n7 a1 9 n7 n10 a1 9 n10 n7 a1 8 n7 n11 a1 2 n11 n7 a1 8 n7 n12 a1 5 n12 n7 a1 7 n7 n13 a1 5 n13 n7 a1 9 n7 n14 a1 8 n14 n7 a1 3 n8 n9 a1 1 n9 n8 a1 1 n8 n10 a1 8 n10 n8 a1 6 n8 n11 a1 9 n11 n8 a1 6 n8 n12 a1 9 n12 n8 a1 6 n8 n13 a1 5 n13 n8 a1 5 n8 n14 a1 2 n14 n8 a1 6 n9 n10 a1 3 n10 n9 a1 2 n9 n11 a1 7 n11 n9 a1 2 n9 n12 a1 1 n12 n9 a1 5 n9 n13 a1 6 n13 n9 a1 1 n9 n14 a1 5 n14 n9 a1 4 n10 n11 a1 5 n11 n10 a1 8 n10 n12 a1 5 n12 n10 a1 3 n10 n13 a1 9 n13 n10 a1 2 n10 n14 a1 5 n14 n10 a1 4 n11 n12 a1 2 n12 n11 a1 3 n11 n13 a1 8 n13 n11 a1 4 n11 n14 a1 2 n14 n11 a1 3 n12 n13 a1 5 n13 n12 a1 8 n12 n14 a1 6 n14 n12 a1 2 n13 n14 a1 1 n14 n13 a1 2 $offdelim /; Parameter demand(n) / n1 -97 n2 44 n3 -135 n4 -121 n5 956 n6 -59 n7 -164 n8 -4 n9 -125 n10 -77 n13 -123 n14 -95 /; u = -sum(n$(demand(n)<0), demand(n)); xupp(m,n,s)$(fcost(m,n,s) or vcost(m,n,s)) = u; loop((m,n,s)$(fcost(m,n,s)<0), fcost(m,n,s)=0; vcost(m,n,s)=0; );