@@ -178,14 +178,19 @@ def solve_transfer_matrix(M):
178178 denom = M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ]
179179 #print(denom)
180180
181- r_ss = (M [1 , 0 ]* M [2 , 2 ] - M [1 , 2 ]* M [2 , 0 ]) / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
182- r_sp = (M [3 , 0 ]* M [2 , 2 ] - M [3 , 2 ]* M [2 , 0 ]) / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
183- r_ps = (M [0 , 0 ]* M [1 , 2 ] - M [1 , 0 ]* M [0 , 2 ]) / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
184- r_pp = (M [0 , 0 ]* M [3 , 2 ] - M [3 , 0 ]* M [0 , 2 ]) / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
185- t_ss = M [2 , 2 ] / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
186- t_sp = - M [2 , 0 ] / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
187- t_ps = - M [0 , 2 ] / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
188- t_pp = M [0 , 0 ] / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
181+
182+ #
183+ # Components 3,4 - S
184+ # Components 1,2 - P Was mixed up until 11.08.2016 (switched s and p)
185+ #
186+ r_pp = (M [1 , 0 ]* M [2 , 2 ] - M [1 , 2 ]* M [2 , 0 ]) / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
187+ r_ps = (M [3 , 0 ]* M [2 , 2 ] - M [3 , 2 ]* M [2 , 0 ]) / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
188+ r_sp = (M [0 , 0 ]* M [1 , 2 ] - M [1 , 0 ]* M [0 , 2 ]) / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
189+ r_ss = (M [0 , 0 ]* M [3 , 2 ] - M [3 , 0 ]* M [0 , 2 ]) / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
190+ t_pp = M [2 , 2 ] / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
191+ t_ps = - M [2 , 0 ] / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
192+ t_sp = - M [0 , 2 ] / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
193+ t_ss = M [0 , 0 ] / (M [0 , 0 ]* M [2 , 2 ] - M [0 , 2 ]* M [2 , 0 ])
189194
190195 return r_ss , r_sp , r_ps , r_pp , t_ss , t_sp , t_ps , t_pp
191196
0 commit comments