1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
function [h, varargout] = nethess(w, net, x, t, 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-2001)
hess_str = [net.type, 'hess'];
net = netunpak(net, w);
[s{1:nargout}] = feval(hess_str, net, x, t, varargin{:});
h = s{1};
for i = 2:nargout
varargout{i-1} = s{i};
end
|
