%RS隱寫分析方法中的最核心函數
%在此函數中求解出進行M和-M變換的R組合S組的數目參數
function [R,S,U,MR,MS,MU]=RS_base(a,bufsize)
%l=length(a);
%進行M偽裝變換 并計算相應的參數
m=[1,0,1,0];
R=0;
S=0;
U=0;
for i=1:bufsize/4
   for m=1:4
		b(m)=a(4*(i-1)+m);
   end
   r=disc(b);
   %計算未進行函數變換前的噪聲值
    %進行函數變換
    c(1)=Fadd(b(1));
    c(2)=Fequal(b(2));
    c(3)=Fadd(b(3));
    c(4)=Fequal(b(4));
    c=[c(1),c(2),c(3),c(4)];
    %計算未進行函數變換后的噪聲值
    s=disc(c);
    if(s>r)
        R=R+1;   %計算R（M）值
    elseif(s<r)
        S=S+1;   %計算S（M）值
    else
        U=U+1;
    end
%進行-M偽裝變換 并計算相應的參數
    mm=[-1,0,-1,0];
    MR=0;
    MS=0;
    MU=0;
    d(1)=Fminus(b(1));
    d(2)=Fequal(b(2));
    d(3)=Fminus(b(3));
    d(4)=Fequal(b(4));
    d=[d(1),d(2),d(3),d(4)];
    %計算未進行函數變換后的噪聲值
    v=disc(d);
    if(v>r)
        MR=MR+1;   %計算R（-M）值
    elseif(v<r)
        MS=MS+1;   %計算S（-M）值
    else
        MU=MU+1;
    end
end