Mercurial > forge
view main/nnet/inst/__printLayerConnect.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} {} __printLayerConnect (@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 __printLayerConnect(fid,net) if isfield(net,"layerConnect") # net.layerConnect can be a matrix..! # check if it's a matrix if isscalar(net.layerConnect) error("unsure if this is possible..") elseif isnumeric(net.layerConnect) if ismatrix(net.layerConnect) if issquare(net.layerConnect) # insert enough spaces to put ":" to position 20 # insert 2 spaces for distance between ":" and "%" fprintf(fid," layerConnect: ["); [nRows nColumns] = size(net.layerConnect); for k = 1:1:nRows for i = 1:1:nColumns if i<nColumns fprintf(fid,"%d ",net.layerConnect(i*k)); else fprintf(fid,"%d",net.layerConnect(i*k)); endif endfor if k!=nRows #print ; for newline in matrix fprintf(fid,";"); endif endfor # print last bracket fprintf(fid,"] not yet used item\n"); elseif isvector(net.layerConnect) # insert enough spaces to put ":" to position 20 # insert 2 spaces for distance between ":" and "%" # print bracket for open fprintf(fid," layerConnect: ["); [nRows nColumns] = size(net.layerConnect); for k = 1:1:nRows for i = 1:1:nColumns fprintf(fid,"%d",net.layerConnect(i*k)); endfor if k!=nRows #print ; for newline in matrix fprintf(fid,";"); endif endfor # print last bracket fprintf(fid,"] not yet used item\n"); endif # if issquare.. endif #if ismatrix endif else fprintf(fid," ERROR..."); endif endfunction