17 January 2023 3 8K Report

I am trying to learn the membrane backed by air cavity in the following paper, figure 2. My code result does not match the paper result. can somebody point out the error?

I Have used equation no 3, 4, 5, and 9 to obtain figure 2 (a)

Tension is 76.53 N, density of membrane(T) is 0.265, air cavity (D) is 100 mm, radius of tube (a) is 50mm

Article Membrane sound absorber with a granular activated carbon infill

clc

clear all;

f= (100:2:1600);

omega= 2*pi*f;

rho_s=0.265; T=76.53*(1+1j*0.005); D=0.1; a=0.05; % Fig 2 a

c=343; rho_0=1.213; Z_0 = rho_0*c;

k0=omega/c;

km=omega.*sqrt(rho_s/T);

%% Impedance of membrane with air cavity only

Z_m = (1j*omega*rho_s)./(1-((2./km*a).*(besselj(1, km*a)./besselj(0,km*a))));

Z_w = -1j*Z_0*cot(k0*D);

Z_s = Z_m + Z_w

Z_s =Z_s/Z_0;

R = (Z_s - 1)./(Z_s + 1);

alpha_1 = 1 - ((abs(R)).^2);

figure(1)

set(gca,'FontSize',16)

plot(f,alpha_1);

xlabel('Frequency (Hz)')

ylabel('Sound absorption coefficient')

grid on

grid minor

ylim([0 1])

set(gca, 'XScale', 'log')

set(gca, 'YScale', 'log')

More Raja Kumar's questions See All
Similar questions and discussions