!! ooc.mopsic !! !! on-off script condensed from RZ's mopsic pipeline !! aim is to loop through onoffs and check for acceleration or !! other problems in the data !! !! bertoldi@astro.uni-bonn.de version 2006-02-27 !! ------------------------------------------------- !dev i w lut idl4 set marker 0 0 0 0 pen /def init history clear in_dir "../data" !! ADJUST out_dir none init in_lis in_list "mydata" !! MAKE THIS LIST FIRST, E.G. ls *fits > mydata.LIST sel type oo sel no MAR* URAN* NEP* Saturn sel no LK-HALF-* ALF-ORI* L1551* GL490* W3OH* G45.1* CRL2688* NGC7538 LKHALF* sel no K3-50A* MWC349* CRL618* HLTAU* HL-TAU* G34.3* NGC7027* CW* 0439+360 sort in_list !sel nrc 120 !select subscans even list !! TRUNCATES FILE NAMES - NEEDS TO BE FIXED say " " say "Now you can select further by julian_d or object or type" pause clo dev !for i 1 to nobsin !! LOOP TO GET ELEVATION IN LISTING !rea 'i' /phase !next open dev list !! LIST WITH ELEVATION list subscans !! LIST WITH COMPLETE FILE NAME pause cle a for i 1 to nobsin clo dev rea 'i' /phase open dev set cha .4 set tick .5 cle cle a base t 0 plot sig 118 del dc < -10 rms /mode not_oo > 10 rms /mode not_oo pause cle plot sig 7 phas dif < -10 rms /mode not_oo > 10 rms /mode not_oo pause cle plot sig 6 7 del rc default pause cle set cha .4 set tick .1 plot sig pause next ! Date of Mambo2 filling during the pool where known ! date UT JD ! 29.11.05 ! 01.12.05 ! 03.12.05 ! 05.12.05 ! 07.12.05 15:00 2453712.125 ! 09.12.05 15:00 2453714.125 ! 11.12.05 15:00 2453716.125 ! 13.12.05 15:00 2453718.125 ! 15.12.05 13:00 2453720.04167 ! 16.12.05 ! 17.12.05 13:00 2453722.04167 ! 19.12.05 12:00 2453724 ! 21.12.05 ! ! 09.01.06 ! 11.01.06 ! 13.01.06 15:00 2453749.125 ! 15.01.06 12:00 2453751 ! 17.01.06 15:00 2453753.125 ! 19.01.06 14:00 2453755.08333 ! 21.01.06 00:00 2453755.08333 ! 24.01.06 16:30 2453760.1875 ! 26.01.06 16:00 2453762.16667 ! 28.01.06 ! ! 22.02.06 12:00 2453789 ! 24.02.06 12:00 2453791 ! 26:02.06 12:00 2453793