sbx_updlspm_ctc.m

OFDMA 物理层开发的matlab 源码.飞思卡尔提供.对物理层开发的工程师有帮助!

function [BlkSize temp XSLArguments] = SBX_UPDLSPM_CTC(temp,IUC,Boosting,DataSize,BlkSize,FECType,PunctMode,ModMode,res,testcase,BurstNo,XSLArguments)
  
% Downlink Tx (BS) chain of user processing of IEEE 802.16-2004 (WiMAX,
% OFDMA only)
% This function chains up all the MEX functions.
%
%     [SlotVecs] = UPDLTXchain(In,SlotVecs,ZoneD,DLBurstD)
%
% This function chains up all the required Matlab functions and processes
% the payload data of one burst (In). After modulation mapping the data is
% mapped into the defined data region of the zone (SlotVecs).
%
% temp      : input vector, code block basis payload data for one burst
%             (unsigned bytes, values 0 or 255)
% IUC       : IUC for the particular burst (BurstD(b).IUC)
% Boosting  : Boosting type for the particular burst (BurstD(b).Boosting)
% DataSize  : row vector, length = number of code blocks
%             number of unpadded payload data bytes for each code block
% BlkSize   : row vector, length = number of code blocks
%             number of padded payload data bytes for each code block
% FECType   : 
% PunctMode :
% ModMode   :
% testcase: If testcase is unequal 0 test vectors are generated in
%           in the folders "../vector/in/TC<testcase>" and
%           "../vector/ref/TC<testcase>" . Default is testcase=0.
% BurstNo : burst number (0..99), for test vector generation,
%           only required if testcase~=0
%
% Matlab 7 Release 14 SP2

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  Property of Freescale
%  Freescale Confidential Proprietary
%  Freescale Copyright (C) 2005 All rights reserved
%  ----------------------------------------------------------------------------
%  $RCSfile: SBX_UPDLSPM_CTC.m.rca $
%  $Revision: 1.2 $
%  $Date: Tue Jan 30 09:08:19 2007 $
%  Target: Matlab
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%check 'testcase' parameter
if ~exist('testcase','var')
    testcase=0;  %default
end

