Abstandsberechnung zwischen 2 Städten

[mr____zero]

hallo erstmal an alle

ich habe hier ein kleines aber feines mathematisches als auch geographisches problem

ich habe von 2 städten die längen und breiten grade gegeben

berlin:
länge: 13.413
breite: 52.523

düsseldorf
länge: 6.783
breite: 51.233

nun möchte ich von diesen beiden städten den abstand berechnen
und hier fängt mein problem an
bei einer rellativ kurzen entfernung ist es ja noch möglich die entfernung mit hilfe des guten alten pythagoras zu errechnen wird die entfernung aber größer macht einem da die erdkrümmung einen strich durch die rechnung

daher meine frage weiß irgendwer wie ich das ausrechnen könnte am besten auch an diesem beispiel

mfg
zero

[jfheins]

http://de.wikipedia.org/wiki/Orthodr...Berlin_-_Tokio

Das war im letzten Adventgewinnspiel im DF - die Sourcen zu meiner Lösung hab' ich leider nicht mehr ...

[jaenicke]

Schau dir einfach einmal die Lösungen zum Adventsgewinnspiel drüben im DF an.
http://www.delphi-forum.de/viewtopic.php?p=540769
Da ging es u.a. auch darum.

[mr____zero]

wow das ging ja schnell habe das ganze ausprobiert funzt 1a
ihr seit die besten

[mr____zero]

zum einen sorry für doppelpost aber es stellt sich erneut ein kleines problem^^
mag sein das ich schon ne bissle blind bin aber ich finde den fehler net

hab das ganze mal in ein mini prog gepackt aber das liefert mir bei einer strecke von düsseldorf nach berlin eine die distanz 140km
was nicht sein kann

hier mal so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var lange1,lange2,breit1,breit2,strecke :extended;
begin
    lange1 := Strtofloat(edit1.Text);
    lange2 := Strtofloat(edit3.Text);
    breit1 := Strtofloat(edit2.Text);
    breit2 := Strtofloat(edit4.Text);


    strecke := arccos((sin(breit1)*sin(breit2))+(cos(breit1)*cos(breit2)*cos(lange2-lange1)))/360*40000 ;

    edit5.Text := floattostr(strecke);
end;

ed:mit dem taschenrechner funzt das 1a

[sx2008]

Bogenmaß versus Grad.
Die VCL/RTL rechnet im Bogenmass. Es gibt Konvertierungsfunktionen; muss nur etwas suchen (unit Math).

[mr____zero]

Zitat von sx2008:

Bogenmaß versus Grad.
Die VCL/RTL rechnet im Bogenmass. Es gibt Konvertierungsfunktionen; muss nur etwas suchen (unit Math).

ed: ok hast recht hätte ich eig selber drauf kommen müssen
ust ja richtig peinlich

[schöni]

Hallo,

das ist ja aber dann sicher erst mal Luftlinie. Wenn ich aber wegen gefahrener Kilometer zum Beispiel wissen will, welche Strecke ich über unser Strßennetz zurücklegen muss, dürfte die Strecke ja länger werden, als Luftlinie. Ich kann dann zwar einen Routenplaner bemühen, doch der muss mir die Distanz auch berechnen. Wie macht der das?

Gibt es da Näherungsformeln, die die Kurven in der Streckenführung berücksichtigen oder Erfahrungswerte, um wieviele Meter oder Kilometer sich die Strecke durch die reale Streckenführung verlängert?

Bin interessehalber mal wieder hier und habe den Thread gefunden. Mein Job erfordert auch PKW Fahrten. Um die vom Arbeitgeber erstattet zu kriegen, muss ich die Kilometer vorher wissen.
Ich bemühe dann, wie schon gesagt, einen Routenplaner. Aber der muss ja die Strecke auch berechnen. Deshalb interesssiert mich die Frage, wenn denn schon in diesem Thread uber die Berechnung des Abstandes zweier Städte diskutiert wird.

Sogar Flugzeuge fliegen wohl nicht immer exakt Luftlinie, da sie bei großen Strecken unterwegs mehrere Flughäfen ansteuern, die wohl kaum auf der Luftlinie liegen

[jaenicke]

Routenplaner berücksichtigen ja die exakte Streckenführung. Deshalb ist da natürlich der Wert nicht Luftlinie sondern entspricht der zurückgelegten Strecke.

Allgemein kann man das ja nicht berechnen ohne die tatsächlichen Daten zur Streckenführung zu haben, wie es bei Routenplanern der Fall ist.

[sx2008]

Ein Routenplaner ist ein recht komplexes Stück Software.
Falls dich das interessiert, kannst du ja mal OpenStreetMap anschauen.