Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.naic.edu/~astro/spectral_line/handbook/app/node20.html
Дата изменения: Wed Mar 20 18:34:07 2002
Дата индексирования: Sun Dec 23 03:52:24 2007
Кодировка:

FIRST example of a procedure file - onoff.tcl

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 

*********************************************************************************