1## Copyright (C) 2006 Michel D. Schmid <michaelschmid@users.sourceforge.net>
2##
3##
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)
7## any later version.
8##
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.
13##
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/>.
17
18## -*- texinfo -*-
19## @deftypefn {Function File} {} __printB (@var{fid})
20## @code{printMLPHeader} saves the header of a  neural network structure
21## to a *.txt file with identification @code{fid}.
22## @end deftypefn
23
24## Author: Michel D. Schmid
25
26function __printB(fid,net)
27
28  if isfield(net,"b")
29    nBiases = 0;
30    # check if it's cell array
31    if iscell(net.b)
32      [nRows, nColumns] = size(net.b);
33      for i=1:nRows
34        for k=1:nColumns
35          if !isempty(net.b{i,k})
36            nBiases = nBiases+1;
37          endif
38        endfor
39      endfor
40      # insert enough spaces to put ":" to position 20
41      # insert 2 spaces for distance between ":" and "%"
42      fprintf(fid,"                   b: {%dx%d cell} containing %d bias vectors\n",nRows,nColumns,nBiases);
43    else
44      fprintf(fid,"unsure if this is possible\n")
45    endif
46  endif
47
48endfunction