#
#  gainbs GAIN_BS.DAT
#  gainbs GAIN_BS2.DAT
# 
gainbs 1 da $1
	read RATE 2 read N 4
	read NA 5 read NAG3 6  read NAG4 7
	SET LRATE = LG(RATE)
	ticksize -1 0 0 0
	limits LRATE  0  0.14
	expand 1.1
	erase box
	ptype 4 0 ltype 0 connect LRATE N  points  LRATE N 
	ptype 4 1 ltype 1 connect LRATE NA  points  LRATE NA 
	ptype 4 2 ltype 2 connect LRATE NAG3  points LRATE NAG4
	ptype 4 3 ltype 3 connect LRATE NAG4  points  LRATE NAG3
	xlabel Switching Rate [Hz]
	ylabel Beam Switching Residuals [K]
	toplabel RMS Noise per Beam Switching Cycle, 230 GHz
	SET XX = {0.15 0.32}
	SET YY = {0.0885 0.0885}
	ptype 4 0 ltype 0 connect XX YY points XX YY
	relocate 0.35 0.087  label Thermal Noise
	SET YY = {0.0765 0.0765}
	ptype 4 1 ltype 1 connect XX YY points XX YY
	relocate 0.35 0.075 label Thermal Noise + Atmos
	SET YY = {0.0645 0.0645}
	ptype 4 2 ltype 2 connect XX YY points XX YY
	relocate 0.35 0.063  label Noise + Atmos + \delta G/G = 1e-4
	SET YY = {0.0525 0.0525}
	ptype 4 3 ltype 3 connect XX YY points XX YY
	relocate 0.35 0.051  label Noise + Atmos + \delta G/G = 1e-3