In[]:=
RotationalMassMetric[celestiaObject_]:={celestiaObject["Name"],celestiaObject["MomentOfInertia"]}
In[]:=
planetRotationalMassMetric[planetName_String]:=​​Module{rotationalMassMetrics},rotationalMassMetrics=MapRotationalMassMetric,JoinPlanetData[],
Ganymede
PLANETARY MOON
;​​Cases[rotationalMassMetrics,{planetName,q_}:>q][[1]]
In[]:=
​
(*ref:"Dipolar Magnetic Moment of the Bodies of the Solar System and the Hot Jupiters"​​byHectorJavierDurand-Manterola*)​​planetMagneticMoment[planetName_String]:=Module[{magneticMomentss},magneticMoments={{"Mercury",Quantity[4*^19,"Amperes"*"Meters"^2]},{"Venus",Quantity[2.6*^16,"Amperes"*"Meters"^2]},{"Earth",Quantity[7.84*^22,"Amperes"*"Meters"^2]},{"Mars",Quantity[7.1*^15,"Amperes"*"Meters"^2]},{"Jupiter",Quantity[1.55*^27,"Amperes"*"Meters"^2]},{"Saturn",Quantity[4.6*^25,"Amperes"*"Meters"^2]},{"Uranus",Quantity[3.9*^24,"Amperes"*"Meters"^2]},{"Neptune",Quantity[2.2*^24,"Amperes"*"Meters"^2]},{"Ganymede",Quantity[1.32*^20,"Amperes"*"Meters"^2]}};​​Cases[magneticMoments,{planetName,q_}:>q][[1]]]
planetMRvsMagMom[pn_]:={pn,planetRotationalMassMetric[pn],planetMagneticMoment[pn]}
data=Map[planetMRvsMagMom,Join[PlanetData[All,"Name"],{"Ganymede"}]];
In[]:=
data​​ListLogLogPlot[Tooltip[#[[2;;3]],#[[1]]]&/@data,PlotRange->All,FrameLabel->{"rot","mag"},PlotMarkers->"●"]
Out[]=
Mercury,
6.5×
35
10
kg
2
m
,
40000000000000000000
2
m
A
,Venus,
5.9×
37
10
kg
2
m
,
2.6×
16
10
2
m
A
,Earth,
8.0358×
37
10
kg
2
m
,
7.84×
22
10
2
m
A
,Mars,
2.70×
36
10
kg
2
m
,
7.1×
15
10
2
m
A
,Jupiter,
2.36×
42
10
kg
2
m
,
1.55×
27
10
2
m
A
,Saturn,
4.05×
41
10
kg
2
m
,
4.6×
25
10
2
m
A
,Uranus,
1.26×
40
10
kg
2
m
,
3.9×
24
10
2
m
A
,Neptune,
1.8×
40
10
kg
2
m
,
2.2×
24
10
2
m
A
,Ganymede,
4.103×
35
10
kg
2
m
,
1.32×
20
10
2
m
A

Out[]=