A率PCM编码MATLAB程序

A率PCM编码 量化 抽样 matlab 可运行 可用 推荐~~~

function y=Alaw（xA）
a=max（abs（x））;
x=x/a;
indx=find（abs（x）<=1/A）;
if~isempty（indx）
    y（indx）=A/（log（A）+1）*abs（x（indx））.*sign（x（indx））;
end
indx=find（abs（x）>1/A）;
if~isempty（indx）
    y（indx）=1/（log（A）+1）*log（abs（x（indx））*A）.*sign（x（indx））;
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        137  2013-01-11 10:51  Alaw_pcm.m

     文件        259  2013-01-11 10:45  invAlaw.m

     文件        598  2013-01-11 10:45  upcm.m

     文件        256  2013-01-11 10:30  Alaw.m

----------- ---------  ---------- -----  ----

                 1250                    4