%****************************************************************
% 內(nèi)容概述：利用硬件化的方式實現(xiàn)TURBO碼的MAX-LOG-MAP譯碼
%          生成矩陣按照3GPP標(biāo)準(zhǔn)為[1 1 0 1;1 0 1 1]
%          未使用另外一個譯碼器反饋的外部信息
%          輸入為經(jīng)過高斯信道的RSC軟輸入，而輸出為軟輸出
% 創(chuàng) 建 人：朱殿榮/QQ:235347/MSN:njzdr@msn.com
% 單    位：南京郵電大學(xué)，通信工程系
% 創(chuàng)建時間：2005年7月7日
% 修改時間：
% 參考文獻(xiàn)：《數(shù)字通信－－基礎(chǔ)與應(yīng)用》
%          《改進(jìn)的Turbo碼算法及其FPGA實現(xiàn)過程的研究》,天津大學(xué)，張寧，趙雅興
% 版權(quán)聲明：任何人均可復(fù)制、傳播、修改此文件，同時需保留原始版權(quán)信息。
%****************************************************************

clear;
x=[0.1 -0.7 0.86 0.68];   %輸入系統(tǒng)位
y=[0.9 0.96 -0.69 0.85];    %輸入校驗位
%---初始化&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
%Infty = 1e10;
Infty = -128;
d(1:8,1:2,1:4)=zeros(8,2,4);    %分支量度，8種可能狀態(tài)，輸入為0或者1
                                %D(S,i,k)
a(1:8,1:4)=Infty*ones(8,4);     %前向分支量度，A(S,k)
a(1,1)=0;                       %寄存器狀態(tài)由全零開始
b(1:8,1:5)=Infty*ones(8,5);     %后向分支量度，B(S,k)
b(1,5)=0;                       %寄存器狀態(tài)由全零結(jié)束

%計算分支量度D-----------------
%k=1&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
k=1;
d(1,2,k)=x(k)+y(k);
d(2,2,k)=d(1,2,k);
d(7,2,k)=d(1,2,k);
d(8,2,k)=d(1,2,k);

d(3,2,k)=x(k);
d(4,2,k)=d(3,2,k);
d(5,2,k)=d(3,2,k);
d(6,2,k)=d(3,2,k);

d(3,1,k)=y(k);
d(4,1,k)=d(3,1,k);
d(5,1,k)=d(3,1,k);
d(6,1,k)=d(3,1,k);
%其他分支量度為0，已經(jīng)在初始化時設(shè)定，每個k時無需計算。
%k=1時的前向狀態(tài)量度已經(jīng)初始化，無需計算。

%k=2&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
k=2;
d(1,2,k)=x(k)+y(k);
d(2,2,k)=d(1,2,k);
d(7,2,k)=d(1,2,k);
d(8,2,k)=d(1,2,k);

d(3,2,k)=x(k);
d(4,2,k)=d(3,2,k);
d(5,2,k)=d(3,2,k);
d(6,2,k)=d(3,2,k);

d(3,1,k)=y(k);
d(4,1,k)=d(3,1,k);
d(5,1,k)=d(3,1,k);
d(6,1,k)=d(3,1,k);
%其他分支量度為0，已經(jīng)在初始化時設(shè)定，每個k時無需計算。
a(1,k)=max((a(1,k-1)+d(1,1,k-1)),(a(2,k-1)+d(2,2,k-1)));
a(2,k)=max((a(4,k-1)+d(4,1,k-1)),(a(3,k-1)+d(3,2,k-1)));
a(3,k)=max((a(5,k-1)+d(5,1,k-1)),(a(6,k-1)+d(6,2,k-1)));
a(4,k)=max((a(8,k-1)+d(8,1,k-1)),(a(7,k-1)+d(7,2,k-1)));
a(5,k)=max((a(2,k-1)+d(2,1,k-1)),(a(1,k-1)+d(1,2,k-1)));
a(6,k)=max((a(3,k-1)+d(3,1,k-1)),(a(4,k-1)+d(4,2,k-1)));
a(7,k)=max((a(6,k-1)+d(6,1,k-1)),(a(5,k-1)+d(5,2,k-1)));
a(8,k)=max((a(7,k-1)+d(7,1,k-1)),(a(8,k-1)+d(8,2,k-1)));

