pan_2psk.m

来自「水声通信中的psk方法」· M 代码 · 共 9 行

function   [pan,pan_equ]=pan_2psk(detect)
refen=[1,-1];
inform=[0,1];
for n=1:length(detect)
    [mag,loc]=min(abs(detect(n)-refen));
    pan(n)=inform(loc);
    pan_equ(n)=refen(loc);
end