clear
clc
c=10;?????????%?子載波個數(shù)
bits=4000;??????%?每個信道的比特數(shù)
R=c*bits;???????%?總的傳送比特數(shù)
st1=50;????????%交織深度
n=7;k=4;?????????%漢明碼參數(shù)
msg=randint（k*1000012）;????%產(chǎn)生信源數(shù)據(jù)
code=encode（msgnk‘hamming/binary‘）;??%漢明編碼
inter?=?randintrlv（codest1）;?????%交織?
code1=inter;
for?m=1:70000
??if?（code1（m）==0）
??????code1（m）=-1;
??????else?code1（m）=1;
??end
end??
s?=?reshape（code1c7000）;????????%?串并變換
tp=1:0.1:（1+7000/10）-0.1;

for?i=1:c
????carrier（i:）=cos（2*i*pi*tp）;?%?產(chǎn)生載波信號
????bpsk_sig（i:）=s（i:）.*carrier（i:）;?%?產(chǎn)生調(diào)制信號
????fin（i:）=ifft（bpsk_sig（i:））;??%對信號進(jìn)行ifft