%k=3&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
k=3;
d(1,2,k)=x(k)+y(k);
d(2,2,k)=d(1,2,k);
d(7,2,k)=d(1,2,k);
d(8,2,k)=d(1,2,k);

d(3,2,k)=x(k);
d(4,2,k)=d(3,2,k);
d(5,2,k)=d(3,2,k);
d(6,2,k)=d(3,2,k);

d(3,1,k)=y(k);
d(4,1,k)=d(3,1,k);
d(5,1,k)=d(3,1,k);
d(6,1,k)=d(3,1,k);
%其他分支量度為0，已經(jīng)在初始化時設(shè)定，每個k時無需計算。
a(1,k)=max((a(1,k-1)+d(1,1,k-1)),(a(2,k-1)+d(2,2,k-1)));
a(2,k)=max((a(4,k-1)+d(4,1,k-1)),(a(3,k-1)+d(3,2,k-1)));
a(3,k)=max((a(5,k-1)+d(5,1,k-1)),(a(6,k-1)+d(6,2,k-1)));
a(4,k)=max((a(8,k-1)+d(8,1,k-1)),(a(7,k-1)+d(7,2,k-1)));
a(5,k)=max((a(2,k-1)+d(2,1,k-1)),(a(1,k-1)+d(1,2,k-1)));
a(6,k)=max((a(3,k-1)+d(3,1,k-1)),(a(4,k-1)+d(4,2,k-1)));
a(7,k)=max((a(6,k-1)+d(6,1,k-1)),(a(5,k-1)+d(5,2,k-1)));
a(8,k)=max((a(7,k-1)+d(7,1,k-1)),(a(8,k-1)+d(8,2,k-1)));

%k=4&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
k=4;
d(1,2,k)=x(k)+y(k);
d(2,2,k)=d(1,2,k);
d(7,2,k)=d(1,2,k);
d(8,2,k)=d(1,2,k);

d(3,2,k)=x(k);
d(4,2,k)=d(3,2,k);
d(5,2,k)=d(3,2,k);
d(6,2,k)=d(3,2,k);

d(3,1,k)=y(k);
d(4,1,k)=d(3,1,k);
d(5,1,k)=d(3,1,k);
d(6,1,k)=d(3,1,k);
%其他分支量度為0，已經(jīng)在初始化時設(shè)定，每個k時無需計算。
a(1,k)=max((a(1,k-1)+d(1,1,k-1)),(a(2,k-1)+d(2,2,k-1)));
a(2,k)=max((a(4,k-1)+d(4,1,k-1)),(a(3,k-1)+d(3,2,k-1)));
a(3,k)=max((a(5,k-1)+d(5,1,k-1)),(a(6,k-1)+d(6,2,k-1)));
a(4,k)=max((a(8,k-1)+d(8,1,k-1)),(a(7,k-1)+d(7,2,k-1)));
a(5,k)=max((a(2,k-1)+d(2,1,k-1)),(a(1,k-1)+d(1,2,k-1)));
a(6,k)=max((a(3,k-1)+d(3,1,k-1)),(a(4,k-1)+d(4,2,k-1)));
a(7,k)=max((a(6,k-1)+d(6,1,k-1)),(a(5,k-1)+d(5,2,k-1)));
a(8,k)=max((a(7,k-1)+d(7,1,k-1)),(a(8,k-1)+d(8,2,k-1)));
%前向狀態(tài)量度和分支量度計算完畢，最后的后向狀態(tài)量度已經(jīng)處于初始化狀態(tài)
%可以開始計算后向狀態(tài)量度以及LLR
b(1,k)=max((b(1,k+1)+d(1,1,k)),(b(5,k+1)+d(5,2,k)));
b(2,k)=max((b(5,k+1)+d(5,1,k)),(b(1,k+1)+d(1,2,k)));
b(3,k)=max((b(6,k+1)+d(6,1,k)),(b(2,k+1)+d(2,2,k)));
b(4,k)=max((b(2,k+1)+d(2,1,k)),(b(6,k+1)+d(6,2,k)));
b(5,k)=max((b(3,k+1)+d(3,1,k)),(b(7,k+1)+d(7,2,k)));
b(6,k)=max((b(7,k+1)+d(7,1,k)),(b(3,k+1)+d(3,2,k)));
b(7,k)=max((b(8,k+1)+d(8,1,k)),(b(4,k+1)+d(4,2,k)));
b(8,k)=max((b(4,k+1)+d(4,1,k)),(b(8,k+1)+d(8,2,k)));
%計算LLR--------------------------------------
l(k)=max([...
    (a(1,k)+d(1,2,k)+b(5,k+1)),(a(2,k)+d(2,2,k)+b(1,k+1)),...
    (a(3,k)+d(3,2,k)+b(2,k+1)),(a(4,k)+d(4,2,k)+b(6,k+1)),...
    (a(5,k)+d(5,2,k)+b(7,k+1)),(a(6,k)+d(6,2,k)+b(3,k+1)),...
    (a(7,k)+d(7,2,k)+b(4,k+1)),(a(8,k)+d(8,2,k)+b(8,k+1))...
    ])-max([...
    (a(1,k)+d(1,1,k)+b(1,k+1)),(a(2,k)+d(2,1,k)+b(5,k+1)),...
    (a(3,k)+d(3,1,k)+b(6,k+1)),(a(4,k)+d(4,1,k)+b(2,k+1)),...
    (a(5,k)+d(5,1,k)+b(3,k+1)),(a(6,k)+d(6,1,k)+b(7,k+1)),...
    (a(7,k)+d(7,1,k)+b(8,k+1)),(a(8,k)+d(8,1,k)+b(3,k+1))...
    ]);

