R/P2A.lin.R

In AtmRay: Acoustic Traveltime Calculations for 1-D Atmospheric Models

Defines functions P2A.lin

Documented in P2A.lin

P2A.lin = function(p, z, az, ATM){
  ceff = as.vector(ATM$c0 + c(ATM$wx0, ATM$wy0) %*% c(sin(az*pi/180), cos(az*pi/180))
  + (z - ATM$z0) * (ATM$gc + c(ATM$gwx, ATM$gwy) %*% c(sin(az*pi/180), cos(az*pi/180))))

  a = asin(p * ceff) * 180/pi
  return(a)
}
  

Try the AtmRay package in your browser