Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://www.naic.edu/~astro/spectral_line/handbook_old/app/files/first_tcl.html
Дата изменения: Wed Sep 20 03:26:37 2000 Дата индексирования: Sun Dec 23 06:28:11 2007 Кодировка: Поисковые слова: arp 220 |
This file is used in the first four .sls files given in the last section.
#This file is available at http://www.naic.edu/~koneil/files/onoff.tcl # # onoff.tcl - "Standard" on/off+cal script used by AOCONTROL # proc dosrc {srcname {toloop 1} {inttime 5} {dopcor vel} {csys lsr} {dopset 1}} { # # for file col 0=name, 1-ra, 2-dec,3-coordType,4-velocity/redshift # global ra dec if {[srcget $srcname] < 0 } { logLine "$srcname note in file" return -1 } set ok [srccol 3 psys] if { ($ok < 0) || ([string match {[bBjJ]} $psys] == 0) } { logLine "$srcname bad line in file. no j,b coordinate type" return -1 } if {[srccol 4 vorz] < 0 } { set vorz 0. } switch $dopcor { vel { dopsetvel $vorz $csys } zr - zo { dopsetz $vorz $dopcor $csys } default { logLine "passed down dopcor: $dopcor!" return -1 } } logLine "Source: $srcname" if {$dopset} { dopsetdoit logLine "DOPCOR: $dopcor CSYS: $csys" } return [myonoff $ra $dec $psys $toloop $inttime] } proc myonoff {ra dec psys {toloop 1} {min 5} {secToMov 60} } { global glFRQ pnt tr $ra $dec -c$psys logLine "[format " frq:%12.6f %12.6f %12.6f %12.6f dop:%12.9f" \ $glFRQ(oFrq0) $glFRQ(oFrq1) $glFRQ(oFrq2) $glFRQ(oFrq3) $glFRQ(fac)]" if { [waittrkchk $ra ] != 1 } { error "src has set" } coradjpwr logLine "[logpwr 1]" if {$secToMov < 60 } { if { $psys == "b"} { return [onoffb $ra $dec $toloop $min $secToMov] } else { return [onoff $ra $dec $toloop $min $secToMov] } } else { if { $psys == "b"} { return [onoffcb $ra $dec $toloop $min $secToMov] } else { return [onoffc $ra $dec $toloop $min $secToMov] } } return } #end of procedure file *********************************************************************************