nndtansig.m

《神经网络设计》英文版的配套源代码

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