Tag Info

New answers tagged

6

Please tell me if this meets your needs, I feel it does: Graphics3D[{{Yellow, Sphere[AstronomicalData["Sun", "Position"], 0.05]}, AstronomicalData[#, "OrbitPath"] & /@ otherCelestials}, Axes -> True, SphericalRegion -> True, ViewVector -> {{1, -2, 1}, {0, 0, 0}}] Manipulate[ Graphics3D[{{Yellow, ...


3

The orbit path is given in astronomical units whereas the position is given in meters, so you have to scale: UnitConvert[Quantity[1, "AstronomicalUnit"], "m"] (* Quantity[149597870700, "Meters"] *) Animate[ Graphics3D[ { (AstronomicalData[#, "OrbitPath"] /.Line[a__] :> Line[149597870700 a]) & /@ AstronomicalData["Planet"], ...


5

How about m = Quantity[AstronomicalData["Earth", "Mass"], AstronomicalData["Earth", "Mass", "Units"]] 5.9721986*10^24 kg m // FullForm Quantity[5.9721985999999999999999999999999999999999202`8.*^24,"Kilograms"]



Top 50 recent answers are included