Документ взят из кэша поисковой машины. Адрес оригинального документа : http://star.arm.ac.uk/~csj/idl/FAST/xcorr_template.pro Дата изменения: Wed Aug 22 19:06:24 2007 Дата индексирования: Tue Oct 2 08:16:31 2012 Кодировка: Поисковые слова: http astrokuban.info astrokuban

PRO xcorr_template, specm, nccf, ix1, ix2, template, wave, star


; Construct template for ccf


; copy good values from specm within range ix1:ix2

template = fltarr(nccf)
template(ix1:ix2) = specm(ix1:ix2) - 1.0
IF (ix1 gt 1) THEN template(0:ix1-1) = 0
IF (ix2 lt nccf-2) THEN template(ix2+1:nccf-1) = 0

; snip out bad pixels


IF ( n_elements(star) EQ 0 ) THEN star = ' '

;; KPD 2109+4401

IF ( star eq 'KPD2109+4401' ) THEN BEGIN
IF (nccf gt 539) THEN template(545:548) = 0.
IF (nccf gt 796) THEN template(792:795) = 0.
IF (nccf gt 1038) THEN template(1034:1037) = 0.
ENDIF

;; PB8783

IF ( star eq 'PB8783' ) THEN BEGIN
IF (nccf gt 550) THEN template(557:561) = 0.
IF (nccf gt 800) THEN template(806:808) = 0.
IF (nccf gt 1038) THEN template(1049:1051) = 0.
ENDIF

;; PB8783

IF ( star eq 'PB8783 theory' ) THEN BEGIN
IF (nccf gt 550) THEN template(557:561) = 0.
IF (nccf gt 800) THEN template(806:808) = 0.
IF (nccf gt 1038) THEN template(1049:1051) = 0.
ENDIF

END