%****************************************************************
% 內容概述：Trubo編碼器
% 創 建 人：WuYuFei
% 單    位：
% 創建時間：1999年
% 修改時間：
% 參考文獻：
% 版權聲明：任何人均可復制、傳播、修改此文件，同時需保留原始版權信息。
%****************************************************************

function [out,alphaout]=turbo(in);
% turbo編碼器
% in 為輸入序列，0 1。
g=[1 0 1 1;
   1 1 0 1];

% 生成矩陣1+d^2+d^3
%        1+d+d^3
% 3GPP標準生成矩陣
[n,K]=size(g);
m=K-1;
nstates=2^m;
%確定狀態數目
puncture=1;
%是否刪余 1 不刪 0 刪
rate=1/(2+puncture);
%編碼率
pattern_ordinal=1:length(in);
%----------------------------------
%[temp,alpha]=sort(rand(1,length(in)));
%得到隨機交織器
%----------------------------------
alpha=interleaver_3GPP(pattern_ordinal);
%得到3GPP標準交織器
%----------------------------------
en_output=encoderm(in,g,alpha,puncture);
%編碼
alphaout=alpha;
% 交織器輸出
out=en_output;
% 編碼輸出