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

Refactoring

Browse Source
This commit is contained in:
BrokenVoodooDoll
2023-03-20 22:50:56 +04:00
parent 8958bf5204
commit 74231472c9
32 changed files with 240 additions and 201 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Matlab/qs_factor.m Normal file
View File

@@ -0,0 +1,9 @@
function factor = qs_factor(th, psi, n1, n2)
R = reflectivity(th, psi, n1, n2);
T = transmittance(th, psi, n1, n2);
theta_refl = th_r(th, n1, n2);
factor = 1 + R .* cos(2*th) - T.^2.*...
(cos(2*th - 2*theta_refl) + R .* cos(2*th)) ./ ...
(1 + R.^2 + 2*R .* cos(2*theta_refl));
end