clear
clc
c=10;?????????%?子載波個數
bits=4000;??????%?每個信道的比特數
R=c*bits;???????%?總的傳送比特數
st1=50;????????%交織深度
n=7;k=4;?????????%漢明碼參數
msg=randint（k*1000012）;????%產生信源數據
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）;?%?產生載波信號
????bpsk_sig（i:）=s（i:）.*carrier（i:）;?%?產生調制信號
????fin（i:）=ifft（bpsk_sig（i:））;??%對信號進行ifft