dtmfde.m

Matlab源程序

%DTMFde解码子程序
function dtmfde=DTMFde(y)
global n;
global gg;
global dd;
    N=205;                                         %样本长度
    k=[18 20 22 24 31 34 38 42];             %DFT样本序号
    Y=goertzel(y(1:N),k+1);                         %计算八点DFT
    val=abs(Y);                                       
 
    limit=80;          %规定检测门限
    for s=5:8;
        if val(s)>limit,break,end  %查找列号
    end
    for r=1:4
        if val(r)>limit,break,end   %查找行号
    end
    tm=[49,50,51,65;52,53,54,66;55,56,57,67;42,48,35,68];  %16个ASCII码
    %disp(['接收端检测到的号码为',setstr(tm(r,s-4))])  %显示接收到的字符
    dd=setstr(tm(r,s-4));