level 4
f = 1/(4 \[Theta]^2) (-c^2 + c (2 a + c) \[Theta] -
a (a + 2 c) \[Theta]^2 - (c k + p) (-2 a + c k +
p) \[Theta]^3 + ((-a + c k +
p)^2 \[Alpha]^2 \[Theta]^4)/(1 - \[Theta] + \[Alpha] (-1 +
2 \[Theta]))^2 - ((-a + c k +
p)^2 \[Alpha] \[Theta]^3 (-\[Theta] + \[Alpha] (-1 +
3 \[Theta])))/(\[Alpha] + \[Theta] -
2 \[Alpha] \[Theta])^2 + ((-1 + \[Alpha]) (-1 + \[Theta]) \
\[Theta] (a \[Alpha] \[Theta] +
c (-1 + \[Alpha] + \[Theta] -
2 \[Alpha] \[Theta]))^2)/(\[Alpha] (1 - \[Theta] + \[Alpha] \
(-1 + 2 \[Theta]))^2) + (\[Alpha]^2 \[Theta]^4 (-a \[Theta] +
a \[Alpha] (-1 + 3 \[Theta]) +
c (\[Alpha] + \[Theta] -
2 \[Alpha] \[Theta]))^2)/((\[Alpha] + \[Theta] -
3 \[Alpha] \[Theta])^2 (\[Alpha] + \[Theta] -
2 \[Alpha] \[Theta])^2))
Manipulate[
Plot[f, {\[Alpha], 0.5, 1}], {\[Theta], 0, 0.3}, {a, 3, 6}, {c, 1,
3}, {k, 0, 2}, {p, 0, 2}]
2024年05月07日 12点05分

