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