New beamshield geometry with increased tolerances and insulation thickness.
[u/mrichter/AliRoot.git] / STRUCT / AliABSO.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 /*
17 $Log$
18 Revision 1.10  2000/10/02 21:28:15  fca
19 Removal of useless dependecies via forward declarations
20
21 Revision 1.9  2000/06/11 12:32:12  morsch
22 Coding rule violations corrected
23
24 Revision 1.8  2000/02/23 13:46:04  morsch
25 Detailed composition of insulation material.
26
27 Revision 1.7  2000/01/12 15:36:28  morsch
28 Base class only
29
30 Revision 1.6  1999/09/29 09:24:29  fca
31 Introduction of the Copyright and cvs Log
32
33 */
34
35 ///////////////////////////////////////////////////////////////////////////////
36 //                                                                           //
37 //  Muon ABSOrber                                                            //
38 //  This class contains the description of the muon absorber geometry        //
39 //                                                                           //
40 //Begin_Html
41 /*
42 <img src="picts/AliABSOClass.gif">
43 </pre>
44 <br clear=left>
45 <font size=+2 color=red>
46 <p>The responsible person for this module is
47 <a href="mailto:andreas.morsch@cern.ch">Andreas Morsch</a>.
48 </font>
49 <pre>
50 */
51 //End_Html
52 //                                                                           //
53 //                                                                           //
54 ///////////////////////////////////////////////////////////////////////////////
55
56 #include "AliABSO.h"
57 #include "AliRun.h"
58 #include "AliMagF.h"
59 #include "AliConst.h"
60  
61 ClassImp(AliABSO)
62  
63 //_____________________________________________________________________________
64 AliABSO::AliABSO()
65 {
66   //
67   // Default constructor
68   //
69 }
70  
71 //_____________________________________________________________________________
72 AliABSO::AliABSO(const char *name, const char *title)
73        : AliModule(name,title)
74 {
75   //
76   // Standard constructor
77   //
78   SetMarkerColor(7);
79   SetMarkerStyle(2);
80   SetMarkerSize(0.4);
81 }
82  
83 //_____________________________________________________________________________
84 void AliABSO::CreateGeometry()
85 {
86   //
87   // Creation of the geometry of the muon absorber
88   //
89 }
90
91 //_____________________________________________________________________________
92 void AliABSO::DrawModule()
93 {
94   //
95   // Draw a shaded view of the muon absorber
96   //
97 }
98
99
100 //_____________________________________________________________________________
101 void AliABSO::CreateMaterials()
102 {
103   //
104   // Define materials for muon absorber
105   //
106   Int_t   isxfld = gAlice->Field()->Integ();
107   Float_t sxmgmx = gAlice->Field()->Max();
108   
109   Float_t apoly[2]  = { 12.01,1. };
110   Float_t zpoly[2]  = { 6.,1. };
111   Float_t wpoly[2]  = { .33,.67 };
112   Float_t aconc[10] = { 1.,12.01,15.994,22.99,24.305,26.98,
113                         28.086,39.1,40.08,55.85 };
114   Float_t zconc[10] = { 1.,6.,8.,11.,12.,13.,14.,19.,20.,26. };
115   Float_t wconc[10] = { .01,.001,.529107,.016,.002,.033872,
116                         .337021,.013,.044,.014 };
117   Float_t asteel[4] = { 55.847,51.9961,58.6934,28.0855 };
118   Float_t zsteel[4] = { 26.,24.,28.,14. };
119   Float_t wsteel[4] = { .715,.18,.1,.005 };
120 //
121 //
122 // Ni-Cu-W alloy
123   Float_t aniwcu[3] ={58.6934, 183.84, 63.546};
124   Float_t zniwcu[3] ={28., 74., 29};
125   Float_t wniwcu[3] ={0.015,0.95,0.035};
126 // Poly Concrete
127 //                      H     Li     F       C      Al     Si      Ca      Pb     O
128   Float_t aPolyCc[9] = {1. ,  6.941, 18.998, 12.01, 26.98, 28.086, 40.078, 207.2, 15.999};
129   Float_t zPolyCc[9] = {1. ,  3.   ,  9.   ,  6.  , 13.  , 14.   , 20.   ,  82. ,  8.   };
130   Float_t wPolyCc[9] = {4.9,  1.2  ,  1.3  ,  1.1 ,  0.15,  0.02 ,  0.06 ,   0.7,  1.1  };
131   Float_t wtot=0;
132   Int_t   i=0;
133
134   for (i=0; i<9; i++) wtot+=wPolyCc[i];
135   for (i=0; i<9; i++) wPolyCc[i]/=wtot;  
136
137 //
138 // Insulation powder
139 //                    Si         O       Ti     Al
140   Float_t ains[4] ={28.0855, 15.9994, 47.867,  26.982};
141   Float_t zins[4] ={14.,      8.    , 22.   ,  13.   };
142   Float_t wins[4] ={ 0.3019,  0.4887,  0.1914,  0.018};
143 //
144   Float_t epsil, stmin, tmaxfd, deemax, stemax;
145   //
146   //     Carbon 
147   AliMaterial( 6, "CARBON$   ", 12.01, 6., 1.75, 24.4, 49.9);
148   AliMaterial(26, "CARBON$   ", 12.01, 6., 1.75, 24.4, 49.9);
149   AliMaterial(46, "CARBON$   ", 12.01, 6., 1.75, 24.4, 49.9);
150   //
151   //     Aluminum 
152   AliMaterial(9,  "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
153   AliMaterial(29, "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
154   AliMaterial(49, "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
155   //
156   //     Iron 
157   AliMaterial(10, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
158   AliMaterial(30, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
159   AliMaterial(50, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
160   //
161   //     Copper
162   AliMaterial(11, "COPPER$   ", 63.55, 29., 8.96, 1.43, 15.1);
163   AliMaterial(31, "COPPER$   ", 63.55, 29., 8.96, 1.43, 15.1);
164   AliMaterial(51, "COPPER$   ", 63.55, 29., 8.96, 1.43, 15.1);
165   //
166   //     Tungsten 
167   AliMaterial(12, "TUNGSTEN$ ", 183.85, 74., 19.3, .35, 10.3);
168   AliMaterial(32, "TUNGSTEN$ ", 183.85, 74., 19.3, .35, 10.3);
169   AliMaterial(52, "TUNGSTEN$ ", 183.85, 74., 19.3, .35, 10.3);
170   //
171   //     Ni-W-Cu 
172   AliMixture(21, "Ni-W-Cu$", aniwcu, zniwcu, 18.78, 3, wniwcu);
173   AliMixture(41, "Ni-W-Cu$", aniwcu, zniwcu, 18.78, 3, wniwcu);
174   AliMixture(61, "Ni-W-Cu$", aniwcu, zniwcu, 18.78, 3, wniwcu);
175   //
176   //     Lead 
177   AliMaterial(13, "LEAD$     ", 207.19, 82., 11.35, .56, 18.5);
178   AliMaterial(33, "LEAD$     ", 207.19, 82., 11.35, .56, 18.5);
179   AliMaterial(53, "LEAD$     ", 207.19, 82., 11.35, .56, 18.5);
180   //
181   //     Air 
182   AliMaterial(15, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500.);
183   AliMaterial(35, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500.);
184   AliMaterial(55, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500.);
185   //
186   //     Vacuum 
187   AliMaterial(16, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
188   AliMaterial(36, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
189   AliMaterial(56, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
190   //
191   //     Concrete 
192   AliMixture(17, "CONCRETE$", aconc, zconc, 2.35, 10, wconc);
193   AliMixture(37, "CONCRETE$", aconc, zconc, 2.35, 10, wconc);
194   AliMixture(57, "CONCRETE$", aconc, zconc, 2.35, 10, wconc);
195   //
196   //     Poly CH2 
197   AliMixture(18, "POLYETHYLEN$", apoly, zpoly, .95, -2, wpoly);
198   //
199   // After a call with ratios by number (negative number of elements), 
200   // the ratio array is changed to the ratio by weight, so all successive 
201   // calls with the same array must specify the number of elements as 
202   // positive 
203   //
204   AliMixture(38, "POLYETHYLEN$", apoly, zpoly, .95, 2, wpoly);
205   AliMixture(58, "POLYETHYLEN$", apoly, zpoly, .95, 2, wpoly);
206   //
207   //     stainless Steel 
208   AliMixture(19, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
209   AliMixture(39, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
210   AliMixture(59, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
211   //
212   //     Insulation powder 
213   AliMixture(14, "INSULATION$", ains, zins, 0.41, 4, wins);
214   AliMixture(34, "INSULATION$", ains, zins, 0.41, 4, wins);
215   AliMixture(54, "INSULATION$", ains, zins, 0.41, 4, wins);
216   // Polymere Concrete 
217   AliMixture(20, "Poly Concrete$", aPolyCc, zPolyCc, 3.53, -9, wPolyCc);
218   AliMixture(40, "Poly Concrete$", aPolyCc, zPolyCc, 3.53,  9, wPolyCc);
219   AliMixture(60, "Poly Concrete$", aPolyCc, zPolyCc, 3.53,  9, wPolyCc);
220
221   //
222   // **************** 
223   //     Defines tracking media parameters. 
224   //
225   epsil  = .001;    // Tracking precision, 
226   stemax = -0.01;   // Maximum displacement for multiple scat 
227   tmaxfd = -20.;    // Maximum angle due to field deflection 
228   deemax = -.3;     // Maximum fractional energy loss, DLS 
229   stmin  = -.8;
230   // *************** 
231   //
232   //    Carbon 
233   AliMedium(6,  "C_C0             ",  6, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
234   AliMedium(26, "C_C1             ", 26, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
235   AliMedium(46, "C_C2             ", 46, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
236   //
237   //    Aluminum 
238   AliMedium(9,  "ALU_C0          ",  9, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
239   AliMedium(29, "ALU_C1          ", 29, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
240   AliMedium(49, "ALU_C2          ", 49, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
241   //
242   //    Iron 
243   AliMedium(10, "FE_C0           ", 10, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
244   AliMedium(30, "FE_C1           ", 30, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
245   AliMedium(50, "FE_C2           ", 50, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
246   //
247   //    Copper
248   AliMedium(11, "Cu_C0            ", 11, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
249   AliMedium(31, "Cu_C1            ", 31, 0, isxfld, sxmgmx, tmaxfd, -stemax, deemax, epsil, stmin);
250   AliMedium(51, "Cu_C2            ", 51, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
251   //
252   //    Tungsten 
253   AliMedium(12, "W_C0            ", 12, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
254   AliMedium(32, "W_C1            ", 32, 0, isxfld, sxmgmx, tmaxfd, -stemax, deemax, epsil, stmin);
255   AliMedium(52, "W_C2            ", 52, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
256   //    Ni/Tungsten 
257   AliMedium(21, "Ni/W0           ", 21, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
258   AliMedium(41, "Ni/W1           ", 41, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
259   AliMedium(61, "Ni/W3           ", 61, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
260   //
261   //    Lead 
262   AliMedium(13, "PB_C0           ", 13, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
263   AliMedium(33, "PB_C1           ", 33, 0, isxfld, sxmgmx, tmaxfd, -stemax, deemax, epsil, stmin);
264   AliMedium(53, "PB_C2           ", 53, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
265   //
266   //    Insulation Powder 
267   AliMedium(14, "INS_C0          ", 14, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
268   AliMedium(34, "INS_C1          ", 34, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
269   AliMedium(54, "INS_C2          ", 54, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
270   //
271   //    Air 
272   AliMedium(15, "AIR_C0          ", 15, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
273   AliMedium(35, "AIR_C1          ", 35, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
274   AliMedium(55, "AIR_C2          ", 55, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
275   //
276   //    Vacuum 
277   AliMedium(16, "VA_C0           ", 16, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
278   AliMedium(36, "VA_C1           ", 36, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
279   AliMedium(56, "VA_C2           ", 56, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
280   //
281   //    Concrete 
282   AliMedium(17, "CC_C0           ", 17, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
283   AliMedium(37, "CC_C1           ", 37, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
284   AliMedium(57, "CC_C2           ", 57, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
285   //
286   //    Polyethilene 
287   AliMedium(18, "CH2_C0          ", 18, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
288   AliMedium(38, "CH2_C1          ", 38, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
289   AliMedium(58, "CH2_C2          ", 58, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
290   //
291   //    Steel 
292   AliMedium(19, "ST_C0           ", 19, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
293   AliMedium(39, "ST_C1           ", 39, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
294   AliMedium(59, "ST_C3           ", 59, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
295   //
296   // Polymer Concrete 
297   AliMedium(20, "PCc_C0           ", 20, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
298   AliMedium(40, "PCc_C1           ", 40, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
299   AliMedium(60, "PCc_C3           ", 60, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
300 }
301
302 //_____________________________________________________________________________
303 void AliABSO::Init()
304 {
305   //
306   // Initialisation of the muon absorber after it has been built
307   Int_t i;
308   //
309   printf("\n");
310   for(i=0;i<35;i++) printf("*");
311   printf(" ABSO_INIT ");
312   for(i=0;i<35;i++) printf("*");
313   printf("\n");
314   //
315   for(i=0;i<80;i++) printf("*");
316   printf("\n");
317 }
318  
319 Int_t  AliABSO::GetMatId(Int_t imat) 
320 {
321 // Get geant material number
322     Int_t kmat=(*fIdmate)[imat]; 
323     return kmat;
324 }