1 ## Copyright (C) 2006 Michel D. Schmid <michaelschmid@users.sourceforge.net>
4 ## This program is free software; you can redistribute it and/or modify it
5 ## under the terms of the GNU General Public License as published by
6 ## the Free Software Foundation; either version 2, or (at your option)
9 ## This program is distributed in the hope that it will be useful, but
10 ## WITHOUT ANY WARRANTY; without even the implied warranty of
11 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 ## General Public License for more details.
14 ## You should have received a copy of the GNU General Public License
15 ## along with this program; see the file COPYING. If not, see
16 ## <http://www.gnu.org/licenses/>.
19 ## @deftypefn {Function File} {} __printBiasConnect (@var{fid})
20 ## @code{printMLPHeader} saves the header of a neural network structure
21 ## to a *.txt file with identification @code{fid}.
24 ## Author: Michel D. Schmid
27 function __printBiasConnect(fid,net)
29 if isfield(net,"biasConnect")
30 # net.biasConnect can be a matrix..!
31 # check if it's a matrix
32 if isscalar(net.biasConnect)
33 error("unsure if this is possible..")
34 elseif isnumeric(net.biasConnect)
35 if ismatrix(net.biasConnect)
36 if issquare(net.biasConnect)
37 # nothing prgrammed till now
38 elseif isvector(net.biasConnect)
39 # insert enough spaces to put ":" to position 20
40 # insert 2 spaces for distance between ":" and "%"
41 # print bracket for open
42 fprintf(fid," biasConnect: [");
43 [nRows nColumns] = size(net.biasConnect);
46 fprintf(fid,"%d",net.biasConnect(i*k));
49 #print ; for newline in matrix
54 fprintf(fid,"] not yet used item\n");
57 endif # isscalar(net.biasConnect)
58 endif # if isfield(...)