test_ceintratile.m

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  Property of Freescale
%  Freescale Confidential Proprietary
%  Freescale Copyright (C) 2005 All rights reserved
%  ----------------------------------------------------------------------------
%  $RCSfile: test_CEIntraTile.m.rca $
%  Tag $Name:  $
%  $Revision: 1.1 $
%  $Date: Fri Oct 27 18:01:44 2006 $
%  Target: Matlab
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%-- Matlab files used by this file
%-- End of list

function status = test_CEIntraTile

addpath('../');
addpath('../../../../../../../SP/CM/matlab');

ModuleName = 'CEIntraTile';
disp(['Testing ' ModuleName ' ... ']);

%-- Test vectors, 1st col input, 2nd col reference
TV = { ...
    'TCRND/IF2dRXPlt_RND_RND_RND_RND.lod' 'TCRND/IF2cRXCtrl_RND_RND_RND_RND.lod' ;
    };

%-- General settings
ntile = 6;
Q = 15;

%-- Loop over the TV
for i=1:size(TV,1)

    %-- Load stimuli
    In = mGetBin(['../../vector/in/' TV{i,1} ],'int16','1R1I','b');
    Ref = mGetBin(['../../vector/ref/' TV{i,2}],'int32','1R1I','b');

    %-- Adjust Data
    In=double(In);
    In_col = reshape(In,1,size(In,1)) ;

    %-- Call Matlab function
    mOut = reshape(CEIntraTile(ntile,In_col(1:end/2),In_col(end/2 +1 :end) ),size(In_col,2)*2,1) ;

    %-- Compare
    diff = mOut-double(Ref) ;
    result(i) = any( abs(diff) >4  ) ;  %max allowed difference is 2 unit
    if any(result(i))
        disp(['Error: MEX function failed for ' TV{i,1} ]);
    else
        disp(['OK: MEX function succeeded for ' TV{i,1} ]);
    end
end

if any(result)
    disp(['Error: MEX function ' ModuleName ' failed.' ]);
    status = -1 ;
else
    disp(['OK: MEX function ' ModuleName ' succeeded.'  ]);
    status = 1;
end


rmpath('../');
rmpath('../../../../../../../SP/CM/matlab');