求大神帮忙画mathematica的图.我找不出来哪儿错了.C和c不一样哦~
来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/08/10 08:05:28
求大神帮忙画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]]
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不一样哦~](/uploads/image/z/1440410-50-0.jpg?t=%E6%B1%82%E5%A4%A7%E7%A5%9E%E5%B8%AE%E5%BF%99%E7%94%BBmathematica%E7%9A%84%E5%9B%BE.%E6%88%91%E6%89%BE%E4%B8%8D%E5%87%BA%E6%9D%A5%E5%93%AA%E5%84%BF%E9%94%99%E4%BA%86.C%E5%92%8Cc%E4%B8%8D%E4%B8%80%E6%A0%B7%E5%93%A6%7E)
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]]
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]]
求大神帮忙画mathematica的图.我找不出来哪儿错了.C和c不一样哦~
求mathematica大神帮忙
请老师帮我看看写的对不对 另外有几个不会的语法填空和改错 是在找不出来哪里错了 求帮忙
C语言题目“CD Making”我编出来了,但在网页上提交时总提示wrong answer,求大神帮忙检查下哪里错了
求C语言大神帮忙看看哪错了
寻找矩阵的鞍点 C语言求大神帮忙找下错误
C语言的作业,求大神帮忙
C语言,输入半径求球体的体积,我到底哪儿错了啊,怎么是负值...
求一篇写给男友的日志要甜蜜一点的.我们在一起4个月了 我想自己写 可是我写不出来 找人帮忙、、
谁能帮忙找一下力克(Nick Vujicic)之我和世界不一样的演讲稿?谢谢了
Mathematica中C[ ]的含义
求大神用Mathematica帮我做两个图