TBASERDN030505					X2194
C-Band receiver baseline tests.
CM 1 * 5, A1 mode, 800 MHz, 500 MHz CF, 30-sec records

Scan 55 test spectrum, 2 min scan,  Cal run by DCR

Scan 56 test scan, 2 min scan, Cal run by spectrometer (phase 1 = cal on)

Scan 57 test scan, 5 min scan, access position, cloudy, recent rain

Scan 58 feed radome dried off by Tracy & Roger before this scan
	radome half covered with drops up to size of a quarter

Scan 59, same as 58 but rebalanced spectrometer

Scan 60, approx 2-1/2-inch metal washer in center of radome

Scan 61, dime in center of radome

Scan 62, radome clear of water and metal

Scan 63, small piece of copper tape on radome

Scan 64, dime in center of radome

show_avg_scan_diff(62, 59, spec_num=1, linecolor=2, newplot=T)
pg.setyscale(-0.012, 0.012)
ch1_diff := sdiff;
show_avg_scan_diff(62, 59, spec_num=2, linecolor=3, newplot=F)
ch2_diff := sdiff;

x := array(0.0, 2, length(freq));
y := x;
for (i in 1:2) {
    x[i,] := freq;
    xmin[i] := min(freq);
    xmax[i] := max(freq);
    ymin[i] := -0.012;
    ymax[i] := 0.012;
    xtitle[i] := 'Frequency in MHz';
    ytitle[i] := '(on - off) / off';
    title[i] := 'Difference of Two Spectra with Dry, Unobstructed Radome';
}
color[1] := 2;
color[2] := 3;
y[1,] := ch1_diff;
y[2,] := ch2_diff
plot_graphs(x, y, xmin=xmin, xmax=xmax,
	    ymin=ymin, ymax=ymax, color=color,
	    xtitle=xtitle,
	    ytitle=ytitle,
	    title=title, close_file=T,
    file='/home/users/groups/baseline/Projects/TBASERDN030505/two_offs')

show_avg_scan_diff(63, 62, spec_num=1, linecolor=2, newplot=T)
pg.setyscale(-0.012, 0.012)
ch1_diff := sdiff;
show_avg_scan_diff(63, 62, spec_num=2, linecolor=3, newplot=F)
ch2_diff := sdiff;

x := array(0.0, 2, length(freq));
y := x;
for (i in 1:2) {
    x[i,] := freq;
    xmin[i] := min(freq);
    xmax[i] := max(freq);
    ymin[i] := -0.012;
    ymax[i] := 0.012;
    xtitle[i] := 'Frequency in MHz';
    ytitle[i] := '(on - off) / off';
    title[i] := 'Difference of Copper Tape and Unobstructed Radome';
}
color[1] := 2;
color[2] := 3;
y[1,] := ch1_diff;
y[2,] := ch2_diff
plot_graphs(x, y, xmin=xmin, xmax=xmax,
	    ymin=ymin, ymax=ymax, color=color,
	    xtitle=xtitle,
	    ytitle=ytitle,
	    title=title, close_file=T,
    file='/home/users/groups/baseline/Projects/TBASERDN030505/copper_tape')

show_avg_scan_diff(61, 59, spec_num=1, linecolor=2, newplot=T)
pg.setyscale(-0.012, 0.012)
ch1_diff := sdiff;
show_avg_scan_diff(61, 59, spec_num=2, linecolor=3, newplot=F)
ch2_diff := sdiff;

x := array(0.0, 2, length(freq));
y := x;
for (i in 1:2) {
    x[i,] := freq;
    xmin[i] := min(freq);
    xmax[i] := max(freq);
    ymin[i] := -0.012;
    ymax[i] := 0.012;
    xtitle[i] := 'Frequency in MHz';
    ytitle[i] := '(on - off) / off';
    title[i] := 'Difference of Dime and Unobstructed Radome, Scans 61-59';
}
color[1] := 2;
color[2] := 3;
y[1,] := ch1_diff;
y[2,] := ch2_diff
plot_graphs(x, y, xmin=xmin, xmax=xmax,
	    ymin=ymin, ymax=ymax, color=color,
	    xtitle=xtitle,
	    ytitle=ytitle,
	    title=title, close_file=T,
    file='/home/users/groups/baseline/Projects/TBASERDN030505/dime1')

show_avg_scan_diff(64, 62, spec_num=1, linecolor=2, newplot=T)
pg.setyscale(-0.012, 0.012)
ch1_diff := sdiff;
show_avg_scan_diff(64, 62, spec_num=2, linecolor=3, newplot=F)
ch2_diff := sdiff;

