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