% k=3&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
k=3;
b(1,k)=max((b(1,k+1)+d(1,1,k)),(b(5,k+1)+d(5,2,k)));
b(2,k)=max((b(5,k+1)+d(5,1,k)),(b(1,k+1)+d(1,2,k)));
b(3,k)=max((b(6,k+1)+d(6,1,k)),(b(2,k+1)+d(2,2,k)));
b(4,k)=max((b(2,k+1)+d(2,1,k)),(b(6,k+1)+d(6,2,k)));
b(5,k)=max((b(3,k+1)+d(3,1,k)),(b(7,k+1)+d(7,2,k)));
b(6,k)=max((b(7,k+1)+d(7,1,k)),(b(3,k+1)+d(3,2,k)));
b(7,k)=max((b(8,k+1)+d(8,1,k)),(b(4,k+1)+d(4,2,k)));
b(8,k)=max((b(4,k+1)+d(4,1,k)),(b(8,k+1)+d(8,2,k)));
%計算LLR--------------------------------------
l(k)=max([...
    (a(1,k)+d(1,2,k)+b(5,k+1)),(a(2,k)+d(2,2,k)+b(1,k+1)),...
    (a(3,k)+d(3,2,k)+b(2,k+1)),(a(4,k)+d(4,2,k)+b(6,k+1)),...
    (a(5,k)+d(5,2,k)+b(7,k+1)),(a(6,k)+d(6,2,k)+b(3,k+1)),...
    (a(7,k)+d(7,2,k)+b(4,k+1)),(a(8,k)+d(8,2,k)+b(8,k+1))...
    ])-max([...
    (a(1,k)+d(1,1,k)+b(1,k+1)),(a(2,k)+d(2,1,k)+b(5,k+1)),...
    (a(3,k)+d(3,1,k)+b(6,k+1)),(a(4,k)+d(4,1,k)+b(2,k+1)),...
    (a(5,k)+d(5,1,k)+b(3,k+1)),(a(6,k)+d(6,1,k)+b(7,k+1)),...
    (a(7,k)+d(7,1,k)+b(8,k+1)),(a(8,k)+d(8,1,k)+b(3,k+1))...
    ]);

