shuang.m

BAM是一种两层的异联想

function S=shuang(x)
S = sign(x);
S(find(S==0)) =-1;