三分之一倍频程程序

方法一：%A计权声压级频谱分析 clc; clear; close all;

y=wavread('abc.wav');

fs=51200;%采样频率 p0=2e-5;%参考声压

f=[1.00 1.25 1.600 2.00 2.50 3.15 4.00 5.00 6.30 8.0]; %基准中心频率 f1=[20.00 25.0 31.5 40.0 50.0 63.0 80];

fc=[f1,100*f,1000*f,10000*f]; %%%%%%%%%中心频率%%%%%%%% -16000Hz A声级计权值

cf=[-50.5,-44.7,-39.4,-34.6,-30.2,-26.2,-22.5,-19.1,-16.1,-13.4,-10.9,-8.6,-6.6,-4.8,-3.2,-1.9,-0.8,0,0.6,1.0,1.2,1.3,1.2,1.0,0.5,-0.1,-1.1,-2.5,-4.3,-6.6]; t1=1; t2=2;

x=y(t1*fs+1:t2*fs);%截取需要处理的数据段 n=length(x);

t=(0:1/fs:(n-1)/fs);

subplot(221);

plot(t,x);%瞬时声压时程图

w=hanning(n); %汉宁窗

xx=1.633*x.*w; %加汉宁窗(恢复系数为1.633)

nfft=2^nextpow2(n);

%nextpow2(n)-取最接近的较大2次幂 a = fft(xx,nfft);

f = fs/2*linspace(0,1,nfft/2);

w=2*abs(a(1:nfft/2)/n); subplot(222);

plot(f,w);%绘制频谱图

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %1/3倍频程计算 oc6=2^(1/6); nc=length(cf);

%下面这个求1/3倍频程的程序是按照振动振级计算那个来的 for j=1:nc

fl=fc(j)/oc6; fu=fc(j)*oc6;

nl=round(fl*nfft/fs+1); nu=round(fu*nfft/fs+1); if fu>fs/2 m=j-1; break; end

b=zeros(1,nfft); b(nl:nu)=a(nl:nu);

b(nfft-nu+1:nfft-nl+1)=a(nfft-nu+1:nfft-nl+1); c=ifft(b,nfft);

yc(j)=sqrt(var(real(c(1:n)))); end

aj_sumn=0; for i=1:nc

Lp1(i)=20*log10(yc(i)/p0);%未计权1/3倍频程声压级 end

%%%%% for jj=1:nc

aj_sumn=aj_sumn+10^(0.1*Lp1(j)); end

Lp=10*log10(aj_sumn);%未计权总声压级

subplot(223);%绘制未计权1/3倍频程声压级图谱

bar(Lp1(1:nc)); gg=zeros(1,nc); for i=1:nc

gg(1:nc)=fc(1:nc); end

ggg=1:nc; set(gca,'xtick',ggg); set(gca,'xticklabel',gg);

%%%%%A计权1/3倍频程声压级 Lap=Lp1+cf; aj_sum=0; for j=1:nc

aj_sum=aj_sum+10^(0.1*Lap(j)); end

LA=10*log10(aj_sum);a计权总声压级

subplot(224);%绘制A计权1/3倍频程声压级图谱 bar(Lap(1:nc)); gg=zeros(1,nc); for i=1:nc

gg(1:nc)=fc(1:nc); end

ggg=1:nc; set(gca,'xtick',ggg); set(gca,'xticklabel',gg); 方法二： clc; clear; close all;

%时域分析

y=wavread('abc.wav'); %频域分析

fs=51200;%采样频率 p0=2e-5;%参考声压

f=[1.00 1.25 1.600 2.00 2.50 3.15 4.00 5.00 6.30 8.0]; %基准中心频率 f1=[20.00 25.0 31.5 40.0 50.0 63.0 80];

fc=[f1,100*f,1000*f,10000*f]; %%%%%%%%%中心频率%%%%%%%% -16000Hz A声级计权值

cf=[-50.5,-44.7,-39.4,-34.6,-30.2,-26.2,-22.5,-19.1,-16.1,-13.4,-10.9,-8.6,-6.6,-4.8,-3.2,-1.9,-0.8,0,0.6,1.0,1.2,1.3,1.2,1.0,0.5,-0.1,-1.1,-2.5,-4.3,-6.6];

n=length(y);

t=(0:1/fs:(n-1)/fs); h1=figure; plot(t,y);

title('瞬时声压时程'); xlabel('Time(s)');

ylabel('Sound Presure Value(Pa)'); % t1=0; t2=4;

x=y(t1*fs+1:t2*fs);%截取需要处理的数据段 n=length(x);

%t=(0:1/fs:(n-1)/fs);

%plot(t,x);%瞬时声压时程图

w=1.633*hanning(n); %汉宁窗(恢复系数为1.633)

