sp
/
Tempest_in_Action
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 Commits
1 Branch
0 Tags
24 MiB
 
 
 
 
 
 
Tree: 68f01f6a3c
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '68f01f6a3c'
${ noResults }
Tempest_in_Action/tempest-devel/resources/3rdparty/glpk-4.65/examples/tas.mod

486 lines
20 KiB
Raw Blame History

/* TAS, Tail Assignment Problem */
/* Written in GNU MathProg by Andrew Makhorin <mao@gnu.org> */
/* The Tail Assignment Problem (TAS) is to construct rosters for a set
of aircrafts (tails), which cover all flights for a given scheduling
period.
This model includes only flight connection constraints while other
constraints (for example, maintenance constraints) are ignored. Such
simplification allows using a single commodity network to model the
problem, where commodity corresponds to the set of aircrafts.
Nodes of the network are activities. They include all flights plus
two dummy nodes (activities): source node, s, corresponding to
initial activity of each aircraft, and sink node t, corresponding to
final activity of each aircraft. Arc v->v' exists in the network if
and only if the same aircraft is able to operate activity v and then
immediately activity v'. In partucular, arcs s->f and f->t exist for
all flights f. Arcs f->f', where f and f' are some flights, exist
only if the connection time (which is the difference between the
departure time of f' and the arrival time of f) is not less than a
given minimal connection time.
Reference:
M. Groenkvist, "The Tail Assignment Problem," Dept. of Comp. Sci.
and Eng., Chalmers University of Technology and Goeteborg University,
Goeteborg, Sweden, August 2005. */
########################################################################
param nf, integer, > 0;
/* number of flights */
set F := 1..nf;
/* set of flights (for a given period from timetable) */
param hub{f in F}, in {1, 2};
/* hub[f] = 1: Sheremetyevo-1
hub[f] = 2: Sheremetyevo-2 */
param dest{f in F}, symbolic;
/* destination airport (IATA code) */
param fno1{f in F}, integer;
/* first leg flight number */
param dep1{f in F}, integer, >= 0;
/* departure time from Sheremetyevo airport, in minutes */
check{f in F: f < nf}: dep1[f] <= dep1[f+1];
/* all flights must be ordered by ascending of the departure time */
param arr1{f in F}, integer, >= 0;
/* arrival time to destination airport, in minutes */
param fno2{f in F}, integer;
/* second leg flight number */
param dep2{f in F}, integer, >= 0;
/* departure time from destination airport, in minutes */
param arr2{f in F}, integer, >= 0;
/* arrival time to Sheremetyevo airport, in minutes */
param mct1, integer, >= 0, default 80;
/* minimal connection time (within SVO1 or SVO2), in minutes */
param mct2, integer, >= 0, default 150;
/* minimal connection time (between SVO1 and SVO2), in minutes */
set E := setof{f in F, ff in F: arr2[f] + (if hub[f] = hub[ff] then
mct1 else mct2) <= dep1[ff]} (f, ff);
/* connection network; arc f->ff is in E, iff the same aircraft can be
assigned to flight f and then immediately to flight ff */
var s{f in F}, >= 0;
/* s[f] is a flow from source node to node f */
var x{(f,ff) in E}, >= 0;
/* x[f,ff] is a flow from node f to node ff */
var t{f in F}, >= 0;
/* t[f] is a flow from node f to sink node */
s.t. into{f in F}: s[f] + sum{(ff,f) in E} x[ff,f] = 1;
/* exactly one aircraft must come into each node f */
s.t. from{f in F}: t[f] + sum{(f,ff) in E} x[f,ff] = 1;
/* exactly one aircraft must come from each node f */
minimize obj: sum{f in F} s[f];
/* minimize the number aircrafts sufficient to cover all flights */
solve;
########################################################################
param na := floor(sum{f in F} s[f] + .5);
/* minimal number of aircrafts found */
printf "At least %d aircrafts needed\n", na;
set A := 1..na;
/* set of aircrafts */
printf "Building rosters...\n";
param tail{f in F}, in A, :=
/* tail[f] is the number of an aircraft assigned to flight f */
if f = 1 then 1
/* assign aircraft 1 to the earliest flight */
else if s[f] >= 0.9 then (max{ff in 1..f-1} tail[ff]) + 1
/* if f is the first flight in a roster, assign to it a next
aircraft */
else sum{(ff,f) in E} tail[ff] * (if x[ff,f] >= 0.9 then 1);
/* otherwise, assign to flight f the same aircraft, which is
assigned to a preceding flight in the roster */
########################################################################
param file, symbolic, default "tas.ps";
/* file to output the assignment chart in postscript format */
param title, symbolic, default "(no title)";
/* chart title */
param left, default 25;
/* left margin, in mm */
param top, default 25;
/* top margin, in mm */
param right, default 20;
/* right margin, in mm */
param bottom, default 15;
/* bottom margin, in mm */
param sx := 297 - left - right;
/* chart area horizontal size, in mm */
param sy := 210 - top - bottom;
/* chart area vertical size, in mm */
param gap, default sy / (na - 1);
/* gap between rosters, in mm */
printf "Writing assignment chart to %s...\n", file;
printf "%%!PS-Adobe-3.0\n" > file;
printf "%%%%Title: Tail Assignment Chart\n" >> file;
printf "%%%%Creator: GLPK MathProg\n" >> file;
printf "%%%%BoundingBox: 0 0 595 842\n" >> file;
printf "%%%%EndComments\n" >> file;
printf "<</PageSize [595 842]>> setpagedevice\n" >> file;
printf "72 25.4 div dup scale\n" >> file;
printf "210 %.3f sub %.3f translate\n", bottom, left >> file;
printf "90 rotate\n" >> file;
printf "/HelveticaBold findfont 5 scalefont setfont\n" >> file;
printf "%.3f %.3f moveto (%s) dup show\n", 0, sy + 5, title >> file;
param period := floor((max{f in F} arr2[f]) / 60. + .5);
/* period duration, in hours */
/* vertical bars */
printf ".8 .8 .8 setrgbcolor\n" >> file;
for {tt in 0..period}
{ printf "%s setlinewidth\n",
if tt mod 24 = 0 then ".5" else "0" >> file;
printf "newpath %.3f %.3f moveto %.3f %.3f lineto stroke\n",
tt * (sx / period), 0, tt * (sx / period),
sy + (if tt mod 24 = 0 then 2) >> file;
}
/* rosters */
for {a in A}
{ printf "0 0 0 setrgbcolor\n" >> file;
printf "0 setlinewidth\n" >> file;
printf "newpath %.3f %.3f moveto %.3f %.3f lineto stroke\n",
0, sy - gap * (a - 1), sx, sy - gap * (a - 1) >> file;
printf "/Dingbats findfont 4 scalefont setfont\n" >> file;
printf "%.3f %.3f moveto <28> dup show\n",
-4, sy - gap * (a - 1) - 1.4, a >> file;
printf "/Helvetica findfont 3 scalefont setfont\n" >> file;
printf "%.3f %.3f moveto (%2d) dup show\n",
-9, sy - gap * (a - 1) - 1.2, a >> file;
for {f in F: tail[f] == a}
{ printf "0 0 %s setrgbcolor\n",
if hub[f] = 1 then "0" else ".8" >> file;
printf "1 setlinewidth\n" >> file;
printf "newpath %.3f %.3f moveto %.3f %.3f lineto stroke\n",
dep1[f] / 60 * (sx / period), sy - gap * (a - 1),
arr2[f] / 60 * (sx / period), sy - gap * (a - 1) >> file;
printf "/Helvetica findfont 1.8 scalefont setfont\n" >> file;
printf "%.3f %.3f moveto (%02d:%02d %s) dup show\n",
dep1[f] / 60 * (sx / period), sy - gap * (a - 1) + .8,
(dep1[f] mod 1440) div 60, (dep1[f] mod 1440) mod 60,
dest[f] >> file;
printf "%.3f %.3f moveto (%d %02d:%02d) dup show\n",
dep1[f] / 60 * (sx / period), sy - gap * (a - 1) - 2.1,
fno1[f],
(arr2[f] mod 1440) div 60, (arr2[f] mod 1440) mod 60 >> file;
}
}
printf "showpage\n" >> file;
printf "%%%%EOF\n" >> file;
########################################################################
data;
param title := "Tu-154 [from 2008-08-18 to 2008-08-24]";
param nf := 261;
param : hub dest fno1 dep1 arr1 fno2 dep2 arr2 :=
1 1 IKT 743 195 520 744 610 970
2 1 OMS 815 205 405 816 485 700
3 1 CEK 897 205 360 898 430 595
4 1 KRR 763 260 400 764 480 610
5 2 SIP 133 280 420 134 500 620
6 2 BUD 131 290 450 132 520 675
7 1 AAQ 701 305 440 702 510 640
8 1 MRV 785 310 440 786 520 650
9 2 WAW 101 355 475 102 540 660
10 2 GYD 147 370 550 148 675 860
11 1 AER 869 385 530 870 655 795
12 1 KRR 765 430 560 766 630 760
13 1 AAQ 703 520 660 704 740 850
14 1 LED 845 530 620 846 690 775
15 1 KRR 767 540 675 768 765 895
16 2 KBP 183 665 760 184 850 940
17 1 MRV 787 755 905 788 985 1135
18 1 KRR 771 810 940 772 1030 1165
19 1 LED 849 825 900 850 960 1095
20 2 IST 209 880 1050 210 1120 1280
21 1 AER 873 885 1030 874 1760 1900
22 1 ASF 711 995 1145 712 1640 1795
23 2 ULN 563 995 1335 564 1415 1815
24 2 OTP 151 1020 1175 152 1800 1940
25 2 BEY 509 1025 1265 510 1350 1580
26 2 OSL 211 1060 1220 212 1860 2015
27 1 IKT 739 1085 1420 740 1510 1870
28 1 KRR 773 1095 1240 774 1620 1765
29 1 SGC 877 1120 1315 878 1395 1625
30 1 LED 857 1150 1230 858 1610 1690
31 1 CEK 899 1230 1385 900 1455 1620
32 1 PEE 821 1235 1390 822 1450 1600
33 2 TBS 197 1240 1405 198 1560 1715
34 1 UFA 891 1275 1405 892 1475 1610
35 1 KJA 781 1300 1570 782 1680 1990
36 1 IKT 743 1635 1960 744 2050 2410
37 1 OMS 815 1645 1845 816 1925 2140
38 1 CEK 897 1645 1800 898 1870 2035
39 1 KRR 763 1700 1840 764 1920 2050
40 2 SIP 133 1720 1860 134 1940 2060
41 2 BUD 131 1730 1890 132 1960 2115
42 1 AAQ 701 1745 1880 702 1950 2080
43 1 MRV 785 1750 1880 786 1960 2090
44 2 WAW 101 1795 1915 102 1980 2100
45 2 GYD 147 1810 1990 148 2115 2300
46 1 AER 869 1825 1970 870 2095 2235
47 2 EVN 193 1850 2030 194 2105 2275
48 1 KRR 765 1870 2000 766 2070 2200
49 1 AAQ 703 1960 2100 704 2180 2290
50 1 LED 845 1970 2060 846 2130 2215
51 1 KRR 767 1980 2115 768 2205 2335
52 2 KBP 183 2105 2200 184 2290 2380
53 1 MRV 787 2195 2345 788 2425 2575
54 1 KRR 771 2250 2380 772 2470 2605
55 1 LED 849 2265 2340 850 2400 2535
56 2 IST 209 2320 2490 210 2560 2720
57 1 AER 873 2325 2470 874 3200 3340
58 2 ULN 563 2435 2775 564 2855 3255
59 1 ASF 711 2435 2585 712 3080 3235
60 2 DAM 517 2465 2705 518 2790 3020
61 2 OSL 211 2500 2660 212 3300 3455
62 2 KBP 185 2510 2610 186 3160 3250
63 1 IKT 739 2525 2860 740 2950 3310
64 1 KRR 773 2535 2680 774 3060 3205
65 1 SGC 877 2560 2755 878 2835 3065
66 1 LED 857 2590 2670 858 3050 3130
67 1 CEK 899 2670 2825 900 2895 3060
68 1 PEE 821 2675 2830 822 2890 3040
69 2 TBS 197 2680 2845 198 3000 3155
70 1 UFA 891 2715 2845 892 2915 3050
71 1 KJA 781 2740 3010 782 3120 3430
72 1 IKT 743 3075 3400 744 3490 3850
73 1 CEK 897 3085 3240 898 3310 3475
74 1 OMS 815 3085 3285 816 3365 3580
75 1 KRR 763 3140 3280 764 3360 3490
76 2 SIP 133 3160 3300 134 3380 3500
77 2 BUD 131 3170 3330 132 3400 3555
78 1 AAQ 701 3185 3320 702 3390 3520
79 1 MRV 785 3190 3320 786 3400 3530
80 2 WAW 101 3235 3355 102 3420 3540
81 2 FRU 181 3245 3495 182 3590 3860
82 2 GYD 147 3250 3430 148 3555 3740
83 1 AER 869 3265 3410 870 3535 3675
84 1 KRR 765 3310 3440 766 3510 3640
85 1 AAQ 703 3400 3540 704 3620 3730
86 1 LED 845 3410 3500 846 3570 3655
87 1 KRR 767 3420 3555 768 3645 3775
88 2 KBP 183 3545 3640 184 3730 3820
89 1 MRV 787 3635 3785 788 3865 4015
90 1 KRR 771 3690 3820 772 3910 4045
91 1 LED 849 3705 3780 850 3840 3975
92 2 IST 209 3760 3930 210 4000 4160
93 1 AER 873 3765 3910 874 4640 4780
94 2 ULN 563 3875 4215 564 4295 4695
95 1 ASF 711 3875 4025 712 4520 4675
96 2 OTP 151 3900 4055 152 4680 4820
97 2 BEY 509 3905 4145 510 4230 4460
98 2 OSL 211 3940 4100 212 4740 4895
99 2 KBP 185 3950 4050 186 4600 4690
100 1 IKT 739 3965 4300 740 4390 4750
101 1 KRR 773 3975 4120 774 4500 4645
102 1 SGC 877 4000 4195 878 4275 4505
103 1 LED 857 4030 4110 858 4490 4570
104 1 CEK 899 4110 4265 900 4335 4500
105 1 PEE 821 4115 4270 822 4330 4480
106 2 TBS 197 4120 4285 198 4440 4595
107 1 UFA 891 4155 4285 892 4355 4490
108 1 KJA 781 4180 4450 782 4560 4870
109 1 IKT 743 4515 4840 744 4930 5290
110 1 OMS 815 4525 4725 816 4805 5020
111 1 CEK 897 4525 4680 898 4750 4915
112 1 KRR 763 4580 4720 764 4800 4930
113 2 SIP 133 4600 4740 134 4820 4940
114 2 BUD 131 4610 4770 132 4840 4995
115 1 AAQ 701 4625 4760 702 4830 4960
116 1 MRV 785 4630 4760 786 4840 4970
117 2 WAW 101 4675 4795 102 4860 4980
118 2 GYD 147 4690 4870 148 4995 5180
119 1 AER 869 4705 4850 870 4975 5115
120 2 EVN 193 4730 4910 194 4985 5155
121 1 KRR 765 4750 4880 766 4950 5080
122 1 AAQ 703 4840 4980 704 5060 5170
123 1 LED 845 4850 4940 846 5010 5095
124 1 KRR 767 4860 4995 768 5085 5215
125 2 KBP 183 4985 5080 184 5170 5260
126 1 MRV 787 5075 5225 788 5305 5455
127 1 KRR 771 5130 5260 772 5350 5485
128 1 LED 849 5145 5220 850 5280 5415
129 2 IST 209 5200 5370 210 5440 5600
130 1 AER 873 5205 5350 874 6080 6220
131 1 ASF 711 5315 5465 712 5960 6115
132 2 ULN 563 5315 5655 564 5735 6135
133 2 DAM 517 5345 5585 518 5670 5900
134 2 OSL 211 5380 5540 212 6180 6335
135 2 KBP 185 5390 5490 186 6040 6130
136 1 IKT 739 5405 5740 740 5830 6190
137 1 KRR 773 5415 5560 774 5940 6085
138 1 SGC 877 5440 5635 878 5715 5945
139 1 LED 857 5470 5550 858 5930 6010
140 1 CEK 899 5550 5705 900 5775 5940
141 1 PEE 821 5555 5710 822 5770 5920
142 2 TBS 197 5560 5725 198 5880 6035
143 1 UFA 891 5595 5725 892 5795 5930
144 1 KJA 781 5620 5890 782 6000 6310
145 1 IKT 743 5955 6280 744 6370 6730
146 1 OMS 815 5965 6165 816 6245 6460
147 1 CEK 897 5965 6120 898 6190 6355
148 1 KRR 763 6020 6160 764 6240 6370
149 2 SIP 133 6040 6180 134 6260 6380
150 2 BUD 131 6050 6210 132 6280 6435
151 1 AAQ 701 6065 6200 702 6270 6400
152 1 MRV 785 6070 6200 786 6280 6410
153 2 WAW 101 6115 6235 102 6300 6420
154 2 FRU 181 6125 6375 182 6470 6740
155 2 GYD 147 6130 6310 148 6435 6620
156 1 AER 869 6145 6290 870 6415 6555
157 2 EVN 193 6170 6350 194 6425 6595
158 1 KRR 765 6190 6320 766 6390 6520
159 1 AAQ 703 6280 6420 704 6500 6610
160 1 LED 845 6290 6380 846 6450 6535
161 1 KRR 767 6300 6435 768 6525 6655
162 2 KBP 183 6425 6520 184 6610 6700
163 2 AYT 223 6500 6690 224 6750 6940
164 1 AER 867 6510 6660 868 6730 6880
165 1 MRV 787 6515 6665 788 6745 6895
166 1 KRR 771 6570 6700 772 6790 6925
167 1 LED 849 6585 6660 850 6720 6855
168 2 IST 209 6640 6810 210 6880 7040
169 1 AER 873 6645 6790 874 7520 7660
170 1 ASF 711 6755 6905 712 7400 7555
171 2 ULN 563 6755 7095 564 7175 7575
172 2 OTP 151 6780 6935 152 7560 7700
173 2 BEY 509 6785 7025 510 7110 7340
174 2 OSL 211 6820 6980 212 7620 7775
175 2 KBP 185 6830 6930 186 7480 7570
176 1 IKT 739 6845 7180 740 7270 7630
177 1 KRR 773 6855 7000 774 7380 7525
178 1 SGC 877 6880 7075 878 7155 7385
179 1 LED 857 6910 6990 858 7370 7450
180 1 CEK 899 6990 7145 900 7215 7380
181 1 PEE 821 6995 7150 822 7210 7360
182 2 TBS 197 7000 7165 198 7320 7475
183 1 UFA 891 7035 7165 892 7235 7370
184 1 KJA 781 7060 7330 782 7440 7750
185 1 IKT 743 7395 7720 744 7810 8170
186 1 CEK 897 7405 7560 898 7630 7795
187 1 KRR 763 7460 7600 764 7680 7810
188 2 SIP 133 7480 7620 134 7700 7820
189 2 BUD 131 7490 7650 132 7720 7875
190 1 AAQ 701 7505 7640 702 7710 7840
191 1 MRV 785 7510 7640 786 7720 7850
192 2 IST 207 7545 7720 208 7795 7985
193 2 WAW 101 7555 7675 102 7740 7860
194 2 GYD 147 7570 7750 148 7875 8060
195 1 AER 869 7585 7730 870 7855 7995
196 2 AYT 221 7610 7800 222 7895 8085
197 2 EVN 193 7610 7790 194 7865 8035
198 1 KRR 765 7630 7760 766 7830 7960
199 1 AAQ 703 7720 7860 704 7940 8050
200 1 LED 845 7730 7820 846 7890 7975
201 1 KRR 767 7740 7875 768 7965 8095
202 2 KBP 183 7865 7960 184 8050 8140
203 2 AYT 223 7940 8130 224 8190 8380
204 1 MRV 787 7955 8105 788 8185 8335
205 1 KRR 771 8010 8140 772 8230 8365
206 1 LED 849 8025 8100 850 8160 8295
207 2 IST 209 8080 8250 210 8320 8480
208 1 AER 873 8085 8230 874 8960 9100
209 1 ASF 711 8195 8345 712 8840 8995
210 2 ULN 563 8195 8535 564 8615 9015
211 1 KJA 779 8230 8500 780 8575 8870
212 2 OSL 211 8260 8420 212 9060 9215
213 2 KBP 185 8270 8370 186 8920 9010
214 1 IKT 739 8285 8620 740 8710 9070
215 1 KRR 773 8295 8440 774 8820 8965
216 1 SGC 877 8320 8515 878 8595 8825
217 1 LED 857 8350 8430 858 8810 8890
218 1 CEK 899 8430 8585 900 8655 8820
219 1 PEE 821 8435 8590 822 8650 8800
220 2 TBS 197 8440 8605 198 8760 8915
221 1 UFA 891 8475 8605 892 8675 8810
222 1 KJA 781 8500 8770 782 8880 9190
223 1 IKT 743 8835 9160 744 9250 9610
224 1 OMS 815 8845 9045 816 9125 9340
225 1 CEK 897 8845 9000 898 9070 9235
226 1 KRR 763 8900 9040 764 9120 9250
227 2 SIP 133 8920 9060 134 9140 9260
228 2 BUD 131 8930 9090 132 9160 9315
229 1 AAQ 701 8945 9080 702 9150 9280
230 1 MRV 785 8950 9080 786 9160 9290
231 2 IST 207 8985 9160 208 9235 9425
232 2 WAW 101 8995 9115 102 9180 9300
233 2 FRU 181 9005 9255 182 9350 9620
234 2 GYD 147 9010 9190 148 9315 9500
235 1 AER 869 9025 9170 870 9295 9435
236 2 EVN 193 9050 9230 194 9305 9475
237 1 KRR 765 9070 9200 766 9270 9400
238 1 AAQ 703 9160 9300 704 9380 9490
239 1 LED 845 9170 9260 846 9330 9415
240 1 KRR 767 9180 9315 768 9405 9535
241 2 KBP 183 9305 9400 184 9490 9580
242 2 AYT 223 9380 9570 224 9630 9820
243 1 MRV 787 9395 9545 788 9625 9775
244 1 KRR 771 9450 9580 772 9670 9805
245 1 LED 849 9465 9540 850 9600 9735
246 2 IST 209 9520 9690 210 9760 9920
247 1 AER 873 9525 9670 874 10400 10540
248 1 ASF 711 9635 9785 712 10280 10435
249 2 ULN 563 9635 9975 564 10055 10455
250 2 OTP 151 9660 9815 152 10440 10580
251 2 DAM 517 9665 9905 518 9990 10220
252 2 OSL 211 9700 9860 212 10500 10655
253 2 KBP 185 9710 9810 186 10360 10450
254 1 IKT 739 9725 10060 740 10150 10510
255 1 KRR 773 9735 9880 774 10260 10405
256 1 SGC 877 9760 9955 878 10035 10265
257 1 LED 857 9790 9870 858 10250 10330
258 1 CEK 899 9870 10025 900 10095 10260
259 1 PEE 821 9875 10030 822 10090 10240
260 1 UFA 891 9915 10045 892 10115 10250
261 1 KJA 781 9940 10210 782 10320 10630
;
end;