Split up files

2023-03-19 13:45:34 +04:00
parent 55c80094b8
commit 8958bf5204
8 changed files with 153 additions and 121 deletions
--- a/Matlab/coefficients.m
+++ b/Matlab/coefficients.m
@@ -0,0 +1,9 @@
+function reflectivity = R(th, psi)
+    reflectivity = (tan(th - th_r(th)).^2 ./ tan(th + th_r(th)).^2) .* ...
+        cos(psi).^2 + ...
+        (sin(th - th_r(th)).^2 ./ sin(th + th_r(th)).^2) .* sin(psi).^2;
+end
+   
+function transparency = T(th, psi)
+    transparency = 1 - R(th, psi);
+end