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