Tests of detector efficiency corrections in IN4

lamp_mac/TOF/corr_tof.pro

@@ -248,8 +248,11 @@ FUNCTION corr_tof_tof, w_in, efficiency, frameoverlap, nf, bkgd, widthb, propb,g
             eff0=exp(C1/sqrt(Ei))*(1-exp(C2/sqrt(Ei)))
             eff=eff/eff0
         ENDIF ELSE IF  (insU EQ 'IN4') THEN BEGIN ; uses expression from Rieutord's ILL Report concerning the INX software
-            eff0=0.951*exp(-.0887/sqrt(Ei))*(1.-exp(-5.597/sqrt(Ei)))
-            eff=0.951*exp(-0.0887/sqrt(Ef))*(1.-exp(-5.597/sqrt(Ef)))
+            ;eff0=0.951*exp(-0.0887/sqrt(Ei))*(1.-exp(-5.597/sqrt(Ei)))
+            ;eff=0.951*exp(-0.0887/sqrt(Ef))*(1.-exp(-5.597/sqrt(Ef)))
+            A = 0.951 & B = -0.0887 & C = -5.597
+            eff0 = A*exp(B/sqrt(Ei))*(1.-exp(C/sqrt(Ei)))
+            eff = A*exp(B/sqrt(Ef))*(1.-exp(C/sqrt(Ef)))
             eff=eff/eff0 ; normalise to 1 @ elastic
         ENDIF ELSE IF  (insU EQ 'MIBEMOL') THEN BEGIN ; uses expression from Rieutord's ILL Report concerning the INX software
             eff0=(1.-exp(-2.49/sqrt(Ei)))