pan_2psk.m

水声通信中的psk方法

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