Z_ana aveop1(-i*intop1(acpr.Z)*intop1(acpr.k)/kx_ana*cot(kx_ana*Hp))/intop2(acpr.rho*acpr.c) Specific surface normal impedance (analytical) ky_ana intop2(acpr.k)*sin(theta0) kx_ana sqrt(intop1(acpr.k)^2-ky_ana^2) R_ana (Z_ana*cos(theta0)-1)/(Z_ana*cos(theta0)+1) Reflection coefficient (analytical) alpha_ana 1-abs(R_ana)^2 Absorption coefficient (analytical)