tomwalters@0: % tool
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
bleeck@3: % This external file is included as part of the 'aim-mat' distribution package
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 ret=struct2double(str,field,mmm)
tomwalters@0: % returns a field of the values in str.fild
tomwalters@0: % like: ret=str(1:12).value
tomwalters@0: 
tomwalters@0: nr=length(str);
tomwalters@0: if nargin < 3
tomwalters@0:     % ret=zeros(nr,1);
tomwalters@0:     for i=1:nr
tomwalters@0:         eval(sprintf('dim=length(str(1).%s);',field));
tomwalters@0:         if dim==1
tomwalters@0:             eval(sprintf('ret(%d)=str(%d).%s;',i,i,field));
tomwalters@0:         else
tomwalters@0:             eval(sprintf('ret(%d,:)=str(%d).%s;',i,i,field));
tomwalters@0:         end
tomwalters@0:     end
tomwalters@0: else
tomwalters@0:     for i=1:nr
tomwalters@0:         eval(sprintf('ret(%d,:)=str(%d).%s(%d);',i,i,field,mmm));
tomwalters@0:     end
tomwalters@0: end