[u/mrichter/AliRoot.git] / STRUCT / AliABSO.cxx

/**************************************************************************
 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
 *                                                                        *
 * Author: The ALICE Off-line Project.                                    *
 * Contributors are mentioned in the code where appropriate.              *
 *                                                                        *
 * Permission to use, copy, modify and distribute this software and its   *
 * documentation strictly for non-commercial purposes is hereby granted   *
 * without fee, provided that the above copyright notice appears in all   *
 * copies and that both the copyright notice and this permission notice   *
 * appear in the supporting documentation. The authors make no claims     *
 * about the suitability of this software for any purpose. It is          *
 * provided "as is" without express or implied warranty.                  *
 **************************************************************************/

/* $Id$ */

///////////////////////////////////////////////////////////////////////////////
//                                                                           //
//  Muon ABSOrber                                                            //
//  This class contains the description of the muon absorber geometry        //
//                                                                           //
//Begin_Html
/*
<img src="picts/AliABSOClass.gif">
</pre>
<br clear=left>
<font size=+2 color=red>
<p>The responsible person for this module is
<a href="mailto:andreas.morsch@cern.ch">Andreas Morsch</a>.
</font>
<pre>
*/
//End_Html
//                                                                           //
//                                                                           //
///////////////////////////////////////////////////////////////////////////////

#include "AliABSO.h"
#include "AliRun.h"
#include "AliMagF.h"
#include "AliConst.h"
 
ClassImp(AliABSO)
 
//_____________________________________________________________________________
AliABSO::AliABSO()
{
  //
  // Default constructor
  //
}
 
//_____________________________________________________________________________
AliABSO::AliABSO(const char *name, const char *title)
       : AliModule(name,title)
{
  //
  // Standard constructor
  //
  SetMarkerColor(7);
  SetMarkerStyle(2);
  SetMarkerSize(0.4);
}
 
//_____________________________________________________________________________
void AliABSO::CreateGeometry()
{
  //
  // Creation of the geometry of the muon absorber
  //
}

//_____________________________________________________________________________
void AliABSO::DrawModule()
{
  //
  // Draw a shaded view of the muon absorber
  //
}


