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} {} __printNumInputs (@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
26
27function __printNumInputs(fid,net)
28
29     ## now check the structure fields..
30     cellNetFields = fieldnames(net);
31     # search for numInputs
32     if isfield(net,"numInputs")
33        # test on scalar
34        if isscalar(net.numInputs)
35           # insert enough spaces to put ":" to position 20
36           # insert 2 spaces for distance between ":" and "%"
37           fprintf(fid,"           numInputs:  %d\n",net.numInputs);
38        # net.numInputs must be an integer... till now, 11-01-2006
39        else
40            error("numInputs must be a scalar value!");
41        endif
42     endif
43
44endfunction