73 lines
2.8 KiB
Plaintext
73 lines
2.8 KiB
Plaintext
*
|
|
* quicky KUMAC to get decay spectra from GEANT simulations
|
|
* (GEANT_LEMSR.KUMAC)
|
|
*
|
|
* TP, 03-Feb-1999, PSI
|
|
*
|
|
* [1] Geant Runnumber; for histogram titles
|
|
*
|
|
*
|
|
* decay spectra, only 1 detector has hit, e+ e- bit required
|
|
*----------------------------------------------------------------------
|
|
*
|
|
if ( [1] .eq. ' ' .or. [1] .eq. '?' .or. [1] .eq. '!') then
|
|
mess
|
|
mess Missing GEANT RunNumber as parameter.
|
|
mess Needed for Histogram titles.
|
|
mess
|
|
mess Syntax:
|
|
mess
|
|
mess GEANT_DOHIST RunNo
|
|
mess
|
|
exitm
|
|
endif
|
|
runno = [1]
|
|
*
|
|
* cuts for e+ and e- and gammas
|
|
*
|
|
cut $20 btest(int(partcode),0).and.btest(int(partcode),4) |require gamma in both detec.
|
|
cut $21 btest(int(partcode),1).and.btest(int(partcode),5) |require e+ in both detec.
|
|
cut $22 btest(int(partcode),2).and.btest(int(partcode),6) |require e- in both detec.
|
|
*
|
|
cut $11 p0>30.
|
|
cut $10 desci>0.and.desco>0
|
|
cut $1 de_left_i>0.and.de_left_o>0
|
|
cut $2 de_top_i>0.and.de_top_o>0
|
|
cut $3 de_rite_i>0.and.de_rite_o>0
|
|
cut $4 de_bot_i>0.and.de_bot_o>0
|
|
*
|
|
cut $5 btest(int(volno),0).and.btest(int(volno),4) | bits for left in and out
|
|
cut $6 btest(int(volno),1).and.btest(int(volno),5) | bits for top in and out
|
|
cut $7 btest(int(volno),2).and.btest(int(volno),6) | bits for right in and out
|
|
cut $8 btest(int(volno),3).and.btest(int(volno),7) | bits for bottom in and out
|
|
*
|
|
1d 624 'GEANT '//[runno]//' left, dE others=0 , e+ or e- bit, de gt 0, 50ns bins' 220 0. 11000.
|
|
1d 626 'GEANT '//[runno]//' top , dE others=0 , e+ or e- bit, de gt 0, 50ns bins' 220 0. 11000.
|
|
1d 627 'GEANT '//[runno]//' right, dE others=0 , e+ or e- bit, de gt 0, 50ns bins' 220 0. 11000.
|
|
1d 628 'GEANT '//[runno]//' bottom, dE others=0, e+ or e- bit, de gt 0, 50ns bins' 220 0. 11000.
|
|
|
|
1d 1624 'GEANT '//[runno]//' left, dE others=0 , e+ or e- bit, de gt 0, 2ns bins' 5500 0.5 11000.5
|
|
1d 1626 'GEANT '//[runno]//' top , dE others=0 , e+ or e- bit, de gt 0, 2ns bins' 5500 0.5 11000.5
|
|
1d 1627 'GEANT '//[runno]//' right, dE others=0 , e+ or e- bit, de gt 0, 2ns bins' 5500 0.5 11000.5
|
|
1d 1628 'GEANT '//[runno]//' bottom, dE others=0, e+ or e- bit, de gt 0, 2ns bins' 5500 0.5 11000.5
|
|
|
|
|
|
mess NTPlot left id=624
|
|
nt/pl 111.tsci $1.and.$5.and.($21.or.$22).and..not.($2.or.$3.or.$4) -624
|
|
mess NTPlot top id=626
|
|
nt/pl 111.tsci $2.and.$6.and.($21.or.$22).and..not.($1.or.$3.or.$4) -626
|
|
mess NTPlot rite id=627
|
|
nt/pl 111.tsci $3.and.$7.and.($21.or.$22).and..not.($1.or.$2.or.$4) -627
|
|
mess NTPlot bot id=628
|
|
nt/pl 111.tsci $4.and.$8.and.($21.or.$22).and..not.($1.or.$2.or.$3) -628
|
|
|
|
mess NTPlot left id=1624
|
|
nt/pl 111.tsci $1.and.$5.and.($21.or.$22).and..not.($2.or.$3.or.$4) -1624
|
|
mess NTPlot top id=1626
|
|
nt/pl 111.tsci $2.and.$6.and.($21.or.$22).and..not.($1.or.$3.or.$4) -1626
|
|
mess NTPlot rite id=1627
|
|
nt/pl 111.tsci $3.and.$7.and.($21.or.$22).and..not.($1.or.$2.or.$4) -1627
|
|
mess NTPlot bot id=1628
|
|
nt/pl 111.tsci $4.and.$8.and.($21.or.$22).and..not.($1.or.$2.or.$3) -1628
|
|
|