rmeddis@0: function UTIL_showStructureSummary(structure, name, maxNoArrayValues)
rmeddis@0: % showStructureSummary prints out the values of a single structure
rmeddis@0: % The header is the structure name and each row is a field
rmeddis@0: % e.g. showStructureSummary(params,'params')
rmeddis@0: % This not the same as 'UTIL_showstruct'
rmeddis@0: 
rmeddis@0: 
rmeddis@0: if nargin<3
rmeddis@0: 	maxNoArrayValues=20;
rmeddis@0: end
rmeddis@0: 
rmeddis@0: fprintf('\n%s:', name)
rmeddis@0: 
rmeddis@0: fields=fieldnames(eval('structure'));
rmeddis@0: % for each field in the structure
rmeddis@0: for i=1:length(fields)
rmeddis@0: 	y=eval([ 'structure.' fields{i}]);
rmeddis@0: 	if isstr(y),
rmeddis@0: 		% strings
rmeddis@0: 		fprintf('\n%s=\t''%s''',  fields{i},y)
rmeddis@0: 	elseif isnumeric(y)
rmeddis@0: 		% arrays
rmeddis@0: 		if length(y)>1
rmeddis@0: 			% vectors
rmeddis@0: 			[r c]=size(y);
rmeddis@0: 			if r>c, y=y'; end
rmeddis@0: 
rmeddis@0: 			[r c]=size(y);
rmeddis@0: 			if r>1
rmeddis@0: 				%                 fprintf('\n%s.%s=\t%g x %g matrix',name, fields{i}, r, c)
rmeddis@0: 				fprintf('\n%s=\t%g x %g matrix',fields{i}, r, c)
rmeddis@0: 
rmeddis@0: 			elseif c<maxNoArrayValues
rmeddis@0: 				%                     fprintf('\n%s=\t[%s]',  fields{i},num2str(y))
rmeddis@0: 				fprintf('\n%s=',  fields{i})
rmeddis@0: 				fprintf('\t%g',y)
rmeddis@0: 
rmeddis@0: 			else
rmeddis@0: 				fprintf('\n%s=\t %g...   [%g element array]', fields{i}, y(1),c)
rmeddis@0: 			end
rmeddis@0: 		else
rmeddis@0: 			% single valued arrays
rmeddis@0: 			%             fprintf('\n%s.%s=\t%s;', name, fields{i},num2str(y))
rmeddis@0: 			fprintf('\n%s=\t%s', fields{i},num2str(y))
rmeddis@0: 		end
rmeddis@0: 	elseif iscell(y)
rmeddis@0: 		fprintf('\n%s=\t cell array', fields{i})
rmeddis@0: 
rmeddis@0: 	elseif isstruct(y)
rmeddis@0: 		fprintf('\n%s=\t structure', fields{i})
rmeddis@0: 	end,
rmeddis@0: 
rmeddis@0: end,
rmeddis@0: fprintf('\n')
rmeddis@0: