pcma13.m

简单易懂的A-Law（13-segment) PCM的源代码,encode 的过程

function y=pcmA13(x)
%A-law 13-segment
x=abs(x);
for i=1:length(x)
    if (x(i)>=0)&(x(i)<1/64)                   %the slops of both the first and the second segment are 16
        y(i)=16*x(i);
    elseif (x(i)>=1/64)&(x(i)<1/32)
        y(i)=8*x(i)+1/8;
    elseif (x(i)>=1/32)&(x(i)<1/16)
        y(i)=4*x(i)+2/8;
    elseif (x(i)>=1/16)&(x(i)<1/8)
        y(i)=2*x(i)+3/8;
    elseif (x(i)>=1/8)&(x(i)<1/4)
        y(i)=x(i)+4/8;
    elseif (x(i)>=1/4)&(x(i)<1/2)
        y(i)=1/2*x(i)+5/8;
    elseif (x(i)>=1/2)&(x(i)<=1)
        y(i)=1/4*x(i)+6/8;
    end
end