function ypcm=unalaw(name)
%本函數針對國際通用的PCM量化A律13特性近似編碼進行解碼

%從文件讀入壓縮編碼
fid=fopen([name,'.a'],'rb');
x=fread(fid,'int8');
s=sign(x);
x=abs(x);
%歸一化
x=x/128;
ypcm=zeros(length(x),1);

%基于13折線的分段解碼映射
for i=1:length(x)
    if x(i)<2/8           %序列值位于第1和第2折線
        ypcm(i)=1/16*x(i);
    elseif x(i)<3/8      %序列值位于第3折線
        ypcm(i)=1/8*(x(i)-1/8);
    elseif x(i)<4/8      %序列值位于第4折線
        ypcm(i)=1/4*(x(i)-2/8);
    elseif x(i)<5/8     %序列值位于第5折線
        ypcm(i)=1/2*(x(i)-3/8);
    elseif x(i)<6/8     %序列值位于第6折線
        ypcm(i)=x(i)-4/8;
    elseif x(i)<7/8    %序列值位于第7折線
        ypcm(i)=2*(x(i)-5/8);
    else               %序列值位于第8折線
        ypcm(i)=4*(x(i)-6/8);
    end
end
%加入符號
ypcm=ypcm.*s;