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