Download Binary Readout System for a Silicon Tracking Detector at LHC

kc = 0
kw = 3
do i=1,[npts]
if [kc]=[kw] then
kc=0
wait
endif
kc = [kc]+1
opt htit
opt stat
Set STAT 1001110
id = 60+[i]
h/fit [id] g qw
id = [id]+10
h/fit [id] g qw
enddo
END:
Return
MACRO pltgains
On error goto END
*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
*>
>>
*>
>>
*>
>>
*>
>>
*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
*
*-------------------------------------------------------------------*> Gain and offsets
*-------------------------------------------------------------------opt htit
zone 2 2
if $hexist(123456) then
h/del 123456
endif
if $hexist(50) then
h/del 50
endif
exec scan#getHlimmod mpslop 50 25 3 ‘gains’
opt fit
h/fit 50 g qw
if $hexist(51) then
h/del 51
endif
exec scan#getHlimmod mpoffs 51 25 3 ‘offsets’
h/fit 51 g qw
nw = $vdim(mpslop)
1d 123456 ‘ ‘ [nw] 0 [nw]
put_vec/con 123456 mpslop
opt utit
title ‘Gains’ u
h/pl 123456
title ‘Offsets’ u
put_vec/con 123456 mpoffs
h/pl 123456
END:
Return
27 May 1999
91