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