24小时热门版块排行榜    

查看: 800  |  回复: 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的回帖
回帖置顶 ( 共有1个 )

xiaoqing8569

铁杆木虫 (著名写手)

奥林匹亚光学院院长

jackson316: 回帖置顶 2013-10-23 11:04:02
引用回帖:
4楼: Originally posted by jackson316 at 2013-10-22 11:48:25
再想请教一下,matbal能否调用ParabolicCylinderD呢?如何调用?谢谢。...

一般用mathematica,对matlab不了解。
   MMTC一般情况下都可以搞定。
5楼2013-10-22 14:27:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

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的回帖

jackson316

铜虫 (初入文坛)

谢谢。
6楼2013-10-22 18:45:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jackson316

铜虫 (初入文坛)

请问一下,有谁知道matlab如何调用韦伯函数ParabolicCylinderD?还希望大家指教。
7楼2013-10-22 18:53:42
已阅   回复此楼   关注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的回帖

xiaoqing8569

铁杆木虫 (著名写手)

奥林匹亚光学院院长

引用回帖:
8楼: Originally posted by jackson316 at 2013-10-23 10:43:40
呵呵。还有个问题还得麻烦一下。最近急用来不及学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,2^(1/2)*q2)
这种D函数是什么意思?
9楼2013-10-23 15:12:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jackson316

铜虫 (初入文坛)

引用回帖:
9楼: Originally posted by xiaoqing8569 at 2013-10-23 15:12:21
D(p,2^(1/2)*q2)
这种D函数是什么意思?...

就是ParabolicCylinderD[n, z]
n=p;
z=sqrt(2)*q2;
10楼2013-10-23 15:16:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 jackson316 的主题更新
信息提示
请填处理意见