Wie schwer ist es?
Das Gewicht eines Objekts in einem Gravitationsfeld ist das Produkt seiner Masse und der herrschenden Gravitationskraft. Auf der Erdoberfläche ist die Gravitationskraft nicht konstant, daher ist dasselbe Objekt an unterschiedlichen Orten unterschiedlich schwer. Dieses Beispiel befasst sich mit den durch Höhe und Breitengrad bedingten Schwankungen der Gravitationsfeldstärke.
GeogravityModelData berechnet Eigenschaften des Gravitationsfelds der Erde an einem bestimmten Ort.
![Click for copyable input](assets.de/how-much-does-it-weigh/In_98.png)
GeogravityModelData[GeoPosition[{0, 0}]]
![](assets.de/how-much-does-it-weigh/O_81.png)
Die dazu verwendeten topographischen Höhendaten stammen von GeoElevationData.
![Click for copyable input](assets.de/how-much-does-it-weigh/In_99.png)
GeoElevationData[GeoPosition[{0, 0}]]
![](assets.de/how-much-does-it-weigh/O_82.png)
Lässt man andere Faktoren beiseite, ist das Gravitationsfeld an einem Ort mit ähnlichem Breitengrad, der aber höher gelegen ist, normalerweise kleiner.
![Click for copyable input](assets.de/how-much-does-it-weigh/In_100.png)
GeoPosition[Entity["City", {"Quito", "Pichincha", "Ecuador"}]]
![](assets.de/how-much-does-it-weigh/O_83.png)
![Click for copyable input](assets.de/how-much-does-it-weigh/In_101.png)
GeoPosition[Entity["City", {"Quito", "Pichincha", "Ecuador"}]];
{GeoElevationData[%, UnitSystem -> "Metric"],
GeogravityModelData[%, "Magnitude"]}
![](assets.de/how-much-does-it-weigh/O_84.png)
Berechnen Sie die Gravitationsfeldstärke an äquidistanten Punkten am Äquator.
![Click for copyable input](assets.de/how-much-does-it-weigh/In_102.png)
equatorialgravity =
GeogravityModelData[{GeoPosition[{0, -180}], GeoPosition[{5, 180}]},
"Magnitude"][[1]]
![](assets.de/how-much-does-it-weigh/O_85.png)
![Click for copyable input](assets.de/how-much-does-it-weigh/In_103.png)
ListPlot[equatorialgravity, Joined -> True]
![](assets.de/how-much-does-it-weigh/O_86.png)
Das Diagramm zeigt zwei ausgeprägte Spitzen, die der Landmasse und dem Boden der Ozeane entsprechen.
![Click for copyable input](assets.de/how-much-does-it-weigh/In_104.png)
Histogram[equatorialgravity, 20]
![](assets.de/how-much-does-it-weigh/O_87.png)
Legen Sie die Größenvisualisierung des Gravitationsfeldes über eine Reliefkarte der Erde.
![Click for copyable input](assets.de/how-much-does-it-weigh/In_105.png)
equatorialgravityplot =
ListPlot[equatorialgravity, Axes -> False, Joined -> True,
AspectRatio -> 1/8, PlotRangePadding -> None, ImagePadding -> None,
ImageSize -> 400, PlotStyle -> Red];
![Click for copyable input](assets.de/how-much-does-it-weigh/In_106.png)
worldmap =
GeoGraphics[GeoPath["Equator"], GeoRange -> "World",
ImageSize -> 400, GeoBackground -> "ReliefMap"];
![Click for copyable input](assets.de/how-much-does-it-weigh/In_107.png)
Overlay[{worldmap, equatorialgravityplot}, Alignment -> Center]
![](assets.de/how-much-does-it-weigh/O_88.png)
Um die Stärkenschwankung des Gravitationsfeldes je nach Breitengrad zu verdeutlichen, nehmen wir den jeweiligen Durchschnittswert der Gravitationsfeldstärke der Längengrade und stellen das Ergebnis in Bezug auf Breitengrade dar.
![Click for copyable input](assets.de/how-much-does-it-weigh/In_108.png)
gravity =
Mean /@ GeogravityModelData[{GeoPosition[{-90, -180}],
GeoPosition[{90, 180}]}, "Magnitude"];
Die Antarktis hat aufgrund der zusätzlichen Höhe bei niedrigen Breitengraden eine offensichtliche Wirkung.
![Click for copyable input](assets.de/how-much-does-it-weigh/In_109.png)
ListPlot[gravity, DataRange -> {-90, 90}]
![](assets.de/how-much-does-it-weigh/O_89.png)
![Click for copyable input](assets.de/how-much-does-it-weigh/In_110.png)
MinMax[gravity]
![](assets.de/how-much-does-it-weigh/O_90.png)
Daher kann das Gewicht eines beliebigen Objekts um 0,5 % schwanken, je nachdem, wo es gemessen wird.
![Click for copyable input](assets.de/how-much-does-it-weigh/In_111.png)
MinMax[gravity];
1 - First[%]/Last[%]