音频信号编码成PCM

%% 本函数实现国际通用的PCM量化A律13特性近似，x为输入的序列A率自定义值，M为最大量化单位，yn为量化值，Cn为编码值

function [CnynQn] = APCM（xMmodel）
%% 输入信号量化前归一化处理
xt = x/max（abs（x））; 

s = sign（xt）;  % 符号函数，求得每一序列值的符号

Xt = abs（xt）;  % 求归一化后序列的绝对值

Q =M*Xt; % 确定量化单位

Qn=zeros（length（x）2）;%Qn（:1）段数，Qn（:2）段内数

%% 均匀PCM编码模式
a=M*[01/1281/641/321/161/81/41/21];
%段内最小量化间隔
for ii = 1:8;  an（ii）= （a（ii+1）-a（ii））/16 ;end

%% 选择为PCM编码或者对数PCM码组的线性PCM的13位码组
if model==1
    
     ypcm = zeros（length（x）8）; 
     
     for i =1:length（Q）
         
         for j = 1:8
             
             if Q（i）>=a（j） && Q（i）                 
                 Qn（i1）=j-1; % 段数确定
                 
                 for k =0:15
                     
                     if Q（i）>=a（j）+k*an（j） && Q（i）                          
                         Qn（i2） = k; % 段内数确定
                         
                          yn（i） = （（a（j）+（k+0.5）*an（j））*max（abs（x））*s（i））/M;
                         
                     end
                 end
             end
         end
         
         if Q（i）==a（9）
             
             Qn（i:） = [715] ;
             
             yn（i） = max（abs（x））*s（i）;
             
         end
         
         %符号位的判断
         if s（i）>0
             
             ypcm（i1）=1;
             
         elseif s（i）<0
             
             ypcm（i1）=0;
             
         end  
         ypcm（i2:4） = （numto2（Qn（i1）3））‘;
         
         ypcm（i5:8） =  （numto2（Qn（i2）4））‘;
     end
end       

Cn = ypcm;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2018-07-04 09:55  音乐信号编码matlab20180702
     文件        1761  2018-07-03 21:53  音乐信号编码matlab20180702APCM.m
     文件      768044  2018-07-04 09:52  音乐信号编码matlab20180702Dquit1.wav
     文件      768044  2018-07-04 09:52  音乐信号编码matlab20180702Dquit2.wav
     文件      264155  2018-07-04 09:54  音乐信号编码matlab20180702SL_data.mat
     文件     3840044  2018-07-03 22:15  音乐信号编码matlab20180702SL_data.wav
     文件         206  2018-07-02 22:16  音乐信号编码matlab20180702calsample.m
     文件        1098  2018-07-04 09:52  音乐信号编码matlab20180702cy_read01.m
     文件         896  2018-07-03 19:01  音乐信号编码matlab20180702dec2binPN.m
     文件         354  2018-07-03 21:42  音乐信号编码matlab20180702
umto2.m
     文件         275  2018-07-02 20:02  音乐信号编码matlab20180702wavread.m
     文件          36  2018-07-02 22:51  音乐信号编码matlab20180702函数说明.txt
     文件     1536044  2018-07-04 09:51  音乐信号编码matlab20180702烟花易冷8s.wav