# Tag Info

## New answers tagged astronomy

4

Because the Asteroid belt's mass is negligible (only 4% of the Moon's mass), it is not very efficient to include it in your simulations. However for doing so I have two methods for approximation: Only consider the top massive objects in asteroid belt (i.e Ceres, Vesta, etc), which include more than 50 percent of the belt's total mass Use the gravitational ...

2

With help from Sander Huisman on Wolfram Community: Wolram Community linkParallelisation? LaunchKernels[8] AbsoluteTiming[Length[listClassMStar = ParallelMap[StarData[m1, #] &, vars]]] My summary: The Length value on the output was coming out as 10, which really threw me. But Transpose corrected that. My computer is older with only 2 CPUs so my ...

0

Wow was that simple. {{xAxis, 6}, {4 -> "BVColorIndex", 5 -> "Temperature", 6 -> "Mass", 7 -> "Luminosity", 8 -> "AbsoluteMagnitude"}}, {{yAxis, 7}, {5 -> "Temperature", 6 -> "Mass", 7 -> "Luminosity", 8 -> "AbsoluteMagnitude"}}, {{tooltip, 3}, {1 -> "Name", 3 -> "SpectralClass"}},

1

This is a refactored / slimmed version of the code in your answer: Manipulate[ With[{selected = category[[startPosition ;; endPosition]]}, BarChart[ selected[[All, whichBarChart]], ChartLabels -> selected[[All, label]], BarOrigin -> Left, ImageSize -> Large ] ], {{startPosition, 1}, {1, 6}}, {{endPosition, 5}, {5, 10}}, {...

1

Got it. Removed Take and All, replacing with Range[startPosition,endPosition] Manipulate[ Switch[whichBarChart, 5, BarChart[category[[Range[startPosition, endPosition], 5]], ChartLabels -> category[[Range[startPosition, endPosition], label]], BarOrigin -> Left, ImageSize -> Large], 6, BarChart[category[[Range[startPosition, ...

0

That worked zKarp. Thank you! Still have to associate text to the selected numerical values but looks really good so far: Manipulate[ plotType[ With[{c1 = column1, c2 = column2}, Tooltip[{Slot[c1], Slot[c2]}, {Slot[3], Slot[c1], Slot[c2]}] &] @@@ category, PlotRange -> Automatic, ImageSize -> Large, AxesLabel -> {"BVColorIndex", "...

0

Joseph, You have to use the function With So your line should be as follows With[{c1=column1},Tooltip[{c1, #7}, {#3, #6, #7}] &] @@@ category,

Top 50 recent answers are included