sefade.m

OFDM系统仿真

%sefade.m
%多径衰落信道仿真程序
function[iout,qout,ramp,rcos,rsin]=sefade(idata,qdata,itau,dlvl,n0,itn,n1,nsamp,tstp,fd,flat)
%******************variables*************************
%idata输入I信道的数据
%qdata输入Q信道的数据
%iout I信道的输出
%qout Q信道的输出
%ramp:衰落影响的幅度
%rcos:衰落影响的cosine值
%rsin:衰落影响的sine值
%itau:每径的延迟时间
%dlvl:每径的相对衰落能量
%n0:每径产生衰落的波数
%itn:每径的衰落计数器
%n1:衰落和延迟总波数
%nsamp:仿真的点数
%tstp:最小判定时间
%fd:最大doppler频率
%flat衰落模式
%(1->flat(平衰落),0->nomal(相位和幅度均衰落)
%******************************************************
iout=zeros(1,nsamp);
qout=zeros(1,nsamp);
total_attn=sum(10.^(-1.0.*dlvl./10.0));
for k=1:n1
atts=10.^(-0.05.*dlvl(k));
if dlvl(k)>=40.0
atts=0.0;
end
[itmp,qtmp]=delay(idata,qdata,nsamp,itau(k));
[itmp3,qtmp3,ramp,rcos,rsin]=fade(itmp,qtmp,nsamp,tstp,fd,n0(k),itn(k),flat);
iout=iout+atts.*itmp3./sqrt(total_attn);
qout=qout+atts.*qtmp3./sqrt(total_attn);
end
%************************end of file***********************************