Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.stsci.edu/~mperrin/software/sources/find_closest.pro Дата изменения: Thu Dec 11 04:54:32 2008 Дата индексирования: Sat Mar 1 16:33:40 2014 Кодировка: Поисковые слова: п п п п п п п п

;+
; NAME: find_closest
;
; PURPOSE:
; Given an array, find the index whose value in that
; array is closest to a given number.
;
; INPUTS:
; KEYWORDS:
; range= 2 element array. Restrict the search to this range of values.
; /value don't return the index, return the actual closest value.
; OUTPUTS:
;
; HISTORY:
; Began 2005-04-20 14:04:49 by Marshall Perrin
; 2008-10-24 added value= keyword
;-


FUNCTION find_closest,array,value, range=range, value=return_value

if keyword_set(range) then begin
absdiff = abs(array-value)
md = min(absdiff[range[0]:range[1]],min_subscript)
if keyword_set(return_value) then return, array[min_subscript+range[0]] else return,min_subscript+range[0]
endif else begin
absdiff = abs(array-value)
md = min(absdiff,/nan,min_subscript)
if keyword_set(return_value) then return, array[min_subscript] else return,min_subscript
endelse

end