%w=1.812*blackmanharris(n); %布拉克曼窗(功率相等恢复系数1.812) xx=x.*w; %加汉宁窗

nfft=2^nextpow2(n); %nextpow2(n)-取最接近的较大2次幂 a = fft(xx,nfft)/n;

%f = fs/2*linspace(0,1,nfft/2); w=2*abs(a(1:nfft/2));

oc6=2^(1/6); nc=length(cf);

for j=1:nc

fl=fc(j)/oc6; fu=fc(j)*oc6;

nl=round(fl*nfft/fs+1); nu=round(fu*nfft/fs+1); if fu>fs/2 m=j-1; break; end

p=w(nl:nu); lp=length(p); k=0;

for ii=1:lp if ii+2>lp break end

if p(ii+1)>p(ii)&&p(ii+1)>p(ii+2) k=k+1;

pp(k)=p(ii+1)/sqrt(2); end end

p2(j)=sum(pp.*pp); end

Lp=10*log10(p2/p0^2); for jj=1:length(Lp)

Lp1(jj)=10^(Lp(jj)/10); end

Lpt=10*log10(sum(Lp1))

h2=figure;

mm=nc;

bar(Lp(1:mm)); gg=zeros(1,mm); for i=1:mm

gg(1:mm)=fc(1:mm); end

ggg=1:mm; set(gca,'xtick',ggg); set(gca,'xticklabel',gg);

set(gcf,'PaperPosition',[1,1,40,20]) set(gca,'fontsize',10) xlabel('Frequency(Hz)'); ylabel('SPL(dB)'); title('未计权声压级'); grid on;

方法三：

% 三分之一倍频程处理 clear; clc;

close all;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%% s = xlsread('ay.xls');%输入时程数据 sf=256; %采样频率

x=s(:,2); %定义三分之一倍频程的中心频率

f=[1.00 1.25 1.60 2.00 2.50 3.15 4.00 5.00 6.30 8.00]; fc=[f,10*f,100*f,1000*f,10000*f]; %中心频率与下限频率的比值 oc6=2^(1/6);

%取中心频率总的长度 nc=length(fc);

%输入数据的长度 n=length(x);

%大于并接近n的2的幂次方长度 nfft=2^nextpow2(n); ?T变换 a=fft(x,nfft); for j=1:nc %下线频率 fl=fc(j)/oc6; %上限频率 fu=fc(j)*oc6;

%下限频率对应的序号 nl=round(fl*nfft/sf+1);

%上限频率对应的序号 nu=round(fu*nfft/sf+1);

%如果上相频率大于折叠频率则循环中断 if fu>sf/2 m=j-1;break end

%以每个中心频率段为通带进行带通频率滤波 b=zeros(1,nfft); b(nl:nu)=a(nl:nu);

b(nfft-nu+1:nfft-nl+1)=a(nfft-nu+1:nfft-nl+1); c=ifft(b,nfft);

%计算对应每个中心频段的有效值 yc(j)=sqrt(var(real(b(1:n)))); end

%绘制输入时程曲线图形 subplot(2,1,1); t=0:1/sf:(n-1)/sf; plot(t,x);

xlabel('时间(s)'); ylabel('加速度(g)'); grid on;

%绘制三分之一倍频程有效值图形 subplot(2,1,2);

plot(fc(1:m),yc(1:m));

xlabel('频率(Hz)'); ylabel('有效值'); grid on;

%保存倍频程数据 fid=fopen(fno,’w’); for k=1:m;

fprintf(fid,’%f %f\\n’,fc(k),yc(k)); end

status=fclose(fid);

%上限频率对应的序号 nu=round(fu*nfft/sf+1);

%如果上相频率大于折叠频率则循环中断 if fu>sf/2 m=j-1;break end

%以每个中心频率段为通带进行带通频率滤波 b=zeros(1,nfft); b(nl:nu)=a(nl:nu);

b(nfft-nu+1:nfft-nl+1)=a(nfft-nu+1:nfft-nl+1); c=ifft(b,nfft);

%计算对应每个中心频段的有效值 yc(j)=sqrt(var(real(b(1:n)))); end

%绘制输入时程曲线图形 subplot(2,1,1); t=0:1/sf:(n-1)/sf; plot(t,x);

xlabel('时间(s)'); ylabel('加速度(g)'); grid on;

%绘制三分之一倍频程有效值图形 subplot(2,1,2);

plot(fc(1:m),yc(1:m));

xlabel('频率(Hz)'); ylabel('有效值'); grid on;

%保存倍频程数据 fid=fopen(fno,’w’); for k=1:m;

fprintf(fid,’%f %f\\n’,fc(k),yc(k)); end

status=fclose(fid);

本文来源：https://www.bwwdw.com/article/cgf2.html