Hierzu musste ich erstmal den Radius der Erde wissen.
Nachdem ich den Radius wusste, konnte ich schon mal den Abstand vom Equator zum Breitengrad bestimmen.
Dies ging jedoch nicht so einfach beim Längengrad zum Nullmeridian.
Denn der Umfang jedes Breitengrades wird ja Richtung Nord bzw Südpol geringer.
Dies nicht lineal, sondern trigonometrisch.
Das bedeutet, dass ich den Cosinuswert an einem Einheitskreis herausfinden musste.
hier der freebasic Code:
Code: Alles auswählen
screenres 200,200,32
dim as double laengengrad, breitengrad, pi,r,U,breitengrad1, x,y
laengengrad =8.607150000000001
breitengrad =49.794829
pi = 3.14159265
'Der Radius der Erde
r=6371
'Den Umfang des Laengengrades bestimmen = ist immer gleich dieser Umfang
U = Pi *(r+r)
'Hier den Breitengrad ins Bogenmaß bringen
breitengrad1 = breitengrad * PI / 180
'hiermit habe ich erst einmal den Kosinuswert
x = cos(breitengrad1)
'mit Hilfe des Kosinuswertes, kann ich jetzt den Umfang des Breitengrades berechnen
x = x * (r+r) * Pi
'Anschliessend durch 360 teilen und mal den Laengengrad nehmen.
x = x /360 * laengengrad
print x
'Und hier einen Kreissegment berechnet.
'Kreissegment = Abstand vom Equator zum gegebenen Breitengrad
y= U * (Breitengrad/360)
print y
sleep
Stimmt der Radius?
Cu Andy