Posts

Showing posts from January 6, 2019

Camarões nos Jogos Olímpicos de Verão de 2012

Image
Camarões nos Jogos Olímpicos de Verão de 2012 Comitê Olímpico Nacional Código do COI CMR Nome Comité National Olympique et Sportif du Cameroun site oficial (em francês) Jogos Olímpicos de Verão de 2012 Sede Londres, Reino Unido Competidores 21 em 4 esportes Medalhas Pos. n/d 0 0 0 0 Participações nos Jogos Olímpicos Verão 1964 • 1968 • 1972 • 1976 • 1980 • 1984 • 1988 • 1992 • 1996 • 2000 • 2004 • 2008 • 2012 • 2016 Inverno 2002

Plotting an Equation Using ParametricNDSolve

Image
4 2 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 ev