'CR3000 ' programme for LAS (Kipp&Zonen) ' sampling time 1 sec 'average time 10 mins ' '03/05/07 '******variables********** 'LAS Public UCN2 Public DEMOD UNITS UCN2 = mV UNITS DEMOD = mV 'LAS output every 10 min DataTable(LAS,True,-1) DataInterval(0,10,min,10) Average(1,UCN2,IEEE4,False) StdDev(1,UCN2,IEEE4,False) Average(1,DEMOD,IEEE4,False) StdDev(1,DEMOD,IEEE4,False) EndTable 'Main Program****************************************************************** BeginProg Scan (1,sec,1,0) VoltDiff (UCN2,1,mV5000,8,true,0,_50Hz,88.1057,0) VoltDiff (DEMOD,1,mV5000,9,true,0,_50Hz,88.1057,0) CallTable LAS NextScan EndProg