rssymboldiv.m

RS编码程序设计

%   File Name   :   RsSymbolDiv.m
%   Abstract    :   GF(2.^4)元素的除法
%                    
%   Version     :   1.0     2008-5-22
%*************************************************************************

function [Sum]=RsSymbolDiv(LOperand, ROperand)

NumtoPower=[1,2,4,8,3,6,12,11,5,10,7,14,15,13,9];%create the table for searching


%operation of division
if(LOperand~=0|ROperand~=0)
L=find(NumtoPower==LOperand)-1;
R=find(NumtoPower==ROperand)-1;
Sum=NumtoPower(mod(L-R,15)+1);

elseif(LOperand==0)
    Sum=0;
else
    error('Error! The divisor cannot be zero!')%error operation
    end;