求助大神 为什么我的这段程序输出不了图像呢?
mathematica吧
全部回复
仅看楼主
level 1
Haniel_Z 楼主
程序如下,我想问问是我的哪里语言出了问题吗?
\[Lambda] = 800*10^-9;
\[CapitalLambda] = 7.3*10^-6;
\[CapitalDelta]n = 1250*10^-5;
\[Kappa] = Pi*\[CapitalDelta]n/\[Lambda];
n = 2.211;
cs = Sqrt[1 - (\[Lambda]/(2*\[CapitalLambda]))^2];
cr = cs;
v = (2*Pi*dea)/\[CapitalLambda];
k1 = -1/2*(I*v/cs) + 1/2*Sqrt[(-I*v/cs)^2 - 4*\[Kappa]^2/(cs*cr)];
k2 = -1/2*(I*v/cs) - 1/2*Sqrt[(-I*v/cs)^2 - 4*\[Kappa]^2/(cs*cr)];
ss = ((I*\[Kappa])/(cs*(k1 - k2)))*(Exp[k2*z] - Exp[k1*z]);
Plot3D [ss, {z, -100000000, 20000000000000000000}, {dea, -1, 1}]
2019年11月08日 07点11分 1
吧务
level 15
你加个Abs……
2019年12月07日 13点12分 2
1