求大神帮忙画mathematica的图.我找不出来哪儿错了.C和c不一样哦~
题目
求大神帮忙画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]]
答案
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...
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 您的目的地到了 英语怎么说
- 设二维随机变量(X,Y)的联合概率密度为f(x,y)={e的-y次方 ,0
- 以r开头的形容词(形容人的脸)
- 英语翻译
- 水果店里有苹果200斤,运来的雪梨比苹果多五分之四,运来的雪梨比苹果多多少斤?
- 甲、乙、丙三人合买一台电冰箱,甲付的1/2等于乙付的1/3,等于丙付的3/7,已知丙比甲多付120元这台冰箱多少
- This kind of food is very p____ in our city 填空
- 在点x=0处的导数等于零的函数是?
- 有一部电影的片段是,两父子坐在草坪的长椅上,父亲不停的问他的儿子这是什么鸟?这是什么鸟?
- 请问和我解释下主格与宾格?
热门考点