Return to theta_compare_hadronic.kumac CVS log

Up to [HallC] / geant_gep

Paw macros.

close 1
close 2
close 3
close 4
hist/file 1 geant_gep3_ch2.hbook
hist/file 2 geant_gep3_ch2_nohadronic.hbook
hist/file 3 geant_gep3_ch2_highdensity.hbook
hist/file 4 geant_gep3_ch2_highdensity_nohadronic.hbook
fort/file 66 theta_compare_hadronic.ps
meta 66
1d 5000 ' ' 100 -2. 8.
1d 5001 ' ' 100 -2. 8.
1d 5002 ' ' 100 -2. 8.
1d 5003 ' ' 100 -2. 8.
1d 5004 ' ' 100 -2. 8.
1d 5005 ' ' 100 -2. 8.
1d 5006 ' ' 100 -2. 8.
1d 5007 ' ' 100 -2. 8.
nt/plot //lun1/9901.theta ! ! ! ! ! 5000
nt/plot //lun2/9901.theta ! ! ! ! ! 5001
hmax_had = $hinfo(5000,'MAX')
hmax_nohad = $hinfo(5001,'MAX')
normfac = [hmax_had]/[hmax_nohad]
add 5001 5001 5002 [normfac] 0.0
add 5000 5002 5003 1.0 -1.0
nt/plot //lun3/9901.theta ! ! ! ! ! 5004
nt/plot //lun4/9901.theta ! ! ! ! ! 5005
hmax_had = $hinfo(5004,'MAX')
hmax_nohad = $hinfo(5005,'MAX')
normfac = [hmax_had]/[hmax_nohad]
add 5005 5005 5006 [normfac] 0.0
add 5004 5006 5007 1.0 -1.0
opt logy
opt stat
zone 2 2
hist/plot 5000
hist/plot 5002 s
hist/plot 5003
hist/plot 5004
hist/plot 5006 s
hist/plot 5007
close 66