R/rtFromTMatrix.R

In tjconstant/mlfilms: Calculates the Optical Response of Multilayer Thin Films

rFromTMatrix<- function(M,gamma0,gamma2){
  
  r<-((gamma0*M[1,1])+(gamma0*gamma2*M[1,2])-(M[2,1])-(gamma2*M[2,2]))/((gamma0*M[1,1])+(gamma0*gamma2*M[1,2])+(M[2,1])+(gamma2*M[2,2]))
  return(r)
  
}

tFromTMatrix<- function(M,gamma0,gamma2){
  
  t<-(2*gamma0)/((gamma0*M[1,1])+(gamma0*gamma2*M[1,2])+(M[2,1])+(gamma2*M[2,2]))
  return(t)
  
}