I would like to superpose several plots : - one which uses a Manipulate function with a parameter - and 4 plots which stays at the background and which are instanciations with four fix values of the parameter which is used in the Manipulate function.
Here you can find the function that i'm plotting :
AbsDepdimen[λ_][r_]:=1/Sqrt[(1 - r^2)^2 + 4 r^2 λ^2]
Here the code that i have tried without success :
Show[Manipulate[
Plot[AbsDepdimen[\[Lambda]][r], {r, 0, 2}, PlotRange -> {0, 5},
AxesLabel -> {Subscript[\[Omega], r], \!\(TraditionalForm\`
\*FractionBox[\(X\),
SubscriptBox[\(X\), \(st\)]]\)}], {\[Lambda], 0, 2}],
Plot[AbsDepdimen[0.0001][r], {r, 0, 2}, PlotRange -> {0, 5},
AxesLabel -> {Subscript[\[Omega], r], \!\(TraditionalForm\`
\*FractionBox[\(X\),
SubscriptBox[\(X\), \(st\)]]\)}],
Plot[AbsDepdimen[0.02][r], {r, 0, 2}, PlotRange -> {0, 5},
AxesLabel -> {Subscript[\[Omega], r], \!\(TraditionalForm\`
\*FractionBox[\(X\),
SubscriptBox[\(X\), \(st\)]]\)}],
Plot[AbsDepdimen[0.2][r], {r, 0, 2}, PlotRange -> {0, 5},
AxesLabel -> {Subscript[\[Omega], r], \!\(TraditionalForm\`
\*FractionBox[\(X\),
SubscriptBox[\(X\), \(st\)]]\)}],
Plot[AbsDepdimen[0.8][r], {r, 0, 2}, PlotRange -> {0, 5},
AxesLabel -> {Subscript[\[Omega], r], \!\(TraditionalForm\`
\*FractionBox[\(X\),
SubscriptBox[\(X\), \(st\)]]\)}]]
Can you help me to find a way to combine Manipulate[Plot[]] and Plot[] (the classic one) in on the same graph as it is possible to do with Show function ?
Thank you for your help
Manipulate
. You may want to nestDynamic
to avoid recalculation of what is a static graphic. See mathematica.stackexchange.com/q/148405/5478 $\endgroup$