diff options
Diffstat (limited to 'sourcecodes/bnt-master/netlabKPM/nethess_weighted.m')
| -rw-r--r-- | sourcecodes/bnt-master/netlabKPM/nethess_weighted.m | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/sourcecodes/bnt-master/netlabKPM/nethess_weighted.m b/sourcecodes/bnt-master/netlabKPM/nethess_weighted.m new file mode 100644 index 00000000..f075513d --- /dev/null +++ b/sourcecodes/bnt-master/netlabKPM/nethess_weighted.m @@ -0,0 +1,29 @@ +function [h, varargout] = nethess_weighted(w, net, x, t, eso_w, varargin) +%NETHESS Evaluate network Hessian +% +% Description +% +% H = NETHESS(W, NET, X, T) takes a weight vector W and a network data +% structure NET, together with the matrix X of input vectors and the +% matrix T of target vectors, and returns the value of the Hessian +% evaluated at W. +% +% [E, VARARGOUT] = NETHESS(W, NET, X, T, VARARGIN) also returns any +% additional return values from the network Hessian function, and +% passes additional arguments to that function. +% +% See also +% NETERR, NETGRAD, NETOPT +% + +% Copyright (c) Ian T Nabney (1996-9) + +hess_str = [net.type, 'hess_weighted']; + +net = netunpak(net, w); + +[s{1:nargout}] = feval(hess_str, net, x, t, eso_w, varargin{:}); +h = s{1}; +for i = 2:nargout + varargout{i-1} = s{i}; +end |