24小时热门版块排行榜    

查看: 804  |  回复: 10
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

jackson316

铜虫 (初入文坛)

[求助] 求助画图

初学mathematica ,希望大家帮帮画一下一个方程的图像。非常感谢。
方程 : 2^(1/2)*(kx+ky)/E*Dn(z)=E*D(n-1)(z)

Dn(z)是ParabolicCylinderD函数
n=E^2/2
Z=2^(1/2)*ky
kx=(ky^2-E^2)^(1/2)

需要画出ky 和E的关系图像。
ky 的范围[-3,1]
E的范围[-3,3]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jackson316

铜虫 (初入文坛)

引用回帖:
5楼: Originally posted by xiaoqing8569 at 2013-10-22 14:27:44
一般用mathematica,对matlab不了解。
   MMTC一般情况下都可以搞定。...

呵呵。还有个问题还得麻烦一下。最近急用来不及学mathematica.
参量表达式:
d=1;q1=ky-d/2;q2=ky+d/2;
E^2=kx^2+q1^2;  p=E^2/2;
kx1=sqrt(E^2-q2^2);
alpha1=exp(-i*kx*d/2);alpha2=exp(i*kx*d/2);
alpha3=D(p-1,2^(1/2)*q1);alpha4=D(p-1,-2^(1/2)*q1);
r1=(i*2^(1/2)/E)*D(p,2^(1/2)*q1);r2=(i*2^(1/2)/E)*D(p,-2^(1/2)*q1);
r3=exp(i*kx1*d/2);
w1=D(p-1,2^(1/2)*q2);w2=D(p-1,-2^(1/2)*q2);
n1=(i*2^(1/2)/E)*D(p,2^(1/2)*q2);n2=(i*2^(1/2)/E)*D(p,-2^(1/2)*q2);
phi1=arctan(q1/kx); phi2=arctan(q2/kx1);

f1=n2+w2*exp(i*phi2); f2=n1-w1*exp(i*phi2);
g1=r1+alpha3*exp(-i*phi1);g2=r2+alpha4(-i*phi1);

t=2*(n2*w1+n1*w2)*alpha1*cos(phi1)/(r3*(f1*g1-f2*g2));
T=kx1/kx*|t|^2;

要画出T以kx,ky为变量的三维等高图。kx=0:2;  ky=-2:2;

非常感谢你的帮忙!
8楼2013-10-23 10:43:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

xiaoqing8569

铁杆木虫 (著名写手)

奥林匹亚光学院院长

【答案】应助回帖

感谢参与,应助指数 +1
n = e^2/2;
z = 2^(1/2)*ky;
kx = (ky^2 - e^2)^(1/2);
ContourPlot[
2^(1/2)*(kx + ky)/e*ParabolicCylinderD[n, z] ==
  e*ParabolicCylinderD[n - 1, z], {ky, -3, 1}, {e, -3, 3}]
2楼2013-10-19 21:40:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jackson316

铜虫 (初入文坛)

送红花一朵
非常感谢,为画出图形了。
3楼2013-10-20 22:29:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jackson316

铜虫 (初入文坛)

引用回帖:
2楼: Originally posted by xiaoqing8569 at 2013-10-19 21:40:17
n = e^2/2;
z = 2^(1/2)*ky;
kx = (ky^2 - e^2)^(1/2);
ContourPlot

再想请教一下,matbal能否调用ParabolicCylinderD呢?如何调用?谢谢。
4楼2013-10-22 11:48:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见