//_____________________________________________________________________________
void AliABSO::CreateMaterials()
{
  //
  // Define materials for muon absorber
  //
  Int_t   isxfld = gAlice->Field()->Integ();
  Float_t sxmgmx = gAlice->Field()->Max();
  
  Float_t apoly[2]  = { 12.01,1. };
  Float_t zpoly[2]  = { 6.,1. };
  Float_t wpoly[2]  = { .33,.67 };
  Float_t aconc[10] = { 1.,12.01,15.994,22.99,24.305,26.98,
			28.086,39.1,40.08,55.85 };
  Float_t zconc[10] = { 1.,6.,8.,11.,12.,13.,14.,19.,20.,26. };
  Float_t wconc[10] = { .01,.001,.529107,.016,.002,.033872,
			.337021,.013,.044,.014 };
  Float_t asteel[4] = { 55.847,51.9961,58.6934,28.0855 };
  Float_t zsteel[4] = { 26.,24.,28.,14. };
  Float_t wsteel[4] = { .715,.18,.1,.005 };
//
//
// Ni-Cu-W alloy
  Float_t aniwcu[3] ={58.6934, 183.84, 63.546};
  Float_t zniwcu[3] ={28., 74., 29};
  Float_t wniwcu[3] ={0.015,0.95,0.035};
// Poly Concrete
//                      H     Li     F       C      Al     Si      Ca      Pb     O
  Float_t aPolyCc[9] = {1. ,  6.941, 18.998, 12.01, 26.98, 28.086, 40.078, 207.2, 15.999};
  Float_t zPolyCc[9] = {1. ,  3.   ,  9.   ,  6.  , 13.  , 14.   , 20.   ,  82. ,  8.   };
  Float_t wPolyCc[9] = {4.9,  1.2  ,  1.3  ,  1.1 ,  0.15,  0.02 ,  0.06 ,   0.7,  1.1  };
  Float_t wtot=0;
  Int_t   i=0;

  for (i=0; i<9; i++) wtot+=wPolyCc[i];
  for (i=0; i<9; i++) wPolyCc[i]/=wtot;  

//
// Insulation powder
//                    Si         O       Ti     Al
  Float_t ains[4] ={28.0855, 15.9994, 47.867,  26.982};
  Float_t zins[4] ={14.,      8.    , 22.   ,  13.   };
  Float_t wins[4] ={ 0.3019,  0.4887,  0.1914,  0.018};
//
  Float_t epsil, stmin, tmaxfd, deemax, stemax;
  //
  //     Carbon 
  AliMaterial( 6, "CARBON$   ", 12.01, 6., 1.75, 24.4, 49.9);
  AliMaterial(26, "CARBON$   ", 12.01, 6., 1.75, 24.4, 49.9);
  AliMaterial(46, "CARBON$   ", 12.01, 6., 1.75, 24.4, 49.9);
  //
  //     Aluminum 
  AliMaterial(9,  "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
  AliMaterial(29, "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
  AliMaterial(49, "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
  //
  //     Iron 
  AliMaterial(10, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
  AliMaterial(30, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
  AliMaterial(50, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
  //
  //     Copper
  AliMaterial(11, "COPPER$   ", 63.55, 29., 8.96, 1.43, 15.1);
  AliMaterial(31, "COPPER$   ", 63.55, 29., 8.96, 1.43, 15.1);
  AliMaterial(51, "COPPER$   ", 63.55, 29., 8.96, 1.43, 15.1);
  //
  //     Tungsten 
  AliMaterial(12, "TUNGSTEN$ ", 183.85, 74., 19.3, .35, 10.3);
  AliMaterial(32, "TUNGSTEN$ ", 183.85, 74., 19.3, .35, 10.3);
  AliMaterial(52, "TUNGSTEN$ ", 183.85, 74., 19.3, .35, 10.3);
  //
  //     Ni-W-Cu 
  AliMixture(21, "Ni-W-Cu$", aniwcu, zniwcu, 18.78, 3, wniwcu);
  AliMixture(41, "Ni-W-Cu$", aniwcu, zniwcu, 18.78, 3, wniwcu);
  AliMixture(61, "Ni-W-Cu$", aniwcu, zniwcu, 18.78, 3, wniwcu);
  //
  //     Lead 
  AliMaterial(13, "LEAD$     ", 207.19, 82., 11.35, .56, 18.5);
  AliMaterial(33, "LEAD$     ", 207.19, 82., 11.35, .56, 18.5);
  AliMaterial(53, "LEAD$     ", 207.19, 82., 11.35, .56, 18.5);
  //
  //     Air 
  AliMaterial(15, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500.);
  AliMaterial(35, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500.);
  AliMaterial(55, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500.);
  //
  //     Vacuum 
  AliMaterial(16, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
  AliMaterial(36, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
  AliMaterial(56, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
  //
  //     Concrete 
  AliMixture(17, "CONCRETE$", aconc, zconc, 2.35, 10, wconc);
  AliMixture(37, "CONCRETE$", aconc, zconc, 2.35, 10, wconc);
  AliMixture(57, "CONCRETE$", aconc, zconc, 2.35, 10, wconc);
  //
  //     Poly CH2 
  AliMixture(18, "POLYETHYLEN$", apoly, zpoly, .95, -2, wpoly);
  //
  // After a call with ratios by number (negative number of elements), 
  // the ratio array is changed to the ratio by weight, so all successive 
  // calls with the same array must specify the number of elements as 
  // positive 
  //
  AliMixture(38, "POLYETHYLEN$", apoly, zpoly, .95, 2, wpoly);
  AliMixture(58, "POLYETHYLEN$", apoly, zpoly, .95, 2, wpoly);
  //
  //     stainless Steel 
  AliMixture(19, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
  AliMixture(39, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
  AliMixture(59, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
  //
  //     Insulation powder 
  AliMixture(14, "INSULATION$", ains, zins, 0.41, 4, wins);
  AliMixture(34, "INSULATION$", ains, zins, 0.41, 4, wins);
  AliMixture(54, "INSULATION$", ains, zins, 0.41, 4, wins);
  // Polymere Concrete 
  AliMixture(20, "Poly Concrete$", aPolyCc, zPolyCc, 3.53, -9, wPolyCc);
  AliMixture(40, "Poly Concrete$", aPolyCc, zPolyCc, 3.53,  9, wPolyCc);
  AliMixture(60, "Poly Concrete$", aPolyCc, zPolyCc, 3.53,  9, wPolyCc);

  //
  // **************** 
  //     Defines tracking media parameters. 
  //
  epsil  = .001;    // Tracking precision, 
  stemax = -0.01;   // Maximum displacement for multiple scat 
  tmaxfd = -20.;    // Maximum angle due to field deflection 
  deemax = -.3;     // Maximum fractional energy loss, DLS 
  stmin  = -.8;
  // *************** 
  //
  //    Carbon 
  AliMedium(6,  "C_C0             ",  6, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(26, "C_C1             ", 26, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(46, "C_C2             ", 46, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  //    Aluminum 
  AliMedium(9,  "ALU_C0          ",  9, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(29, "ALU_C1          ", 29, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(49, "ALU_C2          ", 49, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  //    Iron 
  AliMedium(10, "FE_C0           ", 10, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(30, "FE_C1           ", 30, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(50, "FE_C2           ", 50, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  //    Copper
  AliMedium(11, "Cu_C0            ", 11, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(31, "Cu_C1            ", 31, 0, isxfld, sxmgmx, tmaxfd, -stemax, deemax, epsil, stmin);
  AliMedium(51, "Cu_C2            ", 51, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  //    Tungsten 
  AliMedium(12, "W_C0            ", 12, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(32, "W_C1            ", 32, 0, isxfld, sxmgmx, tmaxfd, -stemax, deemax, epsil, stmin);
  AliMedium(52, "W_C2            ", 52, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //    Ni/Tungsten 
  AliMedium(21, "Ni/W0           ", 21, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(41, "Ni/W1           ", 41, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(61, "Ni/W3           ", 61, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  //    Lead 
  AliMedium(13, "PB_C0           ", 13, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(33, "PB_C1           ", 33, 0, isxfld, sxmgmx, tmaxfd, -stemax, deemax, epsil, stmin);
  AliMedium(53, "PB_C2           ", 53, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  //    Insulation Powder 
  AliMedium(14, "INS_C0          ", 14, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(34, "INS_C1          ", 34, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(54, "INS_C2          ", 54, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  //    Air 
  AliMedium(15, "AIR_C0          ", 15, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(35, "AIR_C1          ", 35, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(55, "AIR_C2          ", 55, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  //    Vacuum 
  AliMedium(16, "VA_C0           ", 16, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(36, "VA_C1           ", 36, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(56, "VA_C2           ", 56, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  //    Concrete 
  AliMedium(17, "CC_C0           ", 17, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(37, "CC_C1           ", 37, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(57, "CC_C2           ", 57, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  //    Polyethilene 
  AliMedium(18, "CH2_C0          ", 18, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(38, "CH2_C1          ", 38, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(58, "CH2_C2          ", 58, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  //    Steel 
  AliMedium(19, "ST_C0           ", 19, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(39, "ST_C1           ", 39, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(59, "ST_C3           ", 59, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  //
  // Polymer Concrete 
  AliMedium(20, "PCc_C0           ", 20, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(40, "PCc_C1           ", 40, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(60, "PCc_C3           ", 60, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
}

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