*-- Author : J. V. Morris 17/04/93 FUNCTION FPLT2D(TICK,SGN,IWCH) ********************************************************************** * * * Planar Time-to-Distance model. * * TICK is drift time in ticks with Tzero already subtracted * * SGN is +1.0 for "near" wires -1.0 for "far" wires * * if SGN = 0.0, then then no near/far asymmetry adjustment is made * * IWCH is the planar channel number (0 to 1151) * * FPLT2D is the computed drift distance in cm. * * * * The function uses microns and nsecs internally * * JVM 04/01/93 * * * * Include 6% velocity asymmetry beta * * JVM 21/01/93 * * * * The velocity asymmetry is disabled until it can be tested! * * Include different T-2-D for "inner" and "outer" wires. * * JVM 08/04/93 * * * * Change interface to calibration constants. * * Add SGN = 0.0 option. * * SJM 17/04/93 * ********************************************************************** *>>>>>>>>>>>>> interface to calibration constants * Common for time-to-distance relation *SJM VEL(1:4) = Vout. VEL(5:8) = Vin. far wires *SJM VEL(9:12) = Vout. VEL(13:16) = Vin. symmetric case *SJM VEL(17:20) = Vout. VEL(21:24) = Vin. near wires *SJM XPT(1:3) = Xout. XPT(4:6) = Xin. far wires *SJM XPT(7:9) = Xout. XPT(10:12) = Xin. symmetric case *SJM XPT(13:15) = Xout. XPT(16:18) = Xin. near wires *JVM VIN = 44.93, 32.93, 33.12, 28.92 for run 34469 *JVM VOUT = 46.55, 31.80, 32.99, 29.17 for run 34469 *JVM X0IN = 5025., 16360., 28100. for all runs *JVM X0OUT= 5025., 17080., 28100. for all runs *>>>>>>>>>>>>> end of calibration constants * The parameters V(1) to V(4) (local drift velocities in micron/nsec), * X(1) and X(2) have been determined by a fit to the drift time * distribution from run 34469 with the constraint that the resulting * drift distance distribution be flat. X(3) is the nominal Planar cell * depth in microns. * channel outer, inner => IOFF = 0, 1 * Far, symmetric, near => ISGN = -1,0,+1 * Write(6,'('' Vel'',4F10.6)')(VEL(IV+LL), LL = 1,4) * Write(6,'('' Xpt'',4F10.2)')(XPT(IX+LL), LL = 1,3) * T in nsecs * Drift time to X(1) * Drift time to X(2) * Drift time to X(3) * Microns to cm *