Merge pull request #1 from ziejd2/octave_php_separate

Octave php separate

1 files changed, 19 insertions, 0 deletions

diff --git a/sourcecodes/bnt-master/netlab3.3/netderiv.m b/sourcecodes/bnt-master/netlab3.3/netderiv.m
new file mode 100644
index 00000000..2c6b379c
--- /dev/null
+++ b/sourcecodes/bnt-master/netlab3.3/netderiv.m
@@ -0,0 +1,19 @@
+function g = netderiv(w, net, x)
+%NETDERIV Evaluate derivatives of network outputs by weights generically.
+%
+%	Description
+%
+%	G = NETDERIV(W, NET, X) takes a weight vector W and a network data
+%	structure NET, together with the matrix X of input vectors, and
+%	returns the gradient of the outputs with respect to the weights
+%	evaluated at W.
+%
+%	See also
+%	NETEVFWD, NETOPT
+%
+
+%	Copyright (c) Ian T Nabney (1996-2001)
+
+fstr = [net.type, 'deriv'];
+net = netunpak(net, w);
+g = feval(fstr, net, x);