Rt L/(2*a) Ratio
alpha_th kcond/(rho0*Cp) "Thermal diffusivity"
Yr 0[m^3/s/Pa] "Receiver acoustic admittance"
Yt 0[m^3/s/Pa] "Transmitter acoustic admittance (source)"
Ep sum(sum((8/pi^2)/((m+1/2)^2*lam_n(n)^2)*1/(1+(lam_n(n)^2*Rt^2+(m+1/2)^2*pi^2)*Xp^2/(1+2*Rt)^2),n,1,10),m,0,9) "Vincent et al. Eq 24"
Xp A/V*(1-i)/sqrt(2)*sqrt(alpha_th/omega) "Vincent et al. Eq 26"
p_galf dV/(betaT*V)*(1/(1+Yr/(i*omega*betaT*V)-(gamma-1)/gamma*Ep)) "Vincent et al. Eq 27"
Ya "i*omega*V/(gamma*p0)*(gamma-(gamma-1)*Ep) + Yt + Yr" "Vincent et al. Eq 30"