annotate toolboxes/FullBNT-1.0.7/netlab3.3/rbfunpak.m @ 0:e9a9cd732c1e tip

first hg version after svn
author wolffd
date Tue, 10 Feb 2015 15:05:51 +0000
parents
children
rev   line source
wolffd@0 1 function net = rbfunpak(net, w)
wolffd@0 2 %RBFUNPAK Separates a vector of RBF weights into its components.
wolffd@0 3 %
wolffd@0 4 % Description
wolffd@0 5 % NET = RBFUNPAK(NET, W) takes an RBF network data structure NET and a
wolffd@0 6 % weight vector W, and returns a network data structure identical to
wolffd@0 7 % the input network, except that the centres C, the widths WI, the
wolffd@0 8 % second-layer weight matrix W2 and the second-layer bias vector B2
wolffd@0 9 % have all been set to the corresponding elements of W.
wolffd@0 10 %
wolffd@0 11 % See also
wolffd@0 12 % RBFPAK, RBF
wolffd@0 13 %
wolffd@0 14
wolffd@0 15 % Copyright (c) Ian T Nabney (1996-2001)
wolffd@0 16
wolffd@0 17 % Check arguments for consistency
wolffd@0 18 errstring = consist(net, 'rbf');
wolffd@0 19 if ~errstring
wolffd@0 20 error(errstring);
wolffd@0 21 end
wolffd@0 22
wolffd@0 23 if net.nwts ~= length(w)
wolffd@0 24 error('Invalid length of weight vector')
wolffd@0 25 end
wolffd@0 26
wolffd@0 27 nin = net.nin;
wolffd@0 28 nhidden = net.nhidden;
wolffd@0 29 nout = net.nout;
wolffd@0 30
wolffd@0 31 mark1 = nin*nhidden;
wolffd@0 32 net.c = reshape(w(1:mark1), nhidden, nin);
wolffd@0 33 if strcmp(net.actfn, 'gaussian')
wolffd@0 34 mark2 = mark1 + nhidden;
wolffd@0 35 net.wi = reshape(w(mark1+1:mark2), 1, nhidden);
wolffd@0 36 else
wolffd@0 37 mark2 = mark1;
wolffd@0 38 net.wi = [];
wolffd@0 39 end
wolffd@0 40 mark3 = mark2 + nhidden*nout;
wolffd@0 41 net.w2 = reshape(w(mark2+1:mark3), nhidden, nout);
wolffd@0 42 mark4 = mark3 + nout;
wolffd@0 43 net.b2 = reshape(w(mark3+1:mark4), 1, nout);