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 [pos_min,minval,index]=getminimumrightof(where,maxpos,minpos,maxs,mins)
tomwalters@0: % returns the minimum that is right of point "where"
tomwalters@0: % mins and maxs must be complete sets of minimums and maximums 
tomwalters@0: % interwoven
tomwalters@0: 
tomwalters@0: 
tomwalters@0: pos_min=[];
tomwalters@0: minval=[];
tomwalters@0: index=-1;
tomwalters@0: 
tomwalters@0: if isempty(maxpos)
tomwalters@0:     return;
tomwalters@0: end
tomwalters@0: if where > minpos(end)
tomwalters@0:     return;
tomwalters@0:     error('getminimumrightof:: no minimum right of point');
tomwalters@0: end
tomwalters@0: 
tomwalters@0: nr =length(where);
tomwalters@0: for j=1:nr
tomwalters@0:     cwhere=where(j);
tomwalters@0:     nr_mins=length(minpos);
tomwalters@0:     for i=1:nr_mins
tomwalters@0:         if fround(minpos(i),5) > fround(cwhere,5)
tomwalters@0:             pos_min(j)=minpos(i);
tomwalters@0:             minval(j)=mins(i);
tomwalters@0:             index(j)=i;
tomwalters@0:             break;
tomwalters@0:         end
tomwalters@0:     end
tomwalters@0: end