Calculations/ODT-Calculator/+Potentials/generateCrossedBeamPotential.m

33 lines
1.7 KiB
Matlab

function U = generateCrossedBeamPotential(positions, waists, P, options)
alpha = options.Polarizability;
wavelength = options.Wavelength;
delta = options.Delta;
foci_shift = options.FociShift;
focus_shift_beam_1 = foci_shift(1);
focus_shift_beam_2 = foci_shift(2);
beam_disp = options.beam_disp;
beam_1_disp = beam_disp(1);
beam_2_disp = beam_disp(2);
beam_1_positions = positions + beam_1_disp;
A_1 = 2 * P(1) ./ (pi * w(beam_1_positions(2,:) + focus_shift_beam_1, waists(1,1), wavelength) ...
.* w(beam_1_positions(2,:) + focus_shift_beam_1, waists(1,2), wavelength));
U_1_tilde = (1 / (2 * 8.854e-12 * 3e8)) * alpha * (4 * pi * 8.854e-12 * 5.29177e-11^3);
U_1 = -U_1_tilde * A_1 .* exp(-2 * ((beam_1_positions(1,:) ./ w(beam_1_positions(2,:) + focus_shift_beam_1, waists(1,1), wavelength)).^2 ...
+ (beam_1_positions(3,:) ./ w(beam_1_positions(2,:) + focus_shift_beam_1, waists(1,2), wavelength)).^2));
R = rotation_matrix([0, 0, 1], deg2rad(delta));
beam_2_positions = R * (positions + beam_2_disp);
A_2 = 2 * P(2) ./ (pi * w(beam_2_positions(2,:) + focus_shift_beam_2, waists(2,1), wavelength) ...
.* w(beam_2_positions(2,:) + focus_shift_beam_2, waists(2,2), wavelength));
U_2_tilde = (1 / (2 * 8.854e-12 * 3e8)) * alpha * (4 * pi * 8.854e-12 * 5.29177e-11^3);
U_2 = -U_2_tilde * A_2 .* exp(-2 * ((beam_2_positions(1,:) ./ w(beam_2_positions(2,:) + focus_shift_beam_2, waists(2,1), wavelength)).^2 ...
+ (beam_2_positions(3,:) ./ w(beam_2_positions(2,:) + focus_shift_beam_2, waists(2,2), wavelength)).^2));
U = U_1 + U_2;
end