求大神帮忙画mathematica的图.我找不出来哪儿错了.C和c不一样哦~B3 = 1/8 E^(-2 r) (-2 + (-1 + E^(4 r))/(I - 2 l)^2 - (4 E^(4 r))/(-I + l)^2 - (4 E^(4 r))/(I + l)^2 + (-1 + E^(4 r))/(I + 2 l)^2 + (2 HurwitzZeta[2,1/Tc])/Tc^2 + (6 E^(

来源：学生作业帮助网 编辑：作业帮 时间：2024/07/20 06:11:45
求大神帮忙画mathematica的图.我找不出来哪儿错了.C和c不一样哦~B3 = 1/8 E^(-2 r) (-2 + (-1 + E^(4 r))/(I - 2 l)^2 - (4 E^(4 r))/(-I + l)^2 - (4 E^(4 r))/(I + l)^2 + (-1 + E^(4 r))/(I + 2 l)^2 + (2 HurwitzZeta[2,1/Tc])/Tc^2 + (6 E^(
xTOPW}Z1č%l%H'o/xW4s+  (($DA0Ac0q?uO vc /r_9Tc[*֖vr裫zZ>}Yݭ[37GkZ~ґ^ͩU)MV׿Yq h8? W/;)GC} d@AP@?>-F28b5CYTqɬ 㳴6om0fl0m:e},-ݟ'cp.R1W~NodH}t0.Z^J>-5Fݍ;ut1C5A/fpLbc(nm:q^"T`) c$ 5Lh7@e80E74!jȱ ՊpV# M3JHFE f:? NWrmNT8U›Q T`t+da#Hnh`:On")u"R^2Dnj9Dˑ%Z, $C΁60E-ot^arPxhU<.^c}Չ>zŭ}qU z = JxYB$Z/T\J2#S)P+mEZEj~eofw kkx:뛏1`Tӕ[*x²qyh&1bi֗HY~X

求大神帮忙画mathematica的图.我找不出来哪儿错了.C和c不一样哦~B3 = 1/8 E^(-2 r) (-2 + (-1 + E^(4 r))/(I - 2 l)^2 - (4 E^(4 r))/(-I + l)^2 - (4 E^(4 r))/(I + l)^2 + (-1 + E^(4 r))/(I + 2 l)^2 + (2 HurwitzZeta[2,1/Tc])/Tc^2 + (6 E^(
求大神帮忙画mathematica的图.我找不出来哪儿错了.C和c不一样哦~
B3 = 1/8 E^(-2 r) (-2 + (-1 + E^(4 r))/(I - 2 l)^2 - (
4 E^(4 r))/(-I + l)^2 - (
4 E^(4 r))/(I + l)^2 + (-1 + E^(4 r))/(I + 2 l)^2 + (
2 HurwitzZeta[2,1/Tc])/Tc^2 + (6 E^(4 r) HurwitzZeta[2,1/Tc])/
Tc^2 + 6 E^(4 r) (-1 + HurwitzZeta[2,1/Tc]/Tc^2) + (
2 PolyGamma[1,1/Tc])/Tc^2 - (
8 E^(4 r) PolyGamma[1,(1 - I l)/Tc])/Tc^2 - (
8 E^(4 r) PolyGamma[1,(1 + I l)/Tc])/Tc^2 + (
2 (-1 + E^(4 r)) PolyGamma[1,(1 - 2 I l)/Tc])/Tc^2 + (
2 (-1 + E^(4 r)) PolyGamma[1,(1 + 2 I l)/Tc])/Tc^2)
Tc = 0.8
ct = l
a = 0.01
r = 0.31
Plot3D[Max[0,
2 E^(-4 a*B3)*abs[\[Alpha]*Sqrt[1 - \[Alpha]^2]]],{\[Alpha],0,
1},{l,0,20},
AxesLabel -> {\[Alpha]^2,
"\!\(\*SubscriptBox[\"\[Omega]\",\"c\"]\)t",
"\!\(\*SubscriptBox[\"C\",\"\[CapitalPsi]\"]\)(t)"},
LabelStyle -> Directive[Bold],AxesStyle -> Directive[14]]

求大神帮忙画mathematica的图.我找不出来哪儿错了.C和c不一样哦~B3 = 1/8 E^(-2 r) (-2 + (-1 + E^(4 r))/(I - 2 l)^2 - (4 E^(4 r))/(-I + l)^2 - (4 E^(4 r))/(I + l)^2 + (-1 + E^(4 r))/(I + 2 l)^2 + (2 HurwitzZeta[2,1/Tc])/Tc^2 + (6 E^(
Clear["`*"]
Tc = 0.8;
a = 0.01;
r = 0.31;
B3[l_] :=
1/8 E^(-2 r) (-2 + (-1 +
E^(4 r))/(I - 2 l)^2 - (4 E^(4 r))/(-I +
l)^2 - (4 E^(4 r))/(I + l)^2 + (-1 +
E^(4 r))/(I + 2 l)^2 + (2 HurwitzZeta[2,1/Tc])/
Tc^2 + (6 E^(4 r) HurwitzZeta[2,1/Tc])/Tc^2 +
6 E^(4 r) (-1 +
HurwitzZeta[2,1/Tc]/Tc^2) + (2 PolyGamma[1,1/Tc])/
Tc^2 - (8 E^(4 r) PolyGamma[1,(1 - I l)/Tc])/
Tc^2 - (8 E^(4 r) PolyGamma[1,(1 + I l)/Tc])/
Tc^2 + (2 (-1 + E^(4 r)) PolyGamma[1,(1 - 2 I l)/Tc])/
Tc^2 + (2 (-1 + E^(4 r)) PolyGamma[1,(1 + 2 I l)/Tc])/Tc^2);
f[\[Alpha]_,l_] :=
Max[0,Re[2 E^(-4 a*B3[l])*Abs[\[Alpha]*Sqrt[1 - \[Alpha]^2]]]];
Plot3D[f[\[Alpha],l],{\[Alpha],0,1},{l,0,20},
AxesLabel -> {\[Alpha]^2,
"\!\(\*SubscriptBox[\"\[Omega]\",\"c\"]\)t",
"\!\(\*SubscriptBox[\"C\",\"\[CapitalPsi]\"]\)(t)"},
LabelStyle -> Directive[Bold],AxesStyle -> Directive[14]]

C与c是不同的变量？还是相同的变量？你是要画C与c*t这二者之间的关系图吗？你还是要画C与c、t这三者之间的关系图？