Access function to material id and absorber composition added.
[u/mrichter/AliRoot.git] / STRUCT / AliABSO.cxx
CommitLineData
4c039060 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$
f19077cf 18Revision 1.10 2000/10/02 21:28:15 fca
19Removal of useless dependecies via forward declarations
20
94de3818 21Revision 1.9 2000/06/11 12:32:12 morsch
22Coding rule violations corrected
23
b43eb0dc 24Revision 1.8 2000/02/23 13:46:04 morsch
25Detailed composition of insulation material.
26
9af0a493 27Revision 1.7 2000/01/12 15:36:28 morsch
28Base class only
29
3f4d1718 30Revision 1.6 1999/09/29 09:24:29 fca
31Introduction of the Copyright and cvs Log
32
4c039060 33*/
34
fe4da5cc 35///////////////////////////////////////////////////////////////////////////////
36// //
37// Muon ABSOrber //
38// This class contains the description of the muon absorber geometry //
39// //
40//Begin_Html
41/*
1439f98e 42<img src="picts/AliABSOClass.gif">
fe4da5cc 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"
94de3818 58#include "AliMagF.h"
fe4da5cc 59#include "AliConst.h"
60
61ClassImp(AliABSO)
62
63//_____________________________________________________________________________
64AliABSO::AliABSO()
65{
66 //
67 // Default constructor
68 //
69}
70
71//_____________________________________________________________________________
72AliABSO::AliABSO(const char *name, const char *title)
b8032157 73 : AliModule(name,title)
fe4da5cc 74{
75 //
76 // Standard constructor
77 //
78 SetMarkerColor(7);
79 SetMarkerStyle(2);
80 SetMarkerSize(0.4);
81}
82
fe4da5cc 83//_____________________________________________________________________________
84void AliABSO::CreateGeometry()
85{
86 //
87 // Creation of the geometry of the muon absorber
88 //
fe4da5cc 89}
90
91//_____________________________________________________________________________
b8032157 92void AliABSO::DrawModule()
fe4da5cc 93{
94 //
95 // Draw a shaded view of the muon absorber
96 //
fe4da5cc 97}
98
3f4d1718 99
fe4da5cc 100//_____________________________________________________________________________
101void AliABSO::CreateMaterials()
102{
103 //
104 // Define materials for muon absorber
105 //
b43eb0dc 106 Int_t isxfld = gAlice->Field()->Integ();
107 Float_t sxmgmx = gAlice->Field()->Max();
fe4da5cc 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 };
3f4d1718 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};
f19077cf 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
3f4d1718 137//
138// Insulation powder
9af0a493 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};
3f4d1718 143//
fe4da5cc 144 Float_t epsil, stmin, tmaxfd, deemax, stemax;
145 //
146 // Carbon
f19077cf 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);
fe4da5cc 150 //
151 // Aluminum
3f4d1718 152 AliMaterial(9, "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
fe4da5cc 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 //
9af0a493 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 //
fe4da5cc 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 //
3f4d1718 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 //
fe4da5cc 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);
3f4d1718 211 //
212 // Insulation powder
9af0a493 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);
f19077cf 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);
3f4d1718 220
fe4da5cc 221 //
222 // ****************
223 // Defines tracking media parameters.
224 //
3f4d1718 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
fe4da5cc 229 stmin = -.8;
230 // ***************
231 //
232 // Carbon
b43eb0dc 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);
fe4da5cc 236 //
237 // Aluminum
b43eb0dc 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);
fe4da5cc 241 //
242 // Iron
b43eb0dc 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);
fe4da5cc 246 //
9af0a493 247 // Copper
b43eb0dc 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);
9af0a493 251 //
fe4da5cc 252 // Tungsten
b43eb0dc 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);
3f4d1718 256 // Ni/Tungsten
b43eb0dc 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);
fe4da5cc 260 //
261 // Lead
b43eb0dc 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);
fe4da5cc 265 //
3f4d1718 266 // Insulation Powder
b43eb0dc 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);
3f4d1718 270 //
fe4da5cc 271 // Air
b43eb0dc 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);
fe4da5cc 275 //
276 // Vacuum
b43eb0dc 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);
fe4da5cc 280 //
281 // Concrete
b43eb0dc 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);
fe4da5cc 285 //
286 // Polyethilene
b43eb0dc 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);
fe4da5cc 290 //
291 // Steel
b43eb0dc 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);
f19077cf 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);
fe4da5cc 300}
301
302//_____________________________________________________________________________
303void 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
f19077cf 319Int_t AliABSO::GetMatId(Int_t imat)
320{
321// Get geant material number
322 Int_t kmat=(*fIdmate)[imat];
323 return kmat;
324}