sa_fig6_28.m

来自「这个是英文版<<Smart Antennas for Wireles」· M 代码 · 共 24 行

% Channel dispersion as a function of normalized delay spread
Ts=2;
numpulse=5;
test=[0:4]*Ts/20;
Tmax=15;
pulse=gausswin(100,5);
time=[0:999]*Tmax/999;
pulsecompare=[pulse' zeros(1,length(time)-length(pulse))];
figure;
for k=1:3
t=test*k;
ptot=zeros(1,length(time));
for j=1:numpulse
    index=min(find(time>t(j)))-1
    p(j,:)=[zeros(1,index) pulse' zeros(1,length(time)-index-length(pulse))];
ptot=ptot+p(j,:);
end
spread=sqrt(sum(t.^2)/numpulse)/Ts
subplot(3,1,k)
plot(time,ptot/max(ptot),'k',time,pulsecompare,'k:')
axis([0 Tmax/5 0 1.2])
xlabel('Excess Delay (nSec)')
Ylabel('Power Delay Profile')
end