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