% k=2&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
k=2;
b(1,k)=max((b(1,k+1)+d(1,1,k)),(b(5,k+1)+d(5,2,k)));
b(2,k)=max((b(5,k+1)+d(5,1,k)),(b(1,k+1)+d(1,2,k)));
b(3,k)=max((b(6,k+1)+d(6,1,k)),(b(2,k+1)+d(2,2,k)));
b(4,k)=max((b(2,k+1)+d(2,1,k)),(b(6,k+1)+d(6,2,k)));
b(5,k)=max((b(3,k+1)+d(3,1,k)),(b(7,k+1)+d(7,2,k)));
b(6,k)=max((b(7,k+1)+d(7,1,k)),(b(3,k+1)+d(3,2,k)));
b(7,k)=max((b(8,k+1)+d(8,1,k)),(b(4,k+1)+d(4,2,k)));
b(8,k)=max((b(4,k+1)+d(4,1,k)),(b(8,k+1)+d(8,2,k)));
%計算LLR--------------------------------------
l(k)=max([...
    (a(1,k)+d(1,2,k)+b(5,k+1)),(a(2,k)+d(2,2,k)+b(1,k+1)),...
    (a(3,k)+d(3,2,k)+b(2,k+1)),(a(4,k)+d(4,2,k)+b(6,k+1)),...
    (a(5,k)+d(5,2,k)+b(7,k+1)),(a(6,k)+d(6,2,k)+b(3,k+1)),...
    (a(7,k)+d(7,2,k)+b(4,k+1)),(a(8,k)+d(8,2,k)+b(8,k+1))...
    ])-max([...
    (a(1,k)+d(1,1,k)+b(1,k+1)),(a(2,k)+d(2,1,k)+b(5,k+1)),...
    (a(3,k)+d(3,1,k)+b(6,k+1)),(a(4,k)+d(4,1,k)+b(2,k+1)),...
    (a(5,k)+d(5,1,k)+b(3,k+1)),(a(6,k)+d(6,1,k)+b(7,k+1)),...
    (a(7,k)+d(7,1,k)+b(8,k+1)),(a(8,k)+d(8,1,k)+b(3,k+1))...
    ]);

% k=1&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
k=1;
b(1,k)=max((b(1,k+1)+d(1,1,k)),(b(5,k+1)+d(5,2,k)));
b(2,k)=max((b(5,k+1)+d(5,1,k)),(b(1,k+1)+d(1,2,k)));
b(3,k)=max((b(6,k+1)+d(6,1,k)),(b(2,k+1)+d(2,2,k)));
b(4,k)=max((b(2,k+1)+d(2,1,k)),(b(6,k+1)+d(6,2,k)));
b(5,k)=max((b(3,k+1)+d(3,1,k)),(b(7,k+1)+d(7,2,k)));
b(6,k)=max((b(7,k+1)+d(7,1,k)),(b(3,k+1)+d(3,2,k)));
b(7,k)=max((b(8,k+1)+d(8,1,k)),(b(4,k+1)+d(4,2,k)));
b(8,k)=max((b(4,k+1)+d(4,1,k)),(b(8,k+1)+d(8,2,k)));
%計算LLR--------------------------------------
l(k)=max([...
    (a(1,k)+d(1,2,k)+b(5,k+1)),(a(2,k)+d(2,2,k)+b(1,k+1)),...
    (a(3,k)+d(3,2,k)+b(2,k+1)),(a(4,k)+d(4,2,k)+b(6,k+1)),...
    (a(5,k)+d(5,2,k)+b(7,k+1)),(a(6,k)+d(6,2,k)+b(3,k+1)),...
    (a(7,k)+d(7,2,k)+b(4,k+1)),(a(8,k)+d(8,2,k)+b(8,k+1))...
    ])-max([...
    (a(1,k)+d(1,1,k)+b(1,k+1)),(a(2,k)+d(2,1,k)+b(5,k+1)),...
    (a(3,k)+d(3,1,k)+b(6,k+1)),(a(4,k)+d(4,1,k)+b(2,k+1)),...
    (a(5,k)+d(5,1,k)+b(3,k+1)),(a(6,k)+d(6,1,k)+b(7,k+1)),...
    (a(7,k)+d(7,1,k)+b(8,k+1)),(a(8,k)+d(8,1,k)+b(3,k+1))...
    ]);