reduceData_simple

 reduce the nice new data (from 6 channels not switch data) without
 issues...

0001 function [ d_out ] = reduceData_simple(d)
0002 % reduce the nice new data (from 6 channels not switch data) without
0003 % issues...
0004 
0005 d = determineIndices(d);
0006 d = apparentAzEl(d);
0007 
0008 
0009 if(~isfield(d.antenna0.servo, 'equa')) % added in here for when you need to calculate alpha's using data in pipeline 01/09/11
0010   display('Calculating RA/DEC');
0011   long=-118.2822;
0012   lat=37.2339;
0013   
0014   az = d.antenna0.servo.apparent(:,1);
0015   el = d.antenna0.servo.apparent(:,2);
0016   jd=mjd2jd(d.antenna0.receiver.utc);
0017   [equa] = horiz_coo([pi/180*(az) pi/180*(el)],jd,[pi/180*(long) ...
0018         pi/180*(lat)],'e');
0019   d.antenna0.servo.equa=equa;
0020   clear equa;
0021   clear az;
0022   clear el;
0023 end
0024 
0025 s = 'FILTERED';
0026 dO = assembleAlphaStreams(d,s); 
0027 [tA,Ac,Gc,Af,Gf] = calculateAlpha(dO,s); 
0028 dO = applyAlpha(dO,tA,Ac,Gc,Af,Gf,s); 
0029 d_out = calculateStokes(dO,s);
0030 
0031 end
0032