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
\[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}]