《MATLAB R2016a通信系统建模与仿真28个案例分析》源码

function y=apcm（xa）
% 本函数实现将输入的序列x进行参数为A的对数
% A律量化将得到的结果存在序列y中
% x为一个序列，值在0到1之间
% a为一个正实数，大于1
t=1/a;
for i=1:length（x）
    if （x（i）>=0）  %判断该输入序列值是否大于0
        if （x（i）<=t）  
            y（i）=（a*x（i））/（1+log（a））;  %若值小于1/a，则采用此计算法
        else
            y（i）=（1+log（a*x（i）））/（1+log（a））; %若值大于1/A，则采用另一计算法
        end
    else
        if （x（i）>=-t） %若值小于0，则算法有所不同
            y（i）=-（a*-x（i））/（1+log（a））;
        else
            y（i）=-（1+log（a*-x（i）））/（1+log（a））;
        end    %内层条件判断结束
    end        %外层条件判断结束
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件         662  2016-10-27 18:07  apcm.m
     文件         208  2016-10-26 08:01  conv_n.m
     文件         352  2016-10-27 19:35  cplxcomp.m
     文件         653  2016-10-27 17:11  Demodulator.m
     文件      170964  2009-06-11 04:40  ding.wav
     文件         738  2016-10-27 19:46  dir2cas.m
     文件         899  2016-10-27 19:35  dir2par.m
     文件       14365  2015-03-09 14:39  exp7_16.slx
     文件         721  2016-10-27 10:07  fftseq.m
     文件         486  2016-10-27 17:40  gngauss.m
     文件        1119  2015-03-12 15:05  huffman_code.m
     文件         240  2009-04-26 20:37  impseq.m
     文件      118060  2009-06-11 04:42  ir_begin.wav
     文件        1003  2016-10-27 17:23  li10_1.m
     文件        1114  2016-10-27 17:24  li10_2.m
     文件         671  2016-10-27 17:25  li12_1.m
     文件         366  2016-10-27 17:25  li13_1.m
     文件         423  2016-10-27 17:27  li13_1_.m
     文件         766  2016-10-27 17:29  li13_2.m
     文件         608  2016-10-27 17:30  li13_3.m
     文件         148  2016-10-27 17:31  li13_5.m
     文件         128  2016-10-27 17:32  li13_6.m
     文件         181  2016-10-27 17:33  li13_7.m
     文件         857  2016-10-27 17:34  li14_1.m
     文件         792  2016-10-27 17:35  li14_2.m
     文件         611  2016-10-27 17:35  li14_3.m
     文件         236  2016-10-27 17:36  li14_4.m
     文件         764  2016-10-27 17:37  li14_5.m
     文件         260  2016-10-27 17:37  li15_1.m
     文件         645  2016-10-27 17:38  li15_2.m
     文件         261  2016-10-27 17:38  li15_3.m
............此处省略126个文件信息