# Single Dish VLBI schedule. Format version  1.00  of 2021.01.12
#
# First version:  2021.07.22
#
# Last updated on 2021.07.22_14:22:02
#
station  MACGO12M
exper    mg0003    1
type     ElTsys
pi_name  Leonid Petrov
pi_email Leonid.Petrov@nasa.gov
duration 20675 seconds (  5.74 hours)
#
description_begin
#
Tsys versus elevation

The goal of the experiment is to evaluate the dependence of Tsys on elevation 
and frequency and develop the model. The frequency dependence will be measured 
in 6 frequency setups:

freq_001  [2200.4, 2680.4] [5000.4, 5480.4]   [5480.4, 5960.4]   [5960.4, 6440.4]
freq_002  [2680.4, 3160.4] [6440.4, 6920.4]   [6920.4, 7400.4]   [7400.4, 7880.4]
freq_003  [3160.4, 3640.4] [7880.4, 8360.4]   [8360.4, 8840.4]   [8840.4, 9320.4]
freq_004  [3640.4, 4120.4] [9320.4, 9800.4]   [9800.4, 10280.4]  [10280.4, 10760.4]
freq_005  [4120.4, 4600.4] [10760.4, 11240.4] [11018.4, 11498.4] [11018.4, 11498.4]
freq_006  [4518.4, 4998.4] [11018.4, 11498.4] [11018.4, 11498.4] [11018.4, 11498.4]

   12 Elevation:

   88.000
   60.000
   45.000
   30.000
   20.000
   14.000
   11.000
    9.000
    7.700
    6.650
    5.790
    5.080

   The proposed test will run at two fixed azimuths: 200 and 300 deg.
   Starting from the lowest
   elevation antenna spends 60 sec for collecting Tsys, then moves to the next 
   elevation and so on. When it reaches 88.0, it starts motion down. When it 
   reaches the lowest elevation, it changes the frequency setup and repeats.

   Processing:

  a) log file is transformed to antcal format;
  b) Tsys is extracted. Tsys is decomposed on elevation and time part.
     Elevation dependence is approximated with expansion into the B-spline 
     basis. The procedure is made for each polarization, each IF, in total,
     for 768 frequencies. 
  c) Elevation dependence is binned at a representative sequence of frequencies.
     Elevation dependence is approximated along 2.2 -- 11.5 GHz.

