%delay.m
%時間延遲程序
function[iout,qout]=delay(idata,qdata,nsamp,idel)
%******************variables*************************
%idata輸入I信道的數據
%qdata輸入Q信道的數據
%iout I信道輸出數據
%qout Q信道輸出數據
%nsamp仿真的點數
%idel延遲的點數
%******************************************************
iout=zeros(1,nsamp);
qout=zeros(1,nsamp);
if idel~=0
iout(1:idel)=zeros(1,idel);
qout(1:idel)=zeros(1,idel);
end
iout(idel+1:nsamp)=idata(1:nsamp-idel);
qout(idel+1:nsamp)=qdata(1:nsamp-idel);
%************************end of file***********************************