view main/nnet/inst/__printNumInputDelays.m @ 3679:3cd35185af63 octave-forge

* small modifies in: __getx.m, __init.m, __mse.m __newnetwork.m and all files beginning with __print*
author michaelschmid
date Mon, 23 Jul 2007 15:03:54 +0000
parents 2425af51067f
children 2de537641f94
line wrap: on
line source

## Copyright (C) 2006 Michel D. Schmid  <michaelschmid@users.sourceforge.net>
##
##
## This program is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2, or (at your option)
## any later version.
##
## This program is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
## General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; see the file COPYING.  If not, write to the Free
## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
## 02110-1301, USA.

## -*- texinfo -*-
## @deftypefn {Function File} {} __printNumInputDelays (@var{fid})
## @code{printMLPHeader} saves the header of a  neural network structure
## to a *.txt file with identification @code{fid}.
## @end deftypefn

## Author: Michel D. Schmid


function __printNumInputDelays(fid,net)

     ## now check the structure fields..
     cellNetFields = fieldnames(net);
     # search for numInputDelays
     if isfield(net,"numInputDelays")
        # test on scalar
        if isscalar(net.numInputDelays)
           fprintf(fid,"      numInputDelays:  %d  (read-only)\n",net.numInputDelays);
        # net.numInputDelays must be an integer... till now, 11-01-2006
        else
            error("numInputDelays must be a scalar value!");
        endif
     endif
     
endfunction