[go: up one dir, main page]
Menu ▾ ▴

[73c35b]: / exps / dlayer / t2ps.m  Maximize  Restore  History

Download this file

29 lines (27 with data), 500 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function dum=t2ps(site)

eval(['load t_to_ps.txt.' site])

if site=='L'

 p_rep=120000;

 ch_filter={'w125d40.fir'};

 ch_f=[0];

else

 p_rep=174800;

 ch_filter={'b150d60.fir'};

 ch_f=[8];

end

td_t1=t_to_ps(:,1)';

td_t2=t_to_ps(:,2)';

td_am=t_to_ps(:,3)';

td_ch=t_to_ps(:,4)';

p_offsetppd=0;

ch_adcint=[4];

if site=='L'

 d=find(rem(td_t1,1200)==1101); td_ch(d)=1;

end

for f=1:length(ch_f)

 td_ch(find(td_ch==ch_f(f)))=f;

end

if site=='L'

 td_ch(d)=0;

end



eval(['save dlayer' site 'pat_PS ch_* p_* td_*'])