rspolysub.m

RS编码程序设计

%
%   File Name   :   RsPolySub.m
%   Abstract    :   GF(2^4)元素的多项式的减法
%                    
%   Version     :   1.0     2008-5-26
%*************************************************************************
function [PolySub] = RsPolySub(LPoly, RPoly)

%maximun length of the two polies
LenLPoly=length(LPoly);
LenRPoly=length(RPoly);
LenPoly=max(LenLPoly,LenRPoly);


%operation of subtraction of two polies              
if(LenLPoly>LenRPoly)
    PolySub=LPoly;
    for n=1:LenRPoly
        PolySub(n)=RsSymbolAdd(PolySub(n), RPoly(n));
    end
else
    PolySub=RPoly;
    for n=1:LenLPoly
        PolySub(n)=RsSymbolAdd(PolySub(n), LPoly(n));
    end
end