c1642fb55eaf434f1bceb941c1cbd8e540463f4a
[u/mrichter/AliRoot.git] / MUON / AliMUONMathieson.cxx
1 /**************************************************************************
2  * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
3  *                                                                        *
4  * Author: The ALICE Off-line Project.                                    *
5  * Contributors are mentioned in the code where appropriate.              *
6  *                                                                        *
7  * Permission to use, copy, modify and distribute this software and its   *
8  * documentation strictly for non-commercial purposes is hereby granted   *
9  * without fee, provided that the above copyright notice appears in all   *
10  * copies and that both the copyright notice and this permission notice   *
11  * appear in the supporting documentation. The authors make no claims     *
12  * about the suitability of this software for any purpose. It is          *
13  * provided "as is" without express or implied warranty.                  *
14  **************************************************************************/
15
16 /* $Id$ */
17
18 #include "AliMUONMathieson.h"
19
20 #include "AliLog.h"
21 #include "AliMUONGeometrySegmentation.h"
22
23 #include <TClass.h>
24 #include <TMath.h>
25 #include <TRandom.h>
26
27 ClassImp(AliMUONMathieson)
28         
29 //__________________________________________________________________________
30   AliMUONMathieson::AliMUONMathieson() :
31     fSqrtKx3(0.),
32     fKx2(0.),
33     fKx4(0.),
34     fSqrtKy3(0.),
35     fKy2(0.),
36     fKy4(0.),
37     fPitch(0.)
38 {
39 // Default constructor
40
41 }
42
43   //__________________________________________________________________________
44 void AliMUONMathieson::SetSqrtKx3AndDeriveKx2Kx4(Float_t SqrtKx3)
45 {
46   // Set to "SqrtKx3" the Mathieson parameter K3 ("fSqrtKx3")
47   // in the X direction, perpendicular to the wires,
48   // and derive the Mathieson parameters K2 ("fKx2") and K4 ("fKx4")
49   // in the same direction
50   fSqrtKx3 = SqrtKx3;
51   fKx2 = TMath::Pi() / 2. * (1. - 0.5 * fSqrtKx3);
52   Float_t cx1 = fKx2 * fSqrtKx3 / 4. / TMath::ATan(Double_t(fSqrtKx3));
53   fKx4 = cx1 / fKx2 / fSqrtKx3;
54 }
55         
56   //__________________________________________________________________________
57 void AliMUONMathieson::SetSqrtKy3AndDeriveKy2Ky4(Float_t SqrtKy3)
58 {
59   // Set to "SqrtKy3" the Mathieson parameter K3 ("fSqrtKy3")
60   // in the Y direction, along the wires,
61   // and derive the Mathieson parameters K2 ("fKy2") and K4 ("fKy4")
62   // in the same direction
63   fSqrtKy3 = SqrtKy3;
64   fKy2 = TMath::Pi() / 2. * (1. - 0.5 * fSqrtKy3);
65   Float_t cy1 = fKy2 * fSqrtKy3 / 4. / TMath::ATan(Double_t(fSqrtKy3));
66   fKy4 = cy1 / fKy2 / fSqrtKy3;
67 }
68
69 //_____________________________________________________________________________
70 Float_t
71 AliMUONMathieson::IntXY(Float_t xi1, Float_t yi1, Float_t xi2, Float_t yi2) const
72 {
73   AliDebug(1,Form("xi1=%e yi1=%e xi2=%e yi2=%e",xi1,yi1,xi2,yi2));
74   
75   const Float_t kInversePitch = 1./fPitch;
76   xi1 *= kInversePitch;
77   xi2 *= kInversePitch;
78   yi1 *= kInversePitch;
79   yi2 *= kInversePitch;
80   //
81   // The Mathieson function 
82   Double_t ux1=fSqrtKx3*TMath::TanH(fKx2*xi1);
83   Double_t ux2=fSqrtKx3*TMath::TanH(fKx2*xi2);
84   
85   Double_t uy1=fSqrtKy3*TMath::TanH(fKy2*yi1);
86   Double_t uy2=fSqrtKy3*TMath::TanH(fKy2*yi2);
87   
88   
89   return Float_t(4.*fKx4*(TMath::ATan(ux2)-TMath::ATan(ux1))*
90                  fKy4*(TMath::ATan(uy2)-TMath::ATan(uy1)));
91 }
92
93 // -------------------------------------------
94 Float_t AliMUONMathieson::IntXY(Int_t idDE, AliMUONGeometrySegmentation* segmentation)
95 {
96 // Calculate charge on current pad according to Mathieson distribution
97 // using Detection elt
98 //
99 //  Integration limits defined by segmentation model
100 //  
101     Float_t xi1, xi2, yi1, yi2;
102     segmentation->IntegrationLimits(idDE, xi1,xi2,yi1,yi2);
103     return IntXY(xi1,yi1,xi2,yi2);
104 }