I have some code that works nicely, for what I want, but when I try to get a DensityPlot
or ContourPlot
, it will not work as it is a parametric equation using NDSolve
. Is there a way to get a DensityPlot
of this code?
ClearAll["Global`*"]; Show[
Table[sol =
NDSolve[{D[xtraj[t],
t] == (Sinh[2 xtraj[t] (t - 2)])/(Cosh[2 xtraj[t] (t - 2)]),
xtraj[0] == n}, xtraj[t], {t, 0, 4}];
ParametricPlot[{xtraj[t], t} /. sol, {t, 0, 4},
PlotRange -> All], {n, -3, 4 - 1, 1}]]