updated descriptions of functions

MMatrixOfStructure.m

@@ -1,5 +1,5 @@
 function [M, tetta2] = MMatrixOfStructure(tetta0, lambda, varargin)
-% return M matrix of structure
+%MMatrixOfStructure return M matrix of structure
 % tetta0 - angle of incident
 % lambda - wavelength
 % varargin: couples of refractive indexes and thiknesses of films

MReflectance.m

@@ -1,5 +1,10 @@
 function [M ,tetta2]= MReflectance(N1, N2, tetta1)
 %MReflectance return M matrix of border between 2 mediums
+% N1 - complex refractive index of first medium
+% N2- complex refractive index of second medium
+% tetta1 - angle of incident
+% tetta2 - angle of refraction
+% M - M-matrix
 [S, tetta2]  = SReflectance(N1, N2, tetta1);
 M = SMMatrixConverter(S);
 end

MTransmittance.m

@@ -1,5 +1,9 @@
 function M = MTransmittance(N, d, lambda, tetta)
-% return S matrix of simple film
+%MTransmittance return S matrix of simple film
+% N - complex refractive index
+% d - thikness
+% lambda - wavelength
+% tetta - angle of propagation
 M = SMMatrixConverter(STransmittance(N, d, lambda, tetta));
 end
 

SMMatrixConverter.m

@@ -1,5 +1,5 @@
 function B = SMMatrixConverter(A)
-% Convert S matrix to M matrix and M matrix to S matrix
+%SMMatrixConverter Convert S matrix to M matrix and M matrix to S matrix
 B = [A(1,1) * A(2,2) - A(2,1)* A(1,2), A(1,2); -A(2,1), 1] / A(2,2);
 end
 

SMatrixOfStructure.m

@@ -1,5 +1,5 @@
 function [S, tetta2] = SMatrixOfStructure(tetta0, lambda, varargin)
-% return S matrix of structure
+%SMatrixOfStructure return S matrix of structure
 % tetta0 - angle of incident
 % lambda - wavelength
 % varargin: couples of refractive indexes and thiknesses of films

SReflectance.m

@@ -1,5 +1,10 @@
 function [S, tetta2]  = SReflectance(N1, N2, tetta1)
-% return S matrix of border between 2 mediums
+%SReflectance return S matrix of border between 2 mediums
+% N1 - complex refractive index of first medium
+% N2- complex refractive index of second medium
+% tetta1 - angle of incident
+% S - s-matrix
+% tetta2 - angle of refraction
 Tetta1 = @(n0, n1, tetta0)...
     asin(real(n0) ./ real(n1) * sin(tetta0)); % Snell's law
 

STransmittance.m

@@ -1,5 +1,5 @@
 function S = STransmittance(N, d, lambda, tetta)
-%STransmittance return S matrix of simple film
+%STransmittance return S matrix of transmittance of simple film
 %N - complex rafractive index
 %d  - thickness
 %lambda - wavelength