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/rbfpak.m b/sourcecodes/bnt-master/netlab3.3/rbfpak.m
new file mode 100644
index 00000000..a482f99b
--- /dev/null
+++ b/sourcecodes/bnt-master/netlab3.3/rbfpak.m
@@ -0,0 +1,19 @@
+function w = rbfpak(net)
+%RBFPAK	Combines all the parameters in an RBF network into one weights vector.
+%
+%	Description
+%	W = RBFPAK(NET) takes a network data structure NET and combines the
+%	component parameter matrices into a single row vector W.
+%
+%	See also
+%	RBFUNPAK, RBF
+%
+
+%	Copyright (c) Ian T Nabney (1996-2001)
+
+errstring = consist(net, 'rbf');
+if ~errstring
+  error(errstring);
+end
+
+w = [net.c(:)', net.wi, net.w2(:)', net.b2];