hotColdLoadTests_ccThesis

script to generate Tsys with frequency
d_hot=read_arcSouth('20-Apr-2013:21:00:00','20-Apr-2013:21:01:00');% eccosorb in place
d_cold=read_arcSouth('20-Apr-2013:21:13:30','20-Apr-2013:21:14:30');% eccosorb off

0001 %script to generate Tsys with frequency
0002 %d_hot=read_arcSouth('20-Apr-2013:21:00:00','20-Apr-2013:21:01:00');% eccosorb in place
0003 %d_cold=read_arcSouth('20-Apr-2013:21:13:30','20-Apr-2013:21:14:30');% eccosorb off
0004 
0005 d_hot=read_arcSouth('23-Apr-2013:17:03:10','23-Apr-2013:17:12:56');% eccosorb in place
0006 d_cold=read_arcSouth('23-Apr-2013:17:12:56','23-Apr-2013:17:20:42');% eccosorb off
0007 
0008 d_hot=read_arcSouth('23-Apr-2013:17:05:10','23-Apr-2013:17:07:56');% eccosorb in place
0009 d_cold=read_arcSouth('23-Apr-2013:17:14:56','23-Apr-2013:17:15:42');% eccosorb off
0010 
0011 
0012 load 'TsysBackend.mat'
0013 %check that no noise diode are in the data
0014 figure;
0015 plot(d_hot.antenna0.roach1.LL)
0016 hold all;
0017 plot(d_cold.antenna0.roach1.LL)
0018 thot=290
0019 tcold=6
0020 tload=11
0021   tsys=tsysCalculation_trad_jl(d_hot,d_cold,thot,tcold,tload); % calculate the tsys
0022 
0023 thot=repmat(thot,1,2000);
0024 tcold=repmat(tcold,1,2000);
0025 
0026 
0027 figure
0028 subplot(411)
0029 plot(tsys(1,:),tsys(2,:))
0030 hold all
0031 plot(tsys(1,:),tsys(3,:))
0032 plot(tsys(1,:),tsys(4,:))
0033 plot(tsys(1,:),tsys(5,:))
0034 ylim([10 100])
0035 grid on
0036 
0037 
0038 
0039 filename ='be_tsys_23apr.txt';
0040 trec_mat=horzcat(tsys(1,:)',tsys(2,:)',tsys(3,:)',tsys(4,:)',tsys(5,:)');
0041 dlmwrite(filename,trec_mat,' ');
0042 
0043