Mercurial > hg > camir-aes2014
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); |