Satellitter til GPS

Lavet af Frede Dybkjaer

Vis linjer til B

Start animation

Stop animation

I tegneblok 2 kan man vælge en af opgavens fire 
danske byer, en af de tre satellitter og se afstanden.

Vis øvelsens tre satellitter

Vælg øvelsens satellit A

Vælg øvelsens satellit B

Vælg øvelsens satellit C

Vælg Esbjerg

Vælg Skagen

Vælg Rønne

Vælg Svendborg

Esbjerg

Satellit A

Vælg en af satellitterne:

Vælg en af byerne:

Vis byen, satellitten og linjen mellem dem

Vis horisontplanet gennem byen

sat3 = 5.35 (slider from 0 to 6.28, step 0.05)
sat2 = 4.4 (slider from 0 to 6.28, step 0.05)
JordKugle = Sphere((0, 0, 0), 6.378)
B = PointIn(JordKugle)
sat1 = 1.25 (slider from 0 to 6.28, step 0.05)
f = Line((0, 0, 0), (1, 1, 5))
k = Line((0, 0, 0), (0, 2, 1))
BaneSat3 = Circle((0, 0, 0), 26.548, k)
b = true
KugleSat3 = Sphere(((26.548 * cos(sat3)), (11.8726 * sin(sat3)), ((-23.7453) * sin(sat3))), 1)
LinBsat3 = Segment(((26.548 * cos(sat3)), (11.8726 * sin(sat3)), ((-23.7453) * sin(sat3))), B)
BaneSat2 = Circle((0, 0, 0), 26.548, f)
KugleSat2 = Sphere((((-18.7723) * cos(sat2)) - (18.0636 * sin(sat2)), (18.7723 * cos(sat2)) - (18.0636 * sin(sat2)), (7.2255 * sin(sat2))), 1)
LinBsat2 = Segment(B, (((-18.7723) * cos(sat2)) - (18.0636 * sin(sat2)), (18.7723 * cos(sat2)) - (18.0636 * sin(sat2)), (7.2255 * sin(sat2))))
BaneSat1 = Circle((0, 26.548, 0), (0, -26.548, 0), (26.548, 0, 0))
KugleSat1 = Sphere(((26.548 * sin(sat1)), ((-26.548) * cos(sat1)), 0), 1)
LinBsat1 = Segment(((26.548 * sin(sat1)), ((-26.548) * cos(sat1)), 0), B)
CentSat1: ((26.548 * sin(sat1)), ((-26.548) * cos(sat1)), 0)
CentSat2: (((-18.7723) * cos(sat2)) - (18.0636 * sin(sat2)), (18.7723 * cos(sat2)) - (18.0636 * sin(sat2)), (7.2255 * sin(sat2)))
CentSat3: ((26.548 * cos(sat3)), (11.8726 * sin(sat3)), ((-23.7453) * sin(sat3)))
Ronne = (3.53, 0.925, 5.231)
Esbjerg = (3.573, 0.534, 5.256)
Skagen = (3.345, 0.628, 5.394)
Svendborg = (3.59, 0.676, 5.228)
OpgSatA = (14.308988, -5.208046, 21.746848)
OpgSatB = (2.644194, 14.99597, 21.746848)
OpgSatC = (14.380394, 12.066583, 18.772271)
tekst2: "Satellit  Afstand   Koordinater          
1  " + LinBsat2 + "   " + CentSat1 + " 
2  " + LinBsat1 + "   " + CentSat2 + " 
3  " + LinBsat3 + "   " + CentSat3 + " 
Enheden er tusinde km."
a = false
SatNu: OpgSatA
ByNu: Esbjerg
Afstandslinje = Segment(ByNu, SatNu)
tekst4: "Den valgte by nu er: " + NavnNu + " 
med koordinater: " + ByNu + "
Den valgte satellit nu er: " + SatNavnNu + "
med koordinater: " + SatNu + "
Afstanden er : " + Afstandslinje + " "
c = false
d = OrthogonalPlane(ByNu, Vector[(0, 0, 0), ByNu])
e = false
tekst1: "Punktet B på den grønne jord kan flyttes med musen.
Ved hjælp af afstandene til de tre satellitter og ved hjælp af 
satellitternes position kan man beregne koordinaterne for B.
Målt på tegningen er de nu:  " + B + ""