
Plane wave/plane interface transmission coefficient
Source:R/acoustics.R
transmission_coefficient.RdPlane wave/plane interface transmission coefficient
Examples
seawater <- data.frame(density = 1026, sound_speed = 1480)
animal <- data.frame(density = 1050, sound_speed = 1530)
transmission_coefficient(seawater, animal)
#> [1] 1.028167