level 1
earthz俊逸
楼主
\[lbk]Omega[rbk]m = \[lbk]Pi[rbk]*4.3*10^5;
m = 1.45*10^-7;
k1 = k2 = \[lbk]Omega[rbk]m;
\[lbk]CapitalDelta[rbk] = 1.2*\[lbk]Omega[rbk]m;
\[lbk]CapitalDelta[rbk]2 = 2*\[lbk]Omega[rbk]m;
P = 2*10^5;
e = 1.6*10^-19;
J = 1.5*k1;
\[lbk]CurlyTheta[rbk] = 0; G = 0;
\[lbk]HBar[rbk] = 1.05*10^-34;
L = 0.025;
\[lbk]Omega[rbk]L = (6*\[lbk]Pi[rbk]*10^8)/(1.064*10^-6);
g = (\[lbk]CapitalDelta[rbk] + \[lbk]Omega[rbk]L)/(L - Q);
Q = (\[lbk]HBar[rbk]*g*Abs[lbk]A[rbk]^2)/(m*\[lbk]Omega[rbk]m^2);
\[lbk]Omega[rbk]1 = ((\[lbk]CapitalDelta[rbk] + \[lbk]Omega[rbk]L)*L)/(L - Q);
\[lbk]CurlyEpsilon[rbk] = Sqrt[lbk](2*k1*P)/(\[lbk]HBar[rbk]*\[lbk]Omega[rbk]L)[rbk];
A = ((2\[lbk]Star[rbk]G*e^(
I*\[lbk]CurlyTheta[rbk]))\[lbk]Star[rbk]\[lbk]CurlyEpsilon[rbk]\[lbk]Star[rbk](\[lbk]CapitalDelta[rbk]\
2^2 + k2^2) + \[lbk]CurlyEpsilon[rbk]*(I*\[lbk]CapitalDelta[rbk]2 +
k2)\[lbk]Star[rbk]((k1 - I*\[lbk]CapitalDelta[rbk])\[lbk]Star[rbk](k2 -
I*\[lbk]CapitalDelta[rbk]2)))/((k1^2 + \[lbk]CapitalDelta[rbk]^2)\[lbk]Star[rbk](k2^2 \
+ \[lbk]CapitalDelta[rbk]2^2) + (2*
J^2)*(k1*k2 - \[lbk]CapitalDelta[rbk]*\[lbk]CapitalDelta[rbk]2) +
(J^2*^2) - (4*G^2)*(k2^2 + \[lbk]CapitalDelta[rbk]2^2));
Subscript[lbk]g, 0[rbk] = g*A
Conjugate[lbk]Subscript[lbk]g, 0[rbk][rbk] == g*Conjugate[lbk]A[rbk];

2024年11月17日 05点11分
1
m = 1.45*10^-7;
k1 = k2 = \[lbk]Omega[rbk]m;
\[lbk]CapitalDelta[rbk] = 1.2*\[lbk]Omega[rbk]m;
\[lbk]CapitalDelta[rbk]2 = 2*\[lbk]Omega[rbk]m;
P = 2*10^5;
e = 1.6*10^-19;
J = 1.5*k1;
\[lbk]CurlyTheta[rbk] = 0; G = 0;
\[lbk]HBar[rbk] = 1.05*10^-34;
L = 0.025;
\[lbk]Omega[rbk]L = (6*\[lbk]Pi[rbk]*10^8)/(1.064*10^-6);
g = (\[lbk]CapitalDelta[rbk] + \[lbk]Omega[rbk]L)/(L - Q);
Q = (\[lbk]HBar[rbk]*g*Abs[lbk]A[rbk]^2)/(m*\[lbk]Omega[rbk]m^2);
\[lbk]Omega[rbk]1 = ((\[lbk]CapitalDelta[rbk] + \[lbk]Omega[rbk]L)*L)/(L - Q);
\[lbk]CurlyEpsilon[rbk] = Sqrt[lbk](2*k1*P)/(\[lbk]HBar[rbk]*\[lbk]Omega[rbk]L)[rbk];
A = ((2\[lbk]Star[rbk]G*e^(
I*\[lbk]CurlyTheta[rbk]))\[lbk]Star[rbk]\[lbk]CurlyEpsilon[rbk]\[lbk]Star[rbk](\[lbk]CapitalDelta[rbk]\
2^2 + k2^2) + \[lbk]CurlyEpsilon[rbk]*(I*\[lbk]CapitalDelta[rbk]2 +
k2)\[lbk]Star[rbk]((k1 - I*\[lbk]CapitalDelta[rbk])\[lbk]Star[rbk](k2 -
I*\[lbk]CapitalDelta[rbk]2)))/((k1^2 + \[lbk]CapitalDelta[rbk]^2)\[lbk]Star[rbk](k2^2 \
+ \[lbk]CapitalDelta[rbk]2^2) + (2*
J^2)*(k1*k2 - \[lbk]CapitalDelta[rbk]*\[lbk]CapitalDelta[rbk]2) +
(J^2*^2) - (4*G^2)*(k2^2 + \[lbk]CapitalDelta[rbk]2^2));
Subscript[lbk]g, 0[rbk] = g*A
Conjugate[lbk]Subscript[lbk]g, 0[rbk][rbk] == g*Conjugate[lbk]A[rbk];
