level 1
Clear["Global`*"]
pim[d_, cn_,
b_] := ((2 - d) (12 - 12 d +
d^2) (2 - 2 cn + b - d)^2)/(4 (8 - 8 d + d^2)^2);
\[ScriptCapitalD] = ImplicitRegion[0 < d < 1 \[Or] 2 < d < 3, {d}];
Manipulate[
Plot[pim[d, cn, b], {d} \[Element] \[ScriptCapitalD],
PlotLegends -> {\[Pi]}], {cn, 0, 1}, {b, -0.2, 1}]
2023年01月11日 14点01分
