comparison toolboxes/FullBNT-1.0.7/netlabKPM/nethess_weighted.m @ 0:e9a9cd732c1e tip

first hg version after svn
author wolffd
date Tue, 10 Feb 2015 15:05:51 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:e9a9cd732c1e
1 function [h, varargout] = nethess_weighted(w, net, x, t, eso_w, varargin)
2 %NETHESS Evaluate network Hessian
3 %
4 % Description
5 %
6 % H = NETHESS(W, NET, X, T) takes a weight vector W and a network data
7 % structure NET, together with the matrix X of input vectors and the
8 % matrix T of target vectors, and returns the value of the Hessian
9 % evaluated at W.
10 %
11 % [E, VARARGOUT] = NETHESS(W, NET, X, T, VARARGIN) also returns any
12 % additional return values from the network Hessian function, and
13 % passes additional arguments to that function.
14 %
15 % See also
16 % NETERR, NETGRAD, NETOPT
17 %
18
19 % Copyright (c) Ian T Nabney (1996-9)
20
21 hess_str = [net.type, 'hess_weighted'];
22
23 net = netunpak(net, w);
24
25 [s{1:nargout}] = feval(hess_str, net, x, t, eso_w, varargin{:});
26 h = s{1};
27 for i = 2:nargout
28 varargout{i-1} = s{i};
29 end