conv_dec_soft_c.m

通信中常用的卷积码信道译码源码程序

function [Data_decoded, berrs, ferrs] = ...
    conv_dec_soft_C(Data_received,Data,Trellis,Lut,alpha_channel,...
		    fading_gains,N0,TerminateF,PunctureF,ModMap);

%------------------------------------------------------------------------------
% Decode complex valued, 1-D received vector.
%
% Format:
% -------
%
% [outputs, Raw_BER] = ...
%    conv_dec_soft_C(Data_received,Data,Trellis,Lut,alpha_channel,...
%		    fading_gains,N0,TerminateF,PunctureF);
% 
% Author: MVe
% Date:   05.07.2002
%------------------------------------------------------------------------------


% De-interleave data
%Data_received(alpha_channel) = Data_received;

final_state_path = conv_dec_soft_CC(Data_received, Trellis.NextState, ...
				    ModMap(Trellis.Output), fading_gains, ...
				    Trellis.m);

% Convert state path to info bit sequence
out_tmp = cell(1,length(final_state_path)-1);
for i1 = 2:length(out_tmp)
  out_tmp(i1) = ...
      Lut.InfBits(final_state_path(i1),final_state_path(i1+1));
end % for i1 = 1:2:length(Data_received)


Data_decoded = [out_tmp{:}];

if TerminateF
  Data_decoded = Data_decoded(1:end-Trellis.m);
end % if TerminateF

berrs = length(find(Data_decoded - Data(1:end-1)));
ferrs = (berrs>0);