level 2
各位大神,想画出θf0,0(x)关于x的函数图像,程序没报错但图出不来,请各位指教,代码如下:
\[CapitalGamma] = 1.5;
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\) = 40; \[Beta] = 0.01; \
Subscript[\[Epsilon]De,
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)] = 1; \[CapitalLambda] = \
0.8; Pe = 0.05; \[Gamma] = 0.01;
Subscript[\[Kappa], 1] = 1 - Tanh[
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)]/
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\) + Subscript[\[Epsilon]De,
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)]*(Cosh[3*
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)] - Sinh[3*
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)]/(3*
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)) - 9*Cosh[
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)] + (9*Sinh[
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)])/
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\))/(6*(Cosh^3)[
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)])
\!\(TraditionalForm\`
SubscriptBox["\[Theta]",
RowBox[{
RowBox[{
StyleBox["f", "TI"], "0"}], ",",
"0"}]]\)[\[Chi]] = -(1 - \[CapitalLambda])*(1 -
Exp[(Pe*Subscript[\[Kappa], 1])/\[Beta]*\[Chi]])/(
Pe*Subscript[\[Kappa],
1]*(1 - Exp[(
Pe*Subscript[\[Kappa],
1])/\[Beta]])) + (1 - \[CapitalLambda])*\[Chi]/(
Pe*Subscript[\[Kappa], 1])
Plot[%3, {\[Chi], 0, 1}, Frame -> True,
FrameLabel -> {"\[Chi]", "\!\(\*FormBox[SubscriptBox[\"\[Theta]\",
RowBox[{
RowBox[{
StyleBox[\"f\", \"TI\"], \"0\"}], \",\", \"0\"}]],
TraditionalForm]\)[\[Chi]]"}, FrameTicks -> Automatic]

2024年05月04日 09点05分
1
\[CapitalGamma] = 1.5;
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\) = 40; \[Beta] = 0.01; \
Subscript[\[Epsilon]De,
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)] = 1; \[CapitalLambda] = \
0.8; Pe = 0.05; \[Gamma] = 0.01;
Subscript[\[Kappa], 1] = 1 - Tanh[
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)]/
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\) + Subscript[\[Epsilon]De,
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)]*(Cosh[3*
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)] - Sinh[3*
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)]/(3*
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)) - 9*Cosh[
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)] + (9*Sinh[
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)])/
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\))/(6*(Cosh^3)[
\!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)])
\!\(TraditionalForm\`
SubscriptBox["\[Theta]",
RowBox[{
RowBox[{
StyleBox["f", "TI"], "0"}], ",",
"0"}]]\)[\[Chi]] = -(1 - \[CapitalLambda])*(1 -
Exp[(Pe*Subscript[\[Kappa], 1])/\[Beta]*\[Chi]])/(
Pe*Subscript[\[Kappa],
1]*(1 - Exp[(
Pe*Subscript[\[Kappa],
1])/\[Beta]])) + (1 - \[CapitalLambda])*\[Chi]/(
Pe*Subscript[\[Kappa], 1])
Plot[%3, {\[Chi], 0, 1}, Frame -> True,
FrameLabel -> {"\[Chi]", "\!\(\*FormBox[SubscriptBox[\"\[Theta]\",
RowBox[{
RowBox[{
StyleBox[\"f\", \"TI\"], \"0\"}], \",\", \"0\"}]],
TraditionalForm]\)[\[Chi]]"}, FrameTicks -> Automatic]
