Kurs von A nach B berechnen

[goose33]

Hallo,

ich hab wiedermal ein Problem :

Ich hab eine Datei in der die ganzen Daten von den Wegpunkten und Flughäfen stehen.
Nun möchte ich eine Route von A nach B berechnen. das ist also das Ziel.

In der fliegerei wird über sogenannte Luftstrassen geflogen, muss man sich vorstellen
wie ein grosses Strassennetz das aber eben uber den ganzen Globus geht ( nur für den der es nicht weiss ).

Also die Datei mit den Luftstrassen sieht so aus :

EUR,T803 ,003,GITEX, 52.000000, 10.523889, 338, 158,B,L
EUR,T803 ,004,BOKSO, 51.796667, 10.658889, 338, 158,B,L
EUR,T803 ,005,BIRKA, 51.379444, 10.931667, 338, 0, ,L
EUR,T804 ,001,HLZ, 52.363392, 10.795217, 0, 121,B,L
EUR,T804 ,002,MAG, 51.994989, 11.794306, 301, 140,B,L
EUR,T804 ,003,LORBO, 51.689444, 12.205000, 320, 140,B,B
EUR,T804 ,004,TADUV, 51.430000, 12.548056, 321, 0, ,B
SPA,T81 ,001,BIB,-16.916667, 145.411667, 0, 171, ,B
SPA,T81 ,002,NORMA,-17.662778, 145.538056, 351, 171, ,B
SPA,T81 ,003,MORGA,-18.280833, 145.643333, 351, 171, ,B
SPA,T81 ,004,BOXER,-22.105278, 146.313889, 351, 0, ,B
-> Anhang

GEBIET, NAME, Nummer des Wegpunktes auf der Luftstrasse, Lat,Lon, Kurs, "B"oth, "L"ow, "H"igh

Both, Low und High -> Die Luftstrassen gibts als Low ( 0..18000 ft ) High ( 18000 ...XX ) und both,
die gehen von 0...xxx.

die mit den ganzen Flughäfen so :

KJEF;09;03401;088;38.591028;-92.164119;0.00;00547
KJEF;12;06001;120;38.595736;-92.163844;0.00;00547
KJEF;27;03401;268;38.590850;-92.152222;0.00;00547
KJEF;30;06001;300;38.586878;-92.146144;110.50;00547
KJER;08;05000;084;42.727883;-114.465803;0.00;04048
KJER;26;05000;264;42.725481;-114.447486;0.00;04048
KJES;10;05500;103;31.553950;-81.891878;0.00;00108
KJES;28;05500;283;31.552719;-81.873811;0.00;00108
KJFK;04L;11351;044;40.622017;-73.785583;110.90;00013
Airport, Runway, ??, Kurs der Runway, Lat, Lon, ILS Frequenz, Höhe

-> Anhang

So, jetzt will ich z.b. von EDDP nach KJFK
( egal welcher Runway )

also von :

EDDP;08;11810;086;51.431242;12.215825;108.55;00465
EDDP;10;08202;105;51.418003;12.209653;111.90;00465
EDDP;26;11810;266;51.433647;12.267444;108.35;00465
EDDP;28;08202;285;51.412067;12.244303;110.30;00465

nach :

KJFK;04L;11351;044;40.622017;-73.785583;110.90;00013
KJFK;04R;08400;044;40.625369;-73.770347;109.50;00013
KJFK;13L;10000;134;40.657767;-73.790242;111.50;00013
KJFK;13R;14572;134;40.648361;-73.816714;0.00;00013
KJFK;22L;08400;224;40.645236;-73.754867;110.90;00013
KJFK;22R;11351;224;40.648792;-73.764664;109.50;00013
KJFK;31L;14572;314;40.627911;-73.771594;111.35;00013
KJFK;31R;10000;314;40.643725;-73.759278;111.50;00013

Wenn man hier mal schaut : http://rfinder.asalink.net/free/ sieht man was da
rauskommen müsste.
So möchte ich das in Delphi haben, aber ich hab leider noch keinen Plan wie man das
anstellen könnte.

Kann da jemand helfen ?
DANKE EUCH !!
Matthias

[lizardking]

Zitat:

Zitat von goose33

So möchte ich das in Delphi haben, aber ich hab leider noch keinen Plan wie man das
anstellen könnte.

Hm... vielleicht bringt Dich Dijkstra weiter. Ist lange her, dass ich das mal gelernt hab. Muesste aber eigentlich der richtige Ansatz sein, um bei einem Graphen (und Deine Daten sind ja eigentlich die Beschreibung eines solchen Graphen) den kuerzesten Weg von A nach B zu suchen.

Bin mir aber leider nicht mehr so sicher, ob's bei grossen Datenmengen nicht ziemlich lahm wird...