c0 mat1.def.cs(ta.T0) Isentropic speed of sound Z0 ta.rho0*c0 Characteristic impedance k0 ta.omega/c0 Acoustic wave number kv sqrt(-i*ta.omega*ta.rho0/ta.mu) Viscous wave number kh sqrt(-i*ta.omega*ta.rho0*ta.Cp/ta.kcond) Thermal wave number Pv 1-cos(kv*z)/cos(kv*H/2) Scalar viscous field Ph 1-cos(kh*z)/cos(kh*H/2) Scalar thermal field Uana -Pv*(pin/L)/(i*k0*Z0) Analytical x-velocity profile Tana Ph*(pin/2)/(ta.rho0*ta.Cp) Analytical temperature profile