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