91av视频/亚洲h视频/操亚洲美女/外国一级黄色毛片 - 国产三级三级三级三级

  • 大小: 2KB
    文件類型: .m
    金幣: 1
    下載: 1 次
    發(fā)布日期: 2021-06-04
  • 語言: Matlab
  • 標簽: 聲學基礎??

資源簡介

使用點聲源疊加的形式,模擬活塞輻射過程,求出指向型并與公式推導結果做對比。

資源截圖

代碼片段和文件信息

%clear?all;
close?all;
f=100000;w=f*pi/180;?%頻率
k=w/343;?%波束
a=2;?%活塞半徑
r=1000;?%遠場距離

theta=(-90:0.5:90)*pi/180;?%方向性

sum=zeros(1length(theta));
sum1=zeros(1length(theta));
for?i=1:length(theta)
????h=r;
????sum(i)=sum(i)+w/h*exp(-1j*k*h);
????sum1(i)=sum(i);
????for?R=0.1:0.01:a?%循環(huán)半徑
????????l=R*80;
????????for?n=1:l?%循環(huán)個數(shù)?一圈內(nèi)的個數(shù)
????????????%不近似
????????????h=sqrt(r*r+R*R-2*r*R*sin(theta(i))*cos(n*2*pi/l));
????????????sum(i)=sum(i)+w/h*exp(-1j*k*h);
????????????%近似
????????????h1=r-R*sin(theta(i))*cos(n*2*pi/l);
????????????sum1(i)=sum(i)+w/r*exp(-1j*k*h);

????????end
????end
end

figure
subplot(121)
plot(thetaabs(sum));title(‘不近似‘)
subplot(122)
plot(thetaabs(sum1));title(‘近似‘)


figure
subplot(121)
plot(thetaabs(sum));title(‘疊加模擬‘)


D=zeros(1length(theta

評論

共有 條評論

相關資源