function y = yieldnet(x)
% return as y the approximate for the yieldcurve
%x can be a vector or a scalar
% Copyright (c)Andreas S Weigend (1999)

hu = tanh(x*[1.01 -0.59 1.41] + ones(length(x),1) * [0.52 -0.43 -10.9]);
y = hu * [-0.15 -2.85 0.64]' + ones(length(x),1) * 2.85;