test_mceintratile.m

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  Property of Freescale
%  Freescale Confidential Proprietary
%  Freescale Copyright (C) 2005 All rights reserved
%  ----------------------------------------------------------------------------
%  $RCSfile: test_mCEIntraTile.m.rca $
%  Tag $Name:  $
%  $Revision: 1.2 $
%  $Date: Thu Jan  4 14:48:03 2007 $
%  Target: Matlab
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

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


function status = test_mCEIntraTile

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)./2^Q;
    In = double(In);

    %-- Call Matlab function
    mOut = reshape(mCEIntraTile(ntile,In(1:end/2),In(end/2 +1 :end) ),length(In)*2,1) ;
    %mOut_fixed = round(mOut*2^31);
    %mOut_fixed = round(mOut*2^15);
    mOut_fixed = round(mOut);
    
    %-- Compare
    result(i) = any(mOut_fixed-double(Ref) );
    if any(result(i))
        disp(['Error: Matlab function failed for ' TV{i,1} ]);
    else
        disp(['OK: Matlab function succeeded for ' TV{i,1} ]);
    end
end

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


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