tomwalters@0: % tool
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
tomwalters@0: % 
bleeck@3: % (c) 2011, University of Southampton
bleeck@3: % Maintained by Stefan Bleeck (bleeck@gmail.com)
bleeck@3: % download of current version is on the soundsoftware site: 
bleeck@3: % http://code.soundsoftware.ac.uk/projects/aimmat
bleeck@3: % documentation and everything is on http://www.acousticscale.org
bleeck@3: 
tomwalters@0: 
tomwalters@0: function generateparameterfile(makefilename,varargin)
tomwalters@0: % usage:generateparameterfile(makefilename,varargin)
tomwalters@0: % produces the "makefilename" from the parameters in varargin
tomwalters@0: 
tomwalters@0: 
tomwalters@0: nr_pairs=size(varargin{1},2)/2;
tomwalters@0: 
tomwalters@0: if mod(size(varargin{1},2),2)==1
tomwalters@0:     disp('odd number of parameters - please input a full set of parameters and arguments');
tomwalters@0:     return;
tomwalters@0: end
tomwalters@0: 
tomwalters@0: count=1;
tomwalters@0: for i=1:nr_pairs
tomwalters@0:     a=varargin{1}{count};
tomwalters@0:     b=varargin{1}{count+1};
tomwalters@0:     if isnumeric(b)
tomwalters@0:         te='[';
tomwalters@0:         for j=1:size(b,2)
tomwalters@0:             sss=sprintf('%f',b(j));
tomwalters@0:             te=[te sss ' '];
tomwalters@0:         end
tomwalters@0:         te=[te ']'];
tomwalters@0:         str{i}=sprintf('%s\t%s',varargin{1}{count},te);
tomwalters@0:     else
tomwalters@0:         if iscell(b)
tomwalters@0:             te='[';
tomwalters@0:             for j=1:size(b,2)
tomwalters@0:                 te=[te b{j} ' '];
tomwalters@0:             end
tomwalters@0:             te=[te ']'];
tomwalters@0:             str{i}=sprintf('%s\t%s',varargin{1}{count},te);
tomwalters@0:         else
tomwalters@0:             str{i}=sprintf('%s\t%s',a,b);
tomwalters@0:         end
tomwalters@0:     end
tomwalters@0:     count=count+2;
tomwalters@0: end
tomwalters@0: 
tomwalters@0: 
tomwalters@0: savetofile(str,makefilename);