10 lines
392 B
Mathematica
10 lines
392 B
Mathematica
|
function depth = computeTrapDepth(w_1, w_2, P, alpha)
|
||
|
|
|
||
|
|
% Define constants
|
||
|
|
eps0 = 8.854187817e-12; % Permittivity of free space (F/m)
|
||
|
|
c = 299792458; % Speed of light in vacuum (m/s)
|
||
|
|
a0 = 5.29177210903e-11; % Bohr radius (m)
|
||
|
|
|
||
|
|
% Calculate the trap depth
|
||
|
|
depth = (2 * P) / (pi * w_1 * w_2) * (1 / (2 * eps0 * c)) * alpha * (4 * pi * eps0 * a0^3);
|
||
|
|
end
|