nndtansig.m

来自「《神经网络设计》英文版的配套源代码」· M 代码 · 共 5 行

function a = nndtansig(n)
a = 2 ./ (1 + exp(-2*n)) - 1;
i = find(~isfinite(a));
a(i) = sign(n(i));