绘制三维图像时，第一个自变量ϕ∈（0,1），第二个自变量δ∈（0,1）且δ∈（0，f(ϕ)）,f(ϕ)=(4ϕ-3ϕ^2)/(2(-1-ϕ+2ϕ^2))+1/2 √((4+4ϕ^2-16ϕ^3+9ϕ^4)/〖(-1-ϕ+2ϕ^2)〗^2 )。
不知道使用RegionFunction函数进行约束是否正确？请大神帮助看一下。
以下是运行代码：
Subscript[\[Alpha], t] = 10;
Subscript[\[Alpha], r] = 40;
Subscript[p, eNd] =
1/12 (3 Subscript[\[Alpha],
r] + ((-3 - 3 \[Delta] + 3 \[Phi] +
2 \[Delta] \[Phi]) Subscript[\[Alpha],
t])/((1 + \[Delta]) (-1 + \[Phi])));
p3 = Plot3D[Subscript[p, eNd], {\[Phi], 0, 1}, {\[Delta], 0, 1},
RegionFunction ->
Function[{\[Phi], \[Delta], z},
0 < \[Delta] < (4 \[Phi] - 3 \[Phi]^2)/(
2 (-1 - \[Phi] + 2 \[Phi]^2)) +
1/2 Sqrt[(
4 + 4 \[Phi]^2 - 16 \[Phi]^3 +
9 \[Phi]^4)/(-1 - \[Phi] + 2 \[Phi]^2)^2]],
PlotLegends -> {"\!\(\*SubsuperscriptBox[\(p\), \(e\), \
SuperscriptBox[\(Nd\), \(*\)]]\)"}, PlotStyle -> {Yellow},
LabelStyle -> Directive[Black, 12, FontFamily -> "Times New Roman"],
AxesLabel -> {Style[\[CurlyPhi], Bold, Black],
Style[\[Delta], Bold, Black],
Style[Subscript[p, e], Bold, Black]},
LabelStyle -> Directive[12, FontFamily -> "Times New Roman"]]

RegionFunction可以，只要你写对了