shuang.m

来自「BAM是一种两层的异联想」· M 代码 · 共 4 行

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