I have the following equation
p = 1.6; α = 0.001; r = 0.6; η = 0.04; ω = 1;
R ω p Sin[ω τ] + R ω p α - 9/4 r p R^3 ω - η p R == 0
I want to plot τ
in x axis in increasing and decreasing direction that is from 0 to 20 and then 20 to 0 and R
in Y axis. For this I have used the following command
Show[ContourPlot[R ω p Sin[ω τ] + R ω p α - 9/4 r p R^3 ω - η p R == 0,
{τ, 0, 20}, {R, 0, 2}, ContourStyle -> {Directive[Blue, Thick]}],
ContourPlot[R ω p Sin[ω τ] + R ω p α - 9/4 r p R^3 ω - η p R == 0,
{τ, 20, 0}, {R, 0, 2}, ContourStyle -> {Directive[Green, Thick]}]]
But this is not working. Please suggest what modification I need to do.
ScalingFunctions
might be helpful $\endgroup$ – user42582 Feb 2 '18 at 10:13