diff toolboxes/FullBNT-1.0.7/netlab3.3/mdnunpak.m @ 0:e9a9cd732c1e tip

first hg version after svn

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/toolboxes/FullBNT-1.0.7/netlab3.3/mdnunpak.m	Tue Feb 10 15:05:51 2015 +0000
@@ -0,0 +1,25 @@
+function net = mdnunpak(net, w)
+%MDNUNPAK Separates weights vector into weight and bias matrices. 
+%
+%	Description
+%	NET = MDNUNPAK(NET, W) takes an mdn network data structure NET and  a
+%	weight vector W, and returns a network data structure identical to
+%	the input network, except that the weights in the MLP sub-structure
+%	are set to the corresponding elements of W.
+%
+%	See also
+%	MDN, MDNPAK, MDNFWD, MDNERR, MDNGRAD
+%
+
+%	Copyright (c) Ian T Nabney (1996-2001)
+%	David J Evans (1998)
+
+errstring = consist(net, 'mdn');
+if ~errstring
+  error(errstring);
+end
+if net.nwts ~= length(w)
+  error('Invalid weight vector length')
+end
+
+net.mlp = mlpunpak(net.mlp, w);