The Parametric Plot of 2 NDSolve solutions do not show its results whenever I try to merge two plots into a single one. I've also tried using Show[a,b] and GraphicsOverlay[a,b] but the Show function does not graphs well and GraphicsOverlay function only shows only one of the graphs. What do I do to fix this?
NumericalDiffequaWithout1 =
Table[NDSolve[{q[\[Phi]] + q''[\[Phi]] == -(0.02/(1 + q[\[Phi]]))^2,
q[0] == 0.1*k, q'[0] == 0.1*k}, q, {\[Phi], 0, 50}], {k, 1, 5}];
NumericalDiffequaWith1 =
Table[NDSolve[{q[\[Phi]] + q''[\[Phi]] == -(0.01/(1 + q[\[Phi]]))^2,
q[0] == 0.1*k, q'[0] == 0.1*k}, q, {\[Phi], 0, 50}], {k, 1, 5}];
TestParametricPlotA =
ParametricPlot[{{Evaluate[{q[\[Phi]], q'[\[Phi]]} /.
NumericalDiffequaWith1]}}
, {\[Phi], 0, 50}, AxesLabel -> {q[\[Phi]], \[Phi]},
PlotRange -> All, PlotStyle -> Pink]
TestParametricPlotB =
ParametricPlot[{{Evaluate[{q[\[Phi]], q'[\[Phi]]} /.
NumericalDiffequaWithout1]}}
, {\[Phi], 0, 50}, AxesLabel -> {q[\[Phi]], \[Phi]},
PlotRange -> All, PlotStyle -> Purple]
TestParametricPlotC =
ParametricPlot[{{Evaluate[{q[\[Phi]], q'[\[Phi]]} /.
NumericalDiffequaWith1]}, {Evaluate[{q[\[Phi]], q'[\[Phi]]} /.
NumericalDiffequaWithout1]}}
, {\[Phi], 0, 50}, AxesLabel -> {q[\[Phi]], \[Phi]},
PlotRange -> All]
Gives the results:
Where TestParametricPlotA and TestParametricPlotB works but combining them in TestParametricPlotC doesn't work.