;+ ; Contains the dynmin procedure ; ; :Author: ; Philippe Zarka ; ; :History: ; 2003/12/08: Created ; ; 2003/12/08: Last Edit ;- ; ;+ ; dynmin is a procedure that <behavior desc here> ; ; :Params: ; tab: in, required, type=sometype ; A parameter named tab ; fracmin: in, required, type=sometype ; A parameter named fracmin ; tabmin: in, required, type=sometype ; A parameter named tabmin ;- pro DYNMIN, tab,fracmin, tabmin tabmin=0 dh=max(tab)-min(tab) if dh eq 0 then return dh=dh/1000. h=histogram(tab,min=min(tab),max=max(tab),binsize=dh) xh=findgen(n_elements(h))*dh+min(tab) th=total(h) & nh=h(0) & i=1 while(nh le fracmin*th) do begin nh=nh+h(i) & i=i+1 endwhile tabmin=xh(i) return end