1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
# vim: syntax=perl
# Ronald L. Rardin. "Optimizations in Operations Research"
# p.413 "Texas Transfer"
# workaround for a possible bug in perl-base-5.8.2-2mdk
{
"-name" => "Texas Transfer",
-type => "graph",
-linear_transform => {
-scale => [1, -1],
-offset => [0, 270],
},
-init_data => {
ama => { -pos => [180,255],
lub => 122, ftw => 359
},
lub => { -pos => [120,195],
ama => 122, elp => 345, abi => 167
},
ftw => { -pos => [315,195],
# ama => 359, abi => 180, aus => 195, hou => 246
ama => 357, abi => 180, aus => 195, hou => 246
},
elp => { -pos => [ 45,120],
lub => 345, abi => 443, ang => 415
},
abi => { -pos => [180,135],
lub => 167, ftw => 180, elp => 443, ang => 92
},
ang => { -pos => [135, 75],
elp => 415, abi => 92, ant => 213
},
ant => { -pos => [240, 45],
ang => 213, aus => 79, hou => 199, cor => 153
},
aus => { -pos => [300,105],
ftw => 195, ant => 79
},
hou => { -pos => [405, 90],
ftw => 246, ant => 199, cor => 215
},
cor => { -pos => [345, 15],
ant => 153, hou => 215
},
},
}
|
