- 积分
- 0
- 注册时间
- 2008-9-24
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2008-10-15 15:37:23
|
显示全部楼层
来自 浙江杭州
完整代码如下:
%======================================================%
x=(0:0.1:409.6);%离散路面点
n0=0.1;
Gq_n0=64e-6;
delt_n=0.0024;
thta=2*pi*(rand(1,3/0.0024));
q=0;
for j=1:3/0.0024
n= delt_n *j;
Gq_n=Gq_n0*n0^2/n^2;
Ai=sqrt(2*Gq_n*delt_n);
q= q + Ai*sin( 2*pi*n*x+thta(j) );
end
%plot(x,q); %可画出空间路面谱图
%hold on;
%========================================================%
%求功率谱密度
Fs=10;
Hs=spectrum.welch;
hpsd=psd(Hs,q,'Fs',Fs);
Pw = hpsd.Data;
Fw = hpsd.Frequencies;
h1=loglog(Fw,Pw,'color','blue');
hold on;
%====================================================%
Gq_n0=32e-6;
n=(0.01:0.1:10);
Gq_n=Gq_n0*n0^2./n.^2;
loglog(n,Gq_n,'color','red');
hold on;
Gq_n0=64e-6;
n=(0.01:0.1:10);
Gq_n=Gq_n0*n0^2./n.^2;
loglog(n,Gq_n,'color','green');
hold on;
Gq_n0=128e-6;
n=(0.01:0.01:10);
Gq_n=Gq_n0*n0^2./n.^2;
loglog(n,Gq_n,'color','red');
%=====================================================%
从结果上可以看出,所模拟的路面波在高频段和理论上的是一致的,而在低频段有很大误差。不知是在求功率谱时有问题,还是在其他过程中不对,希望大家探讨一下。谢谢。 |
|