Ix_room 0.5*realdot(px_room,vx_room) "Sound intensity, positive x direction"
P_in intop_in(Ix_room) "Incident power on the concrete surface"
P_in_proom intop_in(0.5*p_room_sq)/(4*rho0*c0) "Incident power (room pressure)"
p_ms_th 0.5*A^2 "Theoretical mean square pressure in source room (limit N->infinity)"
P_in_th intop_in(p_ms_th)/(4*rho0*c0) "Theoretical incident power (limit N->infinity)"
P_tr intop_tr(acpr.Ix) "Transmitted power"