I try to combine three list plots with the Show
command. Here is the first one:
asteroidCount =
BinCounts[
Sort@Cases[(AstronomicalData[#, "SemimajorAxis"]/149597870691) & /@
Join[AstronomicalData["InnerMainBeltAsteroid"],
AstronomicalData["MainBeltAsteroid"],
AstronomicalData["OuterMainBeltAsteroid"]], x_?NumberQ], {2,
3.5, .005}];
m = ListPlot[asteroidCount, Joined -> True, Filling -> 0, Mesh -> All,
Ticks -> {Table[{Rescale[x, {2, 3.5}, {0, 301}], x}, {x, 2,
3.5, .2}], Automatic}]
The second one:
omega[a_] := 2 Pi/a^(3/2);
k = ListPlot[
Flatten[Table[{a /. FindRoot[omega[a]/omega[5.2] == j/i, {a, 1}],
700}, {j, 5, 6, 1}, {i, 1, 5, 1}], 1], Filling -> Axis,
PlotRange -> {{0, 15}, {0, 800}}, PlotMarkers -> Automatic,
PlotStyle -> Black, Filling -> Axis, FillingStyle -> {Red},
Epilog -> {AbsolutePointSize[8], Black,
Text["\!\(\*SubscriptBox[\(M\), \(J\)]\)", {5.2, 1}],
Point[{5.2, 0.1}]
}]
And finally the third one:
l = ListPlot[
Flatten[Table[{a /. FindRoot[omega[a]/omega[5.2] == j/i, {a, 1}],
700}, {j, 1, 5, 1}, {i, 5, 6, 1}], 1], Filling -> Axis,
PlotRange -> {{0, 15}, {0, 800}}, PlotMarkers -> Automatic,
PlotStyle -> Black, Filling -> Axis, FillingStyle -> {Red},
Epilog -> {AbsolutePointSize[8], Black,
Text["\!\(\*SubscriptBox[\(M\), \(J\)]\)", {5.2, 1}],
Point[{5.2, 0.1}]
}]
When I use Show[k,l,m]
I see only the last two plots (l
and m
) and I don't know why... Can someone help me please?
omega
abovek
as it depends on it, also. $\endgroup$ – rcollyer Mar 15 '13 at 2:48Show
? $\endgroup$ – Jonathan Shock Mar 15 '13 at 2:50