function s=sigmoid(x) %   G. Raetsch 1.6.98%   Copyright (c) 1998  GMD Berlin - All rights reserved%   THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE of GMD FIRST Berlin%   The copyright notice above does not evidence any%   actual or intended publication of this work.%   Please see COPYRIGHT.txt for details.s=tanh(x) ;