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} {} __printInputConnect (@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 __printInputConnect(fid,net) 27 28 if isfield(net,"inputConnect") 29 # net.inputConnect can be a matrix..! 30 # check if it's a matrix 31 if isscalar(net.inputConnect) 32 error("unsure if this is possible..") 33 elseif isnumeric(net.inputConnect) 34 if ismatrix(net.inputConnect) 35 if issquare(net.inputConnect) 36 # nothing prgrammed till now 37 elseif isvector(net.inputConnect) 38 # insert enough spaces to put ":" to position 20 39 # insert 2 spaces for distance between ":" and "%" 40 # print bracket for open 41 fprintf(fid," inputConnect: ["); 42 [nRows nColumns] = size(net.inputConnect); 43 for k = 1:1:nRows 44 for i = 1:1:nColumns 45 fprintf(fid,"%d",net.inputConnect(i*k)); 46 endfor 47 if k!=nRows 48 #print ; for newline in matrix 49 fprintf(fid,";"); 50 endif 51 endfor 52 # print last bracket 53 fprintf(fid,"] not yet used item\n"); 54 endif # if issquare.. 55 endif #if ismatrix 56 endif 57 endif 58 59endfunction