Refactoring

2023-03-20 22:50:56 +04:00
parent 8958bf5204
commit 74231472c9
32 changed files with 240 additions and 201 deletions
--- a/Matlab/reflectivity.m
+++ b/Matlab/reflectivity.m
@@ -0,0 +1,6 @@
+function R = reflectivity(th, psi, n1, n2)
+    theta_refl = th_r(th, n1, n2);
+    R = (tan(th - theta_refl).^2 ./ tan(th + theta_refl).^2) .* ...
+        cos(psi).^2 + ...
+        (sin(th - theta_refl).^2 ./ sin(th + theta_refl).^2) .* sin(psi).^2;
+end