description_end
#
procedure_begin
"
define  freq_001      00000000000x
" set   freq_001  [2200.4, 2680.4] [5000.4, 5480.4]   [5480.4, 5960.4]   [5960.4, 6440.4]
lo=
lo=loa0,1672.4,usb,lcp,5
lo=loa1,1672.4,usb,rcp,5
lo=lob0,4472.4,usb,lcp,5
lo=lob1,4472.4,usb,rcp,5
lo=loc0,4952.4,usb,lcp,5
lo=loc1,4952.4,usb,rcp,5
lo=lod0,5432.4,usb,lcp,5
lo=lod1,5432.4,usb,rcp,5
sy=popen 'udceth0 udca 5793.1 20 20 2>&1' -n udcca &
sy=popen 'udceth0 udcb 6493.1 20 20 2>&1' -n udccb &
sy=popen 'udceth0 udcc 6613.1 20 20 2>&1' -n udccc &
sy=popen 'udceth0 udcd 6733.1 20 20 2>&1' -n udccd &
lo=?
enddef
"
define  freq_002      00000000000x
" set   freq_002  [2680.4, 3160.4] [6440.4, 6920.4]   [6920.4, 7400.4]   [7400.4, 7880.4]
lo=
lo=loa0,2152.4,usb,lcp,5
lo=loa1,2152.4,usb,rcp,5
lo=lob0,5912.4,usb,lcp,5
lo=lob1,5912.4,usb,rcp,5
lo=loc0,6392.4,usb,lcp,5
lo=loc1,6392.4,usb,rcp,5
lo=lod0,6872.4,usb,lcp,5
lo=lod1,6872.4,usb,rcp,5
sy=popen 'udceth0 udca 5913.1 20 20 2>&1' -n udcca &
sy=popen 'udceth0 udcb 6853.1 20 20 2>&1' -n udccb &
sy=popen 'udceth0 udcc 6973.1 20 20 2>&1' -n udccc &
sy=popen 'udceth0 udcd 7093.1 20 20 2>&1' -n udccd &
lo=?
enddef
"
define  freq_003      00000000000x
" set   freq_003  [3160.4, 3640.4] [7880.4, 8360.4]   [8360.4, 8840.4]   [8840.4, 9320.4]
lo=
lo=loa0,2632.4,usb,lcp,5
lo=loa1,2632.4,usb,rcp,5
lo=lob0,7352.4,usb,lcp,5
lo=lob1,7352.4,usb,rcp,5
lo=loc0,7832.4,usb,lcp,5
lo=loc1,7832.4,usb,rcp,5
lo=lod0,8312.4,usb,lcp,5
lo=lod1,8312.4,usb,rcp,5
sy=popen 'udceth0 udca 6033.1 20 20 2>&1' -n udcca &
sy=popen 'udceth0 udcb 7213.1 20 20 2>&1' -n udccb &
sy=popen 'udceth0 udcc 7333.1 20 20 2>&1' -n udccc &
sy=popen 'udceth0 udcd 7453.1 20 20 2>&1' -n udccd &
lo=?
enddef
"
define  freq_004      00000000000x
" set   freq_004  [3640.4, 4120.4] [9320.4, 9800.4]   [9800.4, 10280.4]  [10280.4, 10760.4]
lo=
lo=loa0,3112.4,usb,lcp,5
lo=loa1,3112.4,usb,rcp,5
lo=lob0,8792.4,usb,lcp,5
lo=lob1,8792.4,usb,rcp,5
lo=loc0,9272.4,usb,lcp,5
lo=loc1,9272.4,usb,rcp,5
lo=lod0,9752.4,usb,lcp,5
lo=lod1,9752.4,usb,rcp,5
sy=popen 'udceth0 udca 6153.1 20 20 2>&1' -n udcca &
sy=popen 'udceth0 udcb 7573.1 20 20 2>&1' -n udccb &
sy=popen 'udceth0 udcc 7693.1 20 20 2>&1' -n udccc &
sy=popen 'udceth0 udcd 7813.1 20 20 2>&1' -n udccd &
lo=?
enddef
"
define  freq_005      00000000000x
" set   freq_005  [4120.4, 4600.4] [10760.4, 11240.4] [11018.4, 11498.4] [11018.4, 11498.4]
lo=
lo=loa0,3592.4,usb,lcp,5
lo=loa1,3592.4,usb,rcp,5
lo=lob0,10232.4,usb,lcp,5
lo=lob1,10232.4,usb,rcp,5
lo=loc0,10490.4,usb,lcp,5
lo=loc1,10490.4,usb,rcp,5
lo=lod0,10490.4,usb,lcp,5
lo=lod1,10490.4,usb,rcp,5
sy=popen 'udceth0 udca 6273.1 20 20 2>&1' -n udcca &
sy=popen 'udceth0 udcb 7933.1 20 20 2>&1' -n udccb &
sy=popen 'udceth0 udcc 7997.6 20 20 2>&1' -n udccc &
sy=popen 'udceth0 udcd 7997.6 20 20 2>&1' -n udccd &
lo=?
enddef
"
define  freq_006      00000000000x
" set   freq_006  [4518.4, 4998.4] [11018.4, 11498.4] [11018.4, 11498.4] [11018.4, 11498.4]
lo=
lo=loa0,3990.4,usb,lcp,5
lo=loa1,3990.4,usb,rcp,5
lo=lob0,10490.4,usb,lcp,5
lo=lob1,10490.4,usb,rcp,5
lo=loc0,10490.4,usb,lcp,5
lo=loc1,10490.4,usb,rcp,5
lo=lod0,10490.4,usb,lcp,5
lo=lod1,10490.4,usb,rcp,5
sy=popen 'udceth0 udca 6372.6 20 20 2>&1' -n udcca &
sy=popen 'udceth0 udcb 7997.6 20 20 2>&1' -n udccb &
sy=popen 'udceth0 udcc 7997.6 20 20 2>&1' -n udccc &
sy=popen 'udceth0 udcd 7997.6 20 20 2>&1' -n udccd &
lo=?
enddef
"
" ================================
"
"       setupbb  duration: 2s
define  setupbb       16264172742x
pcalon
rdbebb
enddef
define  ifdmon        16264180001x
sy=popen 'udceth0 udca 2>&1' -n udcca &
sy=popen 'udceth0 udcb 2>&1' -n udccb &
sy=popen 'udceth0 udcc 2>&1' -n udccc &
sy=popen 'udceth0 udcd 2>&1' -n udccd &
enddef
"
" ================================
"
define  pcalon        16264172742x
enddef
"
" ================================
"
define  time          16264180005x
rdbe=pps_offset?;
rdbe=dot?;
rdbe=gps_offset?;
enddef
"
" ================================
"
"  preob duration: 4s
define  preob         16264175956
onsource
track
rdbe_atten=
rdbe=dbe_quantize=0;
rdbe=dbe_quantize=1;
enddef
"
" ================================
"
define  midob         16264180000x
rdbe=sw_version?;
rdbe=dbe_personality?;
wx
ifdmon
rdbe=dbe_chsel_en?;
rdbe=dbe_chsel?0;
rdbe=dbe_chsel?1;
rdbe=pcal?;
rdbe_atten
dewar
time
tpicd=yes,100
tpicd
enddef
"
" ================================
"
define  postob        16264180030x
tpicd=stop
tpicd=?
enddef
"
procedure_end
"
" ================================
"
define  tcal_inq      00000000000x
sy=popen '(cat /usr2/control/ctlpo.ctl)' -n ctlpo.ctl
sy=popen '(cat /usr2/control/flux.ctl)'  -n flux.ctl
enddef
"
" ================================
"
#
# ==========================================================================
#
require_sds_to_snap_version  2021.07.22
require_stp_version          2021.07.20
#
stow
start         2021.07.23_15:00:00 30.0 80.0
macros        tsys_frq_obs scan_name=no_r@03dint{{$1}}_f@02dint{{$2}}_${scan};setupbb;!+1s;preob;data_valid=on;midob;!+{$3};data_valid=off;postob
macros        set_azim     az{$1}
logon
#
cycle i 2 3
   cycle j 1 6
      proc          freq_00${j}              0.0
      point_azel    ${i}00.0   5.080         1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   5.790         1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   6.650         1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   7.700         1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   9.000         1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   11.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   14.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   20.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   30.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   45.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   60.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   88.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   60.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   45.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   30.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   20.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   14.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   11.000        1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   9.000         1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   7.700         1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   6.650         1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   5.790         1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
      point_azel    ${i}00.0   5.080         1.0
      proc          tsys_frq_obs($i,$j,1m)  65.0
  end cycle j
end cycle i
#
stow
freq_h01
logoff
end