brknvddll/optical-trap-forces
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed multipliers, refactored ray efficiencies

Browse Source
This commit is contained in:
BrokenVoodooDoll
2023-03-21 21:41:20 +04:00
parent 74231472c9
commit 37c2c9c410
5 changed files with 29 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Matlab/transverse.m
View File

@@ -21,13 +21,14 @@ xlabel('r, m')
ylabel('I(r)')
% Integration
Qres_g = @(y) integral2(@(beta, r) r .* gauss(r, r_max, w0) .* ...
G0 = gauss_peak(r_max, w0);
Qres_g = @(y) G0 * integral2(@(beta, r) r .* gauss(r, r_max, w0) .* ...
iscomplex(qg_y_factor(beta, r, y, n1, n2, Rsp, f)), 0, 2*pi, 0, r_max, ...
'Method', 'iterated', 'AbsTol', 1e-6, 'RelTol', 1e-6);
'Method', 'iterated', 'AbsTol', 1e-8, 'RelTol', 1e-6);
Qres_s = @(y) integral2(@(beta, r) r .* gauss(r, r_max, w0) .* ...
Qres_s = @(y) G0 * integral2(@(beta, r) r .* gauss(r, r_max, w0) .* ...
iscomplex(qs_y_factor(beta, r, y, n1, n2, Rsp, f)), 0, 2*pi, 0, r_max, ...
'Method', 'iterated', 'AbsTol', 1e-6, 'RelTol', 1e-6);
'Method', 'iterated', 'AbsTol', 1e-8, 'RelTol', 1e-6);
% Calulation
N = 150;
@@ -43,7 +44,7 @@ for ii = 1:N
end
close(wb);
Transverse = abs(Transverse_g) + Transverse_s;
Transverse = Transverse_g + Transverse_s;
%Graphics
figure