rspolymul.m

RS编码程序设计

%
%   File Name   :   RsPolyMul.m
%   Abstract    :   GF(2^4)域多项式乘法
%   
%   Version     :   1.0    2008-5-27
%*************************************************************************
function [PolyProd] = RsPolyMul(LPoly, RPoly)


LenLPoly=length(LPoly);%length of LPoly
LenRPoly=length(RPoly);%length of RPoly
LenPoly=LenLPoly+LenRPoly-1;%the length of result


if(LenLPoly==0 || LenRPoly==0)
    PolyProd=0;
    return
else
    PolyProd=zeros(1,LenPoly);
end
%operation of sum of tow polies              
for n = 1:LenRPoly                           
    if ( RPoly(n) ~= 0 )
        for m = 1:LenLPoly
            PolyProd(m+n-1) =RsPolyAdd(PolyProd(m+n-1),RsSymbolMul(RPoly(n), LPoly(m)));
        end
    end
end
end