# data file electric-004.dat: 14 node network from PJM set N := 1 2 3 4 5 6 7 8 9 10 # Nodes in the network 11 12 13 14; set F := 1 2; # firms set ARCS := (1,13) (1,14) (2,3) (2,5) (2,10) (3,2) (3,5) (3,14) (4,13) (5,2) (5,3) (5,7) (5,11) (6,9) (6,10) (7,5) (7,10) (7,11) (8,11) (8,12) (9,6) (9,12) (10,2) (10,6) (10,7) (10,13) (11,5) (11,7) (11,8) (12,8) (12,9) (13,1) (13,4) (13,10) (14,1) (14,3); ### define ISO's cost of shipment param : e := 1 13 8.2274 1 14 6.3038 2 3 7.0075 2 5 6.2171 2 10 7.5869 3 2 7.0075 3 5 6.7488 3 14 7.4801 4 13 7.6682 5 2 6.2171 5 3 6.7488 5 7 6.9217 5 11 7.8892 6 9 9.3093 6 10 7.5246 7 5 6.9217 7 10 6.9882 7 11 7.9131 8 11 7.0559 8 12 5.8929 9 6 9.3093 9 12 7.4855 10 2 7.5869 10 6 7.5246 10 7 6.9882 10 13 6.9950 11 5 7.8892 11 7 7.9131 11 8 7.0559 12 8 5.8929 12 9 7.4855 13 1 8.2274 13 4 7.6682 13 10 6.9950 14 1 6.3038 14 3 7.4801 ; ### unit generation cost & production capacity {F,N} param : c, CAP := 1 1 15 3500 1 2 16 5200 1 3 13 3990 1 4 14 5000 1 5 17 4000 1 6 16 5100 1 7 15 3700 1 8 20 500 1 9 20 500 1 10 20 500 1 11 20 500 1 12 20 500 1 13 20 500 1 14 20 500 2 1 20 500 2 2 20 500 2 3 20 500 2 4 20 500 2 5 20 500 2 6 20 500 2 7 20 500 2 8 14 3000 2 9 15 6500 2 10 12 3900 2 11 11 3100 2 12 15 6000 2 13 13 4100 2 14 14 6100 ; ### price/quantity intercept of sales function {N} param : P0, Q0 := 1 4.1326 67.860 2 3.8593 203.580 3 3.6448 146.952 4 4.3131 195.290 5 3.4284 73.476 6 4.2926 182.680 7 5.0225 138.560 8 4.2998 104.076 9 4.2932 157.760 10 4.2903 214.332 11 4.2148 218.912 12 4.2992 135.088 13 3.4539 275.310 14 3.4387 140.400 ;