% %path is relative to the UP/*/SPManager/matlab folder
% addpath('../../../CM/Utilities/matlab');
% addpath('../../../DL/SPKernel/Rand/matlab');
% addpath('../../../DL/SPKernel/ConvEnc/matlab');
% addpath('../../../DL/SPKernel/Punct/matlab');
% addpath('../../../DL/SPKernel/IL/matlab');
% addpath('../../../DL/SPKernel/ModMap/matlab');


FN=0;%Frame number and Zone number is concidered as 0 for time being
ZN=0;%Frame number and Zone number is concidered as 0 for time being

%generate test vector directory
if testcase
   TCstr=sprintf('TC%03d',testcase);
   if ~exist(['../vector/ref/',TCstr],'dir')
      mkdir(['../vector/ref/',TCstr]);
   end
   if ~exist(['../vector/in/',TCstr],'dir')
      mkdir(['../vector/in/',TCstr]);
   end
  
        FN=0;%Frame number and Zone number is concidered as 0 for time being
        ZN=0;%Frame number and Zone number is concidered as 0 for time being
else
   TCstr='';
end

% NOTE: "temp" is used here as the only temporary buffer to keep the
%       Matlab memory requirements low. 



%randomize
%%%%%%%%%%%%%%%%%%%%%%%%%%
if IUC~=255, % do not randomize FCH
    % [temp,BlkSize] = mPadRandomizer(temp,DataSize,BlkSize);
    tempBeforeRandomizer = temp ;
     %[temp,BlkSize] = mRandomizer(temp,BlkSize);
     [temp,BlkSizeAfterRandomizer] = mRandomizer(temp,BlkSize);
     tempAfterRandomizer = temp;
end
%test vector generation
if testcase
    %at SBX/SP/UP/DL/SPKernel/CTC/CTCenc/vector/in
            if ~exist(['../../SPKernel/CTC/CTCenc/vector/in/',TCstr],'dir')
                mkdir(['../../SPKernel/CTC/CTCenc/vector/in/',TCstr]);
            end
            for i=1:size(temp,2)
                mGenBin(temp(1:BlkSize(i),i),...
                    sprintf('../../SPKernel/CTC/CTCenc/vector/in/%s/IF1dTX_%02d_%02d_%02d_%02d.lod',TCstr,FN,ZN,BurstNo,i-1),...
                    'uint8','R');
            end
end


% %FEC encoding
% %%%%%%%%%%%%%%%%%%%%%%%%%%
% [temp,BlkSize] = FECEncoder(temp,BlkSize,FECType,PunctMode,testcase,TCstr,BurstNo);
% %(test vector generation within the FEC Encoder function)

%CTC encoder
%%%%%%%%%%%%%%%%%%%%%%%%%%

%hack TC510
if BurstNo==3
        Type = 0 ;
    end
%end hack

%debug
%hex2dec({'F8' ;'15';'53';'D3';'FE';'12';'FC';'79';'A4'})'
%ans =   248    21    83   211   242    18   252   121   164
%  temp = [ 248    21    83   211   254    18   252   121   164]' ;
%  BlkSize = 9 ;
% temp = hex2dec({'01' ;'23';'45';'67';'89';'AB';'CD';'EF'; ...
%                 '01' ;'23';'45';'67';'89';'AB';'CD';'EF'; ...
%                 '01' ;'23'});
% BlkSize = 18 ;

BlkSizeBeforeCTC = BlkSize ;
tempBeforeCTC = temp ;
[temp,BlkSize] = mCTC_enc(temp,BlkSize,Type);
%[temp,BlkSize] = mCTC_enc(tempBeforeRandomizer,BlkSize,Type);

%test vector generation
if testcase
    %at SBX/SP/UP/DL/SPKernel/ModMap/vector/in
            if ~exist(['../../SPKernel/ModMap/vector/in/',TCstr],'dir')
                mkdir(['../../SPKernel/ModMap/vector/in/',TCstr]);
            end
            for i=1:size(temp,2)
                mGenBin(temp(1:BlkSize(i),i),...
                    sprintf('../../SPKernel/ModMap/vector/in/%s/IF1gTX_%02d_%02d_%02d_%02d.lod',TCstr,FN,ZN,BurstNo,i-1),...
                    'uint8','R');
            end
end


% %test
%CTC decoder
% nIter = 8 ;
% [ctc_outTemp,BlkSizeTemp] = mCTC_dec(temp.*(-256)+128,BlkSize,nIter,Type);

%modulation mapping
%%%%%%%%%%%%%%%%%%%%%%%%%%
% temp = mModMapper_API(temp,BlkSize,ModMode,res,Boosting);%All code blocks given in once
%Call mode mapper code block by code block
for bl=1:length(BlkSize)
    %temp1(:,bl) = mModMapper_API(temp(:,bl),BlkSize(bl),ModMode,res,Boosting);
    temp1(:,bl) = mModMapper(temp(:,bl),ModMode,res,Boosting);
end
temp=temp1;
BlkSize=BlkSize/ModMode;

%test vector generation
if testcase
    %at SBX/SP/UP/DL/SPKernel/ModMap/vector/ref
            if ~exist(['../../SPKernel/ModMap/vector/ref/',TCstr],'dir')
                mkdir(['../../SPKernel/ModMap/vector/ref/',TCstr]);
            end
            for i=1:size(temp,2)
                mGenBin(temp(1:BlkSize(i),i),...
                    sprintf('../../SPKernel/ModMap/vector/ref/%s/IF1hTX_%02d_%02d_%02d_%02d.lod',TCstr,FN,ZN,BurstNo,i-1),...
                    'int16','1R1I');
            end
            
            if ~exist(['../../SPManager/vector/ref/',TCstr],'dir')
                mkdir(['../../SPManager/vector/ref/',TCstr]);
            end
            for i=1:size(temp,2)
                mGenBin(temp(1:BlkSize(i),i),...
                    sprintf('../../SPManager/vector/ref/%s/IF1hTX_%02d_%02d_%02d_%02d.lod',TCstr,FN,ZN,BurstNo,i-1),...
                    'int16','1R1I');
            end
            
end

% %test vector generation
% if testcase
%   blks=length(BlkSize);
%   for b=1:blks,
%       %at SBX/SP/UP/DL/SPManager/vector/ref
%       mGenBin(temp(1:BlkSize(b),b),...
%             sprintf('../vector/ref/%s/IF1hTX_%02d_%02d_%02d_%02d.lod',TCstr,FN,ZN,BurstNo,b-1),...
%             'int16','1R1I');
%       %at SBX/SP/UP/DL/SPKernel/RepSlotMap/vector/in
%       if ~exist(['../../SPKernel/RepSlotMap/vector/in/',TCstr],'dir')
%       mkdir(['../../SPKernel/RepSlotMap/vector/in/',TCstr]);
%       end  
%       mGenBin(temp(1:BlkSize(b),b),...
%             sprintf('../../SPKernel/RepSlotMap/vector/in/%s/IF1hTX_%02d_%02d_%02d_%02d.lod',TCstr,FN,ZN,BurstNo,b-1),...
%             'int16','1R1I');
%       %at SBX/SP/UP/DL/SPKernel/ModMap/vector/ref
%       if ~exist(['../../SPKernel/ModMap/vector/ref/',TCstr],'dir')
%       mkdir(['../../SPKernel/ModMap/vector/ref/',TCstr]);
%       end
%       mGenBin(temp(1:BlkSize(b),b),...
%             sprintf('../../SPKernel/ModMap/vector/ref/%s/IF1hTX_%02d_%02d_%02d_%02d.lod',TCstr,FN,ZN,BurstNo,b-1),...
%             'int16','1R1I');
%      %IF1hTX = IF1iTX   
%      %at SBX/Manager/DL/DataWriteback/vector/in
%       if ~exist(['../../../../../Manager/DL/DataWriteback/vector/in/',TCstr],'dir')
%       mkdir(['../../../../../Manager/DL/DataWriteback/vector/in/',TCstr]);
%       end  
%       mGenBin(temp(1:BlkSize(b),b),...
%             sprintf('../../../../../Manager/DL/DataWriteback/vector/in/%s/IF1iTX_%02d_%02d_%02d_%02d.lod',TCstr,FN,ZN,BurstNo,b-1),...
%             'int16','1R1I');
%   end
% end
%