Return to hist.tests.1999 CVS log

Up to [HallC] / Replay / HIST / e01-004

fpi2 hist files moved to HIST/e01-004

; begin test beamline_tests group=hms group=sos group=both
; #integer axp,axm,ayp,aym,bxp,bxm,byp,bym
; axp=gmisc_dec_data(105)-433	
; axm=gmisc_dec_data(106)-526
; ayp=gmisc_dec_data(107)-408
; aym=gmisc_dec_data(108)-500
; bxp=gmisc_dec_data(109)-333
; bxm=gmisc_dec_data(110)-351
; byp=gmisc_dec_data(111)-364
; bym=gmisc_dec_data(112)-291
; #real axprime,ayprime,axbpm,aybpm,bxprime,byprime,bxbpm,bybpm
; byprime=18.5*(bxp-.7330*bxm)/(bxp+.7330*bxm+.0001)
; bxprime=-18.5*(byp-.8935*bym)/(byp+.8935*bym+.0001)
; bxbpm=( bxprime+byprime)/1.414-.04
; bybpm=(-bxprime+byprime)/1.414+.56
; ayprime=18.5*(axp-1.8192*axm)/(axp+1.8192*axm+.0001)
; axprime=-18.5*(ayp-1.0063*aym)/(ayp+1.0063*aym+.0001)
; axbpm=( axprime+ayprime)/1.414-.11
; aybpm=(-axprime+ayprime)/1.414+.52
; end  test beamline_tests

; begin test hms_chamber_offsets group=hms group=both
; #real hdelta_xp,hdelta_x,hdelta_y
; hdelta_xp=(hsxp_sp1+hsxp_sp2)/2. - hsxp_fp
; hdelta_x = hdelta_xp*(hdc_2_zpos-hdc_1_zpos)
; hdelta_y = hsy_sp2 - hsy_sp1
; end   test hms_chamber_offsets

; begin test sos_chamber_offsets group=sos group=both
; #real sdelta_xp,sdelta_x,sdelta_y,sdelta_tmp
; sdelta_xp=(ssxp_sp1+ssxp_sp2)/2. - ssxp_fp
; sdelta_x = sdelta_xp*(sdc_2_zpos-sdc_1_zpos)
; sdelta_y = ssy_sp2 - ssy_sp1
; sdelta_tmp = (ssy_sp2-ssy_sp1)-ssyp_fp*(sdc_2_zpos-sdc_1_zpos)
; end   test sos_chamber_offsets

begin test sos_misc_vars group=sos group=both
#real sdelta_beta
sdelta_beta = ssbeta - ssbeta_p
ssmass2=ssp*ssp*(1/(ssbeta+.000001)/(ssbeta+.000001)-1)
#real scal_e123
scal_e123=scal_e1+scal_e2+scal_e3
#real ssx_aero
ssx_aero=ssx_fp+253.8*ssxp_fp
#real ssy_aero
ssy_aero=ssy_fp+253.8*ssyp_fp
end   test sos_misc_vars

begin test hms_misc_vars group=hms group=both
#real hdelta_beta
hdelta_beta = hsbeta - hsbeta_p
hsmass2=hsp*hsp*(1/(hsbeta+.000001)/(hsbeta+.000001)-1)
end   test hms_misc_vars

begin test sos_collim_optics_check group=sos group=both
#real sos_x_collim,sos_y_collim
sos_x_collim=ssxp_tar*(126.3+ssy_tar/tan(stheta_lab))
sos_y_collim=ssyp_tar*(126.3+ssy_tar/tan(stheta_lab))+ssy_tar
end test sos_collim_optics_check

begin test hms_collim_optics_check group=hms group=both
#real hms_x_collim,hms_y_collim,hms_x_dpex,hms_y_dpex
hms_x_collim=hsxp_tar*(166.2+hsy_tar/tan(htheta_lab))
hms_y_collim=hsyp_tar*(166.2+hsy_tar/tan(htheta_lab))+hsy_tar
;djm hms_x_collim=hsxp_tar*(126.3+hsy_tar/tan(htheta_lab))
;djm hms_y_collim=hsyp_tar*(126.2+hsy_tar/tan(htheta_lab))+hsy_tar
hms_x_dpex=hsx_fp-625.*hsxp_fp
hms_y_dpex=hsy_fp-625.*hsyp_fp
end test hms_collim_optics_check

begin test coin_path_corr group=both
#real cpath_cor
cpath_cor = sspath_cor - hspath_cor
end test coin_path_corr

begin test coin_timing group=both
#real cchecksum
cchecksum = hmisc_dec_data(10)+smisc_dec_data(9)
end test coin_timing