Refactoring

2023-03-20 22:50:56 +04:00
parent 8958bf5204
commit 74231472c9
32 changed files with 240 additions and 201 deletions
--- a/Matlab/qg_factor.m
+++ b/Matlab/qg_factor.m
@@ -0,0 +1,8 @@
+function factor = qg_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 = R .* sin(2*th) - T.^2 .* ...
+        (sin(2*th - 2*theta_refl) + R .* sin(2*th)) ./ ...
+        (1 + R.^2 + 2*R .* cos(2*theta_refl));
+end