• 超越地平线
    了解作者
  • matlab
    开发工具
  • 1KB
    文件大小
  • rar
    文件格式
  • 0
    收藏次数
  • 1 积分
    下载积分
  • 11
    下载次数
  • 2017-08-08 20:03
    上传日期
该程序用于实验测量隔声罩隔声量的插入损失。计算隔声罩内部声场与外部声场的声压值
插入损失.rar
  • 插入损失
  • Insetion_Loss.m
    2KB
内容介绍
clear clc %%% 插入损失的计算(离散频率100Hz到1500Hz) fs=10000; sensitivity=[42.44 40.11 35.67 35.94]*10^(-3); %% mv/pa %%% 3米处声压插入损失 gain=[10 10 10 50 50 50 10 10 50 50 10 10 10 10 10]; %% 3米处声压测点的放大倍数 p0=2.0e-5; k=1; for i=100:100:1500 filename=strcat('TL_OUT_',num2str(i),'_time.lvm'); data=textread(filename,'%f','headerlines',23); AA=data(3:8:length(data))/gain(k)/sensitivity(3); t_pressure(:,k)=AA; k=k+1; end f_pressure=abs(fft(t_pressure,fs)*2/fs); f_pressure_dB=20*log10(f_pressure/p0); for i=1:15 SPL_OUT(i,1)=max(f_pressure_dB(i*100-5:i*100+5,i)); end clear t_pressure k=1; fs=10000; for i=100:100:1500 filename=strcat('TL_IN_',num2str(i),'_time.lvm'); data=textread(filename,'%f','headerlines',23); AA=data(3:8:length(data))/50/sensitivity(3); t_pressure(:,k)=AA; k=k+1; end f_pressure=abs(fft(t_pressure,fs)*2/fs); f_pressure_dB=20*log10(f_pressure/p0); for i=1:15 SPL_IN(i,1)=max(f_pressure_dB(i*100-5:i*100+5,i)); end IL = SPL_OUT-SPL_IN; figure(1) stem(100:100:1500,IL); figure(2) plot(f_pressure_dB(2:1000,2)) % f_p_2=f_pressure.^2; % % f_pressure_mean=sqrt(mean(f_p_2,2)); % % f_pressure_mean2=mean(f_pressure,2); % % SPL_Z=20*log10(f_pressure_mean(1:3000,1)/p0); % % N=3000; % f=1:N; %frequency % for i=1 : N % A(i) = 10*log10(3.5*(10^16)*(f(i)^8)/(((20.6^2 + f(i)^2)^2)*(107.7^2 + f(i)^2)*(737^2+f(i)^2)*((12194.2^2 + f(i)^2)^2))) ; %A weighting % end % % SPLA_data=SPL_Z+A'; % % % SPLA_total=10*log10(sum(10.^(SPLA_data(1:N/2)./10))) % % SPLA_total=10*log10(sum(10.^(SPLA_data(20:5:N/2)./10))) % % % %%% 计算辐射声功率级 % % SPowerLA_=SPLA_total+10*log10(s/s0) % % % figure(3) % plot(21:1500,SPLA_data(21:1500),'r','linewidth',2) % xlabel('Frequency (Hz)','fontsize',14) % ylabel('Sound Power Level (dBA)','fontsize',14) % title('Sound Power Level of A Phase Reactor','fontsize',14) % set(gca,'fontsize',14)
评论
    相关推荐
    • qpopper2.53.tar.Z
      pop3 server
    • imap-4.7.tar.Z
      被广泛使用的email服务器 /IMAPD/POPD
    • 53308459Add_Dlt_TabCtrl.rar
      Tab分页的删除和添加,实现分页动态的管理。
    • ns-allinone-2.33.tar.gz
      ns2.33这是目前比较新的ns2版本,欢迎下载
    • NetVideoActiveX23.rar
      海康威视 网络监控插件 带有例子 和开发的dll文件,非常易用
    • UR054g_(R01).zip
      法国inventel的ur054g(r01)v1.1的无线网卡驱动。
    • eat.rar
      外卖叫餐系统,采用ACCESS数据库,有完整天的后台管理系统
    • KSTVTUNE.ZIP
      装摄像头驱动需要用到的文件。Microsoft DirectX 9 SDK
    • Skin++.rar
      知名的Skin++界面库,内含所有库文件和大量皮肤文件.该库使用方便,可以减少您美化程序的痛苦.本版是破解版,没有注册提示.但只供学习研究使用哦,不要用在商业用途.
    • DLL函数查看器V2.0.rar
      DLL函数查看器V2.0 可以看看dll里导出地函数