%蒙特卡羅仿真（AWGN信道，硬判決，2PSK）
%
Eb=2;     %每比特的能量,能量越大，卷積譯碼的誤碼率越小
k=1;
G=[1 0 1;1 1 1];
input=[1 0 1 0 1 1 1 0];
dsource=cnv_encd(G,k,input);
N=length(dsource);
n=size(G,1);    %得到碼字長度
Ec=k*Eb/n;      %得到碼元能量

% 通過Rayleigh信道
chan = rayleighchan(1/1000,0);% Create Rayleigh fading channel object.
pskSig=pskmod(dsource,2);
r= filter(chan,pskSig); % Effect of channel
for i=1:N
   if(r(i)>0)
       decis(i)=0;
   else
       decis(i)=1;
   end;
end;
%硬判決維特比譯碼
[decoder_output,survivor_state,cumulated_metric]=viterbi(G,k,decis);