I’m trying to plot the solution of a set of differential equations and see how the solution changes when the value of a certain variable de is changed. The equations have solutions to the values of de which I have gotten individually using NDSolve but I am unable to replicate the result for all required values of de in one single program. I code I have written is:
om = 1; k = 1; L = 0.001; P = 1.3; eqns = { a'[t] == I*((de/om)*a[t] - (b[t] + Conjugate[b[t]])*a[t] -1/2) - (k/(2*om))*a[t], b'[t] == -I*((P*(Abs[a[t]])^2)/2 + b[t]) - (L/(2*om))*b[t], b[0] == 0, a[0] == 0}; s = ParametricNDSolve[eqns, {a[t], b[t]}, {t, 0, 100}, de, MaxSteps -> \[Infinity]] x[de] = b[de] + Conjugate[b[de]] Manipulate[Plot[Evaluate[x[de][t] ], {t, 0, 99}, PlotRange -> All], {de, 0.1, 1}] I have tried everything that I knew in my limited knowledge of Mathematica but I couldn’t get a solution. I hope someone can help me with this.
Thank you very much for your help!
The post Plotting an Equation Using ParametricNDSolve appeared first on 100% Private Proxies - Fast, Anonymous, Quality, Unlimited USA Private Proxy!.