x := array(0.0, 2, length(freq));
y := x;
for (i in 1:2) {
    x[i,] := freq;
    xmin[i] := min(freq);
    xmax[i] := max(freq);
    ymin[i] := -0.012;
    ymax[i] := 0.012;
    xtitle[i] := 'Frequency in MHz';
    ytitle[i] := '(on - off) / off';
    title[i] := 'Difference of Dime and Unobstructed Radome, Scans 64-62';
}
color[1] := 2;
color[2] := 3;
y[1,] := ch1_diff;
y[2,] := ch2_diff
plot_graphs(x, y, xmin=xmin, xmax=xmax,
	    ymin=ymin, ymax=ymax, color=color,
	    xtitle=xtitle,
	    ytitle=ytitle,
	    title=title, close_file=T,
    file='/home/users/groups/baseline/Projects/TBASERDN030505/dime2')

show_avg_scan_diff(60, 59, spec_num=1, linecolor=2, newplot=T)
pg.setyscale(0.0, 0.15)
ch1_diff := sdiff;
show_avg_scan_diff(60,59, spec_num=2, linecolor=3, newplot=F)
ch2_diff := sdiff;

x := array(0.0, 2, length(freq));
y := x;
for (i in 1:2) {
    x[i,] := freq;
    xmin[i] := min(freq);
    xmax[i] := max(freq);
    ymin[i] := 0.0;
    ymax[i] := 0.15;
    xtitle[i] := 'Frequency in MHz';
    ytitle[i] := '(on - off) / off';
    title[i] := 'Difference of Washer and Unobstructed Radome, Scans 60-59';
}
color[1] := 2;
color[2] := 3;
y[1,] := ch1_diff;
y[2,] := ch2_diff
plot_graphs(x, y, xmin=xmin, xmax=xmax,
	    ymin=ymin, ymax=ymax, color=color,
	    xtitle=xtitle,
	    ytitle=ytitle,
	    title=title, close_file=T,
    file='/home/users/groups/baseline/Projects/TBASERDN030505/washer')

show_tcal_over_tsys(57, spec_num=1, linecolor=2, newplot=T, cf_offset=5000)
pg.setyscale(0,0.21)
ch1_57 := cal_rat;
show_tcal_over_tsys(57, spec_num=2, linecolor=3, newplot=F, cf_offset=5000)
ch2_57 := cal_rat;
show_tcal_over_tsys(58, spec_num=1, linecolor=2, newplot=F, cf_offset=5000)
ch1_58 := cal_rat;
show_tcal_over_tsys(58, spec_num=2, linecolor=3, newplot=F, cf_offset=5000)
ch2_58 := cal_rat;

x := array(0.0, 4, length(freq));
y := x;
for (i in 1:4) {
    x[i,] := freq;
    xmin[i] := min(freq);
    xmax[i] := max(freq);
    ymin[i] := 0.0;
    ymax[i] := 0.21;
    xtitle[i] := 'Frequency in MHz';
    ytitle[i] := 'Tcal / Tsys';
    title[i] := 'Cal to System Temperature Ratios, Scans 57 and 58';
}
color[1] := 2;
color[2] := 3;
color[3] := 2;
color[4] := 3;
y[1,] := ch1_57;
y[2,] := ch2_57;
y[3,] := ch1_58;
y[4,] := ch2_58;
plot_graphs(x, y, xmin=xmin, xmax=xmax,
	    ymin=ymin, ymax=ymax, color=color,
	    xtitle=xtitle,
	    ytitle=ytitle,
	    title=title, close_file=T,
    file='/home/users/groups/baseline/Projects/TBASERDN030505/cal_over_sys')

show_avg_scan_diff(57, 58, spec_num=1, linecolor=2, newplot=T)
pg.setyscale(0.0, 2.2)
ch1_diff := sdiff;
show_avg_scan_diff(57, 58, spec_num=2, linecolor=3, newplot=F)
ch2_diff := sdiff;

x := array(0.0, 2, length(freq));
y := x;
for (i in 1:2) {
    x[i,] := freq;
    xmin[i] := min(freq);
    xmax[i] := max(freq);
    ymin[i] := 0.0;
    ymax[i] := 2.2;
    xtitle[i] := 'Frequency in MHz';
    ytitle[i] := '(wet - dry) / dry';
    title[i] := '(wet - dry) / dry, Unobstructed Radome';
}
color[1] := 2;
color[2] := 3;
y[1,] := ch1_diff;
y[2,] := ch2_diff
plot_graphs(x, y, xmin=xmin, xmax=xmax,
	    ymin=ymin, ymax=ymax, color=color,
	    xtitle=xtitle,
	    ytitle=ytitle,
	    title=title, close_file=T,
    file='/home/users/groups/baseline/Projects/TBASERDN030505/wet_minus_dry')