Minor changes (R.Barbera)
[u/mrichter/AliRoot.git] / STRUCT / AliSHIL.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.9  2000/06/11 12:38:40  morsch
19 Coding rule violations corrected
20
21 Revision 1.8  2000/02/23 13:48:33  morsch
22 Detailed composition of insulation material.
23
24 Revision 1.7  2000/01/12 15:37:57  morsch
25 Base class only
26
27 Revision 1.6  1999/09/29 09:24:30  fca
28 Introduction of the Copyright and cvs Log
29
30 */
31
32 ///////////////////////////////////////////////////////////////////////////////
33 //                                                                           //
34 //  Muon Shield Class                                                        //
35 //  This class contains a description of the muon shield                     //
36 //                                                                           //
37 //Begin_Html
38 /*
39 <img src="picts/AliSHILClass.gif">
40 */
41 //End_Html
42 //                                                                           //
43 //                                                                           //
44 ///////////////////////////////////////////////////////////////////////////////
45
46 #include "AliSHIL.h"
47 #include "AliRun.h"
48 #include "AliMagF.h"
49 #include "AliConst.h"
50
51 ClassImp(AliSHIL)
52  
53 //_____________________________________________________________________________
54 AliSHIL::AliSHIL()
55 {
56   //
57   // Default constructor for muon shield
58   //
59 }
60  
61 //_____________________________________________________________________________
62 AliSHIL::AliSHIL(const char *name, const char *title)
63   : AliModule(name,title)
64 {
65   //
66   // Standard constructor for muon shield
67   //
68   SetMarkerColor(7);
69   SetMarkerStyle(2);
70   SetMarkerSize(0.4);
71 }
72  
73 //_____________________________________________________________________________
74 void AliSHIL::CreateGeometry()
75 {
76   //
77   // Build muon shield geometry
78   //
79 }
80
81 //_____________________________________________________________________________
82 void AliSHIL::CreateMaterials()
83 {
84   //
85   // Defines materials for the muon shield
86   //
87   Int_t   isxfld = gAlice->Field()->Integ();
88   Float_t sxmgmx = gAlice->Field()->Max();
89 // Steel  
90   Float_t asteel[4] = { 55.847,51.9961,58.6934,28.0855 };
91   Float_t zsteel[4] = { 26.,24.,28.,14. };
92   Float_t wsteel[4] = { .715,.18,.1,.005 };
93 // PbW
94   Float_t apbw[2]   = { 207.2,183.85 };
95   Float_t zpbw[2]   = { 82.,74. };
96   Float_t wpbw[2]   = { .5,.5 };
97 // Concrete
98   Float_t aconc[10] = { 1.,12.01,15.994,22.99,24.305,26.98,
99                         28.086,39.1,40.08,55.85 };
100   Float_t zconc[10] = { 1.,6.,8.,11.,12.,13.,14.,19.,20.,26. };
101   Float_t wconc[10] = { .01,.001,.529107,.016,.002,.033872,
102                         .337021,.013,.044,.014 };
103 // Ni-Cu-W alloy
104   Float_t aniwcu[3] ={58.6934, 183.84, 63.546};
105   Float_t zniwcu[3] ={28., 74., 29};
106   Float_t wniwcu[3] ={0.015,0.95,0.035};
107 //
108 // Insulation powder
109 //                    Si         O       Ti     Al
110   Float_t ains[4] ={28.0855, 15.9994, 47.867,  26.982};
111   Float_t zins[4] ={14.,      8.    , 22.   ,  13.   };
112   Float_t wins[4] ={ 0.3019,  0.4887,  0.1914,  0.018};
113
114   Float_t epsil, stmin, tmaxfd, deemax, stemax;
115   
116   //     STEEL 
117   
118   
119   //     LEAD/TUNGSTEN MIXTURE 
120   
121   
122   // --- Define the various materials for GEANT --- 
123   //     Aluminum 
124   AliMaterial(9,  "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
125   AliMaterial(29, "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
126   AliMaterial(49, "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
127   
128   //     Iron 
129   AliMaterial(10, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
130   AliMaterial(30, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
131   AliMaterial(50, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
132
133   //
134   //     Copper
135   AliMaterial(11, "COPPER$   ", 63.55, 29., 8.96, 1.43, 15.1);
136   AliMaterial(31, "COPPER$   ", 63.55, 29., 8.96, 1.43, 15.1);
137   AliMaterial(51, "COPPER$   ", 63.55, 29., 8.96, 1.43, 15.1);
138   
139   //     Tungsten 
140   AliMaterial(12, "TUNGSTEN$ ", 183.85, 74., 19.3, .35, 10.3);
141   AliMaterial(32, "TUNGSTEN$ ", 183.85, 74., 19.3, .35, 10.3);
142   AliMaterial(52, "TUNGSTEN$ ", 183.85, 74., 19.3, .35, 10.3);
143   
144   //     Lead 
145   AliMaterial(13, "LEAD$     ", 207.19, 82., 11.35, .56, 18.5);
146   AliMaterial(33, "LEAD$     ", 207.19, 82., 11.35, .56, 18.5);
147   AliMaterial(53, "LEAD$     ", 207.19, 82., 11.35, .56, 18.5);
148   
149   //     Air 
150   AliMaterial(15, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500);
151   AliMaterial(35, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500);
152   AliMaterial(55, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500);
153   
154   //     Vacuum 
155   AliMaterial(16, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
156   AliMaterial(36, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
157   AliMaterial(56, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
158   
159   //     Stainless Steel 
160   AliMixture(19, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
161   AliMixture(39, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
162   AliMixture(59, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
163   
164   //     Lead/Tungsten 
165   AliMixture(20, "LEAD/TUNGSTEN$", apbw, zpbw, 15.325, 2, wpbw);
166   AliMixture(40, "LEAD/TUNGSTEN$", apbw, zpbw, 15.325, 2, wpbw);
167   AliMixture(60, "LEAD/TUNGSTEN$", apbw, zpbw, 15.325, 2, wpbw);
168
169   //     Ni-W-Cu 
170   AliMixture(21, "Ni-W-Cu$", aniwcu, zniwcu, 18.78, 3, wniwcu);
171   AliMixture(41, "Ni-W-Cu$", aniwcu, zniwcu, 18.78, 3, wniwcu);
172   AliMixture(61, "Ni-W-Cu$", aniwcu, zniwcu, 18.78, 3, wniwcu);
173
174   //     Concrete 
175   AliMixture(17, "CONCRETE$", aconc, zconc, 2.35, 10, wconc);
176   AliMixture(37, "CONCRETE$", aconc, zconc, 2.35, 10, wconc);
177   AliMixture(57, "CONCRETE$", aconc, zconc, 2.35, 10, wconc);
178
179   //     Insulation powder 
180   AliMixture(14, "INSULATION$", ains, zins, 0.41, 4, wins);
181   AliMixture(34, "INSULATION$", ains, zins, 0.41, 4, wins);
182   AliMixture(54, "INSULATION$", ains, zins, 0.41, 4, wins);
183   
184   // **************** 
185   //     Defines tracking media parameters. 
186   //     Les valeurs sont commentees pour laisser le defaut 
187   //     a GEANT (version 3-21, page CONS200), f.m. 
188   epsil  = .001;  // Tracking precision, 
189   stemax = -1.;   // Maximum displacement for multiple scat 
190   tmaxfd = -20.;  // Maximum angle due to field deflection 
191   deemax = -.3;   // Maximum fractional energy loss, DLS 
192   stmin  = -.8;
193   // *************** 
194   
195   //    Aluminum 
196   AliMedium(9,  "ALU_C0          ", 9, 0,  isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
197   AliMedium(29, "ALU_C1          ", 29, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
198   AliMedium(49, "ALU_C2          ", 49, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
199   
200   //    Iron 
201   AliMedium(10, "FE_C0           ", 10, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
202   AliMedium(30, "FE_C1           ", 30, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
203   AliMedium(50, "FE_C2           ", 50, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
204
205   //    Iron 
206   AliMedium(11, "Cu_C0           ", 11, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
207   AliMedium(31, "Cu_C1           ", 31, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
208   AliMedium(51, "Cu_C2           ", 51, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
209   
210   //    Tungsten 
211   AliMedium(12, "W_C0            ", 12, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
212   AliMedium(32, "W_C1            ", 32, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
213   AliMedium(52, "W_C2            ", 52, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
214   
215   //    Lead 
216   AliMedium(13, "PB_C0           ", 13, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
217   AliMedium(33, "PB_C1           ", 33, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
218   AliMedium(53, "PB_C2           ", 53, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
219
220   //    Insulation Powder 
221   AliMedium(14, "INS_C0          ", 14, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
222   AliMedium(34, "INS_C1          ", 34, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
223   AliMedium(54, "INS_C2          ", 54, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
224   
225   //    Air 
226   AliMedium(15, "AIR_C0          ", 15, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
227   AliMedium(35, "AIR_C1          ", 35, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
228   AliMedium(55, "AIR_C2          ", 55, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
229   
230   //    Vacuum 
231   AliMedium(16, "VA_C0           ", 16, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
232   AliMedium(36, "VA_C1           ", 36, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
233   AliMedium(56, "VA_C2           ", 56, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
234   
235   //    Steel 
236   AliMedium(19, "ST_C0           ", 19, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
237   AliMedium(39, "ST_C1           ", 39, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
238   AliMedium(59, "ST_C3           ", 59, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
239   
240   //    Lead/Tungsten 
241   AliMedium(20, "PB/W0           ", 20, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
242   AliMedium(40, "PB/W1           ", 40, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
243   AliMedium(60, "PB/W3           ", 60, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
244
245   //    Ni/Tungsten 
246   AliMedium(21, "Ni/W0           ", 21, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
247   AliMedium(41, "Ni/W1           ", 41, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
248   AliMedium(61, "Ni/W3           ", 61, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
249
250 //    Concrete 
251   AliMedium(17, "CC_C0           ", 17, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
252   AliMedium(37, "CC_C1           ", 37, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
253   AliMedium(57, "CC_C2           ", 57, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
254
255 }
256
257 //_____________________________________________________________________________
258 void AliSHIL::DrawModule () 
259 {
260     // Drawing options
261 }
262
263 //_____________________________________________________________________________
264 void AliSHIL::Init()
265 {
266   //
267   // Initialise the muon shield after it has been built
268   //
269   Int_t i;
270   //
271   printf("\n");
272   for(i=0;i<35;i++) printf("*");
273   printf(" SHIL_INIT ");
274   for(i=0;i<35;i++) printf("*");
275   printf("\n");
276   //
277   // Here the SHIL initialisation code (if any!)
278   for(i=0;i<80;i++) printf("*");
279   printf("\n");
280 }
281
282