]> git.uio.no Git - u/mrichter/AliRoot.git/blob - RICH/Config.C
Macro for RICH diagnostics (JB, AM)
[u/mrichter/AliRoot.git] / RICH / Config.C
1 enum gentype_t {hijing, gun, box, pythia, param, cocktail, fluka, halo, ntuple, scan, doublescan};
2
3 gentype_t gentype=box;
4 ntracks=40;
5
6 void Config()
7 {
8
9 new AliGeant3("C++ Interface to Geant3");
10
11 //=======================================================================
12 //  Create the output file
13    
14 TFile *rootfile = new TFile("galice.root","recreate");
15 rootfile->SetCompressionLevel(2);
16 TGeant3 *geant3 = (TGeant3*)gMC;
17  
18  
19 //=======================================================================
20 // ******* GEANT STEERING parameters FOR ALICE SIMULATION *******
21 geant3->SetTRIG(1); //Number of events to be processed 
22 geant3->SetSWIT(4,100);
23 geant3->SetDEBU(0,0,1);
24 //geant3->SetSWIT(2,2);
25 geant3->SetDCAY(1);
26 geant3->SetPAIR(1);
27 geant3->SetCOMP(1);
28 geant3->SetPHOT(1);
29 geant3->SetPFIS(0);
30 geant3->SetDRAY(1);
31 geant3->SetANNI(1);
32 geant3->SetBREM(1);
33 geant3->SetMUNU(1);
34 geant3->SetCKOV(1);
35 geant3->SetHADR(3); //Select pure GEANH (HADR 1) or GEANH/NUCRIN (HADR 3)
36 geant3->SetLOSS(1);
37 geant3->SetMULS(1);
38 geant3->SetRAYL(0);
39 geant3->SetAUTO(1); //Select automatic STMIN etc... calc. (AUTO 1) or manual (AUTO 0)
40 geant3->SetABAN(0); //Restore 3.16 behaviour for abandoned tracks
41 geant3->SetOPTI(2); //Select optimisation level for GEANT geometry searches (0,1,2)
42 Float_t cut    = 1.e-1; // 100MeV cut by default
43 Float_t tofmax = 1.e10;
44 //             GAM ELEC NHAD CHAD MUON EBREM MUHAB EDEL MUDEL MUPA TOFMAX
45 geant3->SetCUTS(1.e-5,5.e-5, 1.e-3, 1.e-4, cut, cut,  cut,  cut, cut,  cut, tofmax);
46
47 //
48 //=======================================================================
49 // ************* STEERING parameters FOR ALICE SIMULATION **************
50 // --- Specify event type to be tracked through the ALICE setup
51 // --- All positions are in cm, angles in degrees, and P and E in GeV
52
53  switch(gentype)
54  {
55  case gun:
56 //*********************************************
57 // Example for Fixed Particle Gun             *
58 //*********************************************
59      AliGenFixed *gener = new AliGenFixed(ntracks);
60      gener->SetMomentum(3);
61      gener->SetPhiRange(90);
62      gener->SetThetaRange(90);
63      gener->SetOrigin(0,0,0);                 //vertex position
64      gener->SetPart(kPiPlus);                 //GEANT particle type
65      break;
66  case box:  
67 //*********************************************
68 // Example for Moving Particle Gun            *
69 //*********************************************
70      AliGenBox *gener = new AliGenBox(ntracks);
71      gener->SetMomentumRange(3,3);
72      gener->SetPhiRange(65,125);
73      gener->SetThetaRange(65,125);
74      gener->SetOrigin(0,0,0);   
75      gener->SetVertexSmear(perTrack); 
76      //vertex position
77      gener->SetSigma(1.8, 1.8,0);           //Sigma in (X,Y,Z) (cm) on IP position
78      gener->SetPart(kPiPlus);                    //GEANT particle type
79      break;
80  case scan:  
81 //*********************************************
82 // Scanning on a grid                         *
83 //*********************************************
84      AliGenScan *gener = new AliGenScan(-1);
85      gener->SetMomentumRange(20,20);
86      gener->SetPhiRange(90,90);
87      gener->SetThetaRange(0,0);
88      //vertex position
89      gener->SetSigma(3,3,0);           //Sigma in (X,Y,Z) (cm) on IP position
90      gener->SetPart(8); 
91      gener->SetRange(20, -100, 100, 20, -100, 100, 1, 500, 500);
92      break;
93  case doublescan:  
94 //*********************************************
95 // Scanning on a grid                         *
96 //*********************************************
97      AliGenDoubleScan *gener = new AliGenDoubleScan(-1);
98      gener->SetMomentumRange(4,4);
99      gener->SetPhiRange(0,360);
100      gener->SetThetaRange(0,0);
101      //vertex position
102      gener->SetSigma(3,3,0);           //Sigma in (X,Y,Z) (cm) on IP position
103      gener->SetPart(8); 
104      gener->SetRange(20, -100, 100, 20, -100, 100, 1, 500, 500);
105      gener->SetDistance(1);
106      
107      break;
108      
109  case hijing:
110      AliGenHIJINGpara *gener = new AliGenHIJINGpara(ntracks);
111      gener->SetMomentumRange(0,999);
112      gener->SetPhiRange(0,360);
113      gener->SetThetaRange(.77,179.23);
114      gener->SetOrigin(0,0,0);          //vertex position
115      gener->SetSigma(0,0,5.6);         //Sigma in (X,Y,Z) (cm) on IP position
116      break;
117
118  case pythia:
119 //********************************************
120 // Example for Charm  Production with Pythia *
121 //********************************************
122
123      AliGenPythia *gener = new AliGenPythia(ntracks);
124      gener->SetMomentumRange(0,999);
125      gener->SetPhiRange(0,360);
126      gener->SetThetaRange(0., 180.);
127      gener->SetYRange(-10,10);
128      gener->SetPtRange(0,100);
129      gener->SetOrigin(0,0,0);          // vertex position
130      gener->SetVertexSmear(perEvent); 
131      gener->SetSigma(0,0,5.6);         // Sigma in (X,Y,Z) (cm) on IP position
132 //     gener->SetStrucFunc(DO_Set_1);
133      gener->SetProcess(mb); 
134      gener->SetEnergyCMS(5500.);
135      break;
136      
137  case param:
138 //*******************************************************
139 // Example for J/psi  Production from  Parameterisation *
140 //*******************************************************
141      AliGenParam *gener = new AliGenParam(178,Eta,
142                                              AliGenPHOSlib::GetPt(Eta),
143                                              AliGenPHOSlib::GetY(Eta),
144                                              AliGenPHOSlib::GetIp(Eta) );
145
146      gener->SetMomentumRange(0,999);
147      gener->SetPhiRange(0,360);
148      gener->SetYRange(2.5,4);
149      gener->SetThetaRange(2,9);
150      gener->SetPtRange(0,10);
151      gener->SetOrigin(0,0,0);      //vertex position
152      gener->SetSigma(0,0,0);       //Sigma in (X,Y,Z) (cm) on IP position
153      gener->SetCutOnChild(1);
154      break;
155      
156  case fluka:
157 //*******************************************************
158 // Example for a FLUKA Boundary Source                  *
159 //*******************************************************
160      AliGenFLUKAsource *gener = new AliGenFLUKAsource(-1);
161      gener->AddFile("$(ALICE_ROOT)/data/all32.root"); 
162      rootfile->cd();
163      gener->SetPartFlag(9);
164      gener->SetMomentumRange(0,999);
165      gener->SetPhiRange(0,360);
166      gener->SetThetaRange(0., 180.); 
167      gener->SetAgeMax(1.e-5);
168      
169 //  31.7 events     
170      gener->SetFraction(0.0315);     
171      break;
172
173  case ntuple:
174 //*******************************************************
175 // Example for reading from a external file                  *
176 //*******************************************************
177      AliGenExtFile *gener = new AliGenExtFile(-1); 
178      gener->SetFileName("$(ALICE_ROOT)/data/dtujet93.root");
179      gener->SetVertexSmear(perEvent); 
180      gener->SetTrackingFlag(1);
181      break;
182
183  case halo:
184 //*******************************************************
185 // Example for Tunnel Halo Source                       *
186 //*******************************************************
187      AliGenHalo *gener = new AliGenHalo(ntracks); 
188      gener->SetFileName("/h1/morsch/marsip/marsip5.mu");
189      break;
190      
191  case cocktail:
192 //*******************************************************
193 // Example for a Cocktail                               *
194 //*******************************************************
195      AliGenCocktail *gener = new AliGenCocktail();
196      gener->SetMomentumRange(0,10);
197      gener->SetPhiRange(0,360);
198      gener->SetThetaRange(45.,135);
199     
200      pions   = new AliGenParam(100, pion_p);
201 //     kaons   = new AliGenParam(10 , kaon_p);
202 //     protons = new AliGenParam(10 , proton_p);
203      gener->AddGenerator(pions  , "Pions"  , 100);
204 //     gener->AddGenerator(kaons  , "Kaons"  , 10);
205 //     gener->AddGenerator(protons, "Protons", 10);
206 //
207 //   test 
208 //
209      
210      Float_t   p2(Float_t);
211      Float_t  (*f1)(Float_t);
212      Double_t (*f2)(Double_t);
213
214      
215      
216      
217      Float_t p2(Float_t x) 
218          {
219              return x*x;
220          }
221      f1=p2;
222      Float_t x = TMath::Sqrt(2);
223      
224      f1=TMath::Sqrt;
225      
226      printf("\n Result %f %f \n", (*f1)(2.), TMath::Sqrt(2));
227      
228          
229      break;
230  }
231  
232 // Activate this line if you want the vertex smearing to happen
233 // track by track
234 //
235 gener->SetVertexSmear(perTrack); 
236 gener->Init();
237 gAlice->SetField(0,2);    //Specify maximum magnetic field in Tesla (neg. ==> default field)
238
239 Int_t iMAG=0;
240 Int_t iITS=0;
241 Int_t iTPC=0;
242 Int_t iTOF=0;
243 Int_t iRICH=1;
244 Int_t iZDC=0;
245 Int_t iCASTOR=0;
246 Int_t iTRD=0;
247 Int_t iABSO=0;
248 Int_t iDIPO=0;
249 Int_t iHALL=0;
250 Int_t iFRAME=0;
251 Int_t iSHIL=0;
252 Int_t iPIPE=0;
253 Int_t iFMD=0;
254 Int_t iMUON=0;
255 Int_t iPHOS=0;
256 Int_t iPMD=0;
257
258 //=================== Alice BODY parameters =============================
259 AliBODY *BODY = new AliBODY("BODY","Alice envelop");
260
261
262 if(iMAG) {
263 //=================== MAG parameters ============================
264 // --- Start with Magnet since detector layouts may be depending ---
265 // --- on the selected Magnet dimensions ---
266 AliMAG *MAG  = new AliMAG("MAG","Magnet");
267 }
268
269 if(iFRAME) {
270 //=================== FRAME parameters ============================
271 AliFRAME *FRAME  = new AliFRAMEv1("FRAME","Space Frame");
272 }
273
274 if(iITS) {
275 //=================== ITS parameters ============================
276 //
277 // EUCLID is a flag to output (=1) both geometry and media to two ASCII files 
278 // (called by default ITSgeometry.euc and ITSgeometry.tme) in a format
279 // understandable to the CAD system EUCLID. The default (=0) means that you 
280 // dont want to use this facility.
281 //
282 AliITS *ITS  = new AliITSvn("ITS","normal ITS");
283 ITS->SetEUCLID(1);
284 }
285
286 if(iTPC) {
287 //============================ TPC parameters ================================
288 // --- This allows the user to specify sectors for the SLOW (TPC geometry 2)
289 // --- Simulator. SecAL (SecAU) <0 means that ALL lower (upper)
290 // --- sectors are specified, any value other than that requires at least one 
291 // --- sector (lower or upper)to be specified!
292 // --- Reminder: sectors 1-24 are lower sectors (1-12 -> z>0, 13-24 -> z<0)
293 // ---           sectors 25-72 are the upper ones (25-48 -> z>0, 49-72 -> z<0)
294 // --- SecLows - number of lower sectors specified (up to 6)
295 // --- SecUps - number of upper sectors specified (up to 12)
296 // --- Sens - sensitive strips for the Slow Simulator !!!
297 // --- This does NOT work if all S or L-sectors are specified, i.e.
298 // --- if SecAL or SecAU < 0
299 //
300 //
301 //-----------------------------------------------------------------------------
302
303 AliTPC *TPC  = new AliTPCvn("TPC","Normal TPC");
304 AliTPCD *paramd = TPC->GetDigParam();
305 AliTPCParam *param = &(paramd->GetParam());
306
307 // Set geometrical parameters
308
309 param->SetSectorAngles(20.,0.,20.,0.);
310 param->SetInnerRadiusLow(83.9);
311 param->SetInnerRadiusUp(141.3);
312 param->SetOuterRadiusLow(146.9);
313 param->SetOuterRadiusUp(249.4);
314 param->SetInSecLowEdge(81.6);
315 param->SetInSecUpEdge(143.6);
316 param->SetOuSecLowEdge(144.2);
317 param->SetOuSecUpEdge(252.1);
318 param->SetEdge(1.5);
319 param->SetDeadZone(1.15);
320 param->SetPadLength(2.0);
321 param->SetPadWidth(0.3);
322 param->SetPadPitchLength(2.05);
323 param->SetPadPitchWidth(0.35);
324 param->Update();
325
326 if (TPC->IsVersion() != 2) paramd->Write("Param1");
327
328 // set gas mixture
329
330 TPC->SetGasMixt(2,20,10,-1,0.9,0.1,0.);
331 TPC->SetSecAL(1);
332 TPC->SetSecAU(1);
333 // Meaningless with versions other than 2
334 TPC->SetSecLows(1, 2, 3, 1+18, 2+18, 3+18);
335 TPC->SetSecUps(1+36, 2+36, 3+36, 1+38+18, 2+38+18, 3+38+18, -1,-1,-1,-1,-1,-1);
336 TPC->SetSens(1);
337 }
338
339 if(iTOF) {
340 //=================== TOF parameters ============================
341 AliTOF *TOF  = new AliTOFvn("TOF","normal TOF");
342 }
343
344 if(iRICH) {
345 //=================== RICH parameters ===========================
346     AliRICH *RICH  = new AliRICHv0("RICH","normal RICH");
347     
348 //
349 // Version 0
350 // Default Segmentation
351     AliRICHSegmentationV0* SegmentationV0 = new AliRICHSegmentationV0;
352     SegmentationV0->SetPadSize(0.84,0.80);
353     SegmentationV0->SetDAnod(0.84/2);
354
355     AliRICHGeometry* GeometryV0 = new AliRICHGeometryV0;
356     GeometryV0->SetGapThickness(7.6);
357     GeometryV0->SetProximityGapThickness(.4);
358     GeometryV0->SetQuartzLength(131);
359     GeometryV0->SetQuartzWidth(126.2);
360     GeometryV0->SetQuartzThickness(.5);
361     GeometryV0->SetOuterFreonLength(131);
362     GeometryV0->SetOuterFreonWidth(40.3);
363     GeometryV0->SetInnerFreonLength(131);
364     GeometryV0->SetInnerFreonWidth(40.3);
365     GeometryV0->SetFreonThickness(1);
366     
367 // Default Response (new electronics,old electronics Slope=.41, Max=1024, Alpha=0.05 )
368     AliRICHResponseV0*  Rresponse0   = new AliRICHResponseV0;
369     Rresponse0->SetSigmaIntegration(5.);
370     Rresponse0->SetChargeSlope(41.);
371     Rresponse0->SetChargeSpread(0.18, 0.18);
372     Rresponse0->SetMaxAdc(1024);
373 //    Rresponse0->SetAlphaFeedback(0.05);
374     Rresponse0->SetAlphaFeedback(0.05);
375     Rresponse0->SetEIonisation(26.e-9);
376     Rresponse0->SetSqrtKx3(0.77459667);
377     Rresponse0->SetKx2(0.962);
378     Rresponse0->SetKx4(0.379);
379     Rresponse0->SetSqrtKy3(0.77459667);
380     Rresponse0->SetKy2(0.962);
381     Rresponse0->SetKy4(0.379);
382     Rresponse0->SetPitch(0.25);
383     
384    
385   for (Int_t i=0; i<7; i++) {
386     RICH->SetGeometryModel(i,GeometryV0);
387     RICH->SetSegmentationModel(i, SegmentationV0);
388     RICH->SetResponseModel(i, Rresponse0);
389     RICH->SetNsec(i,1);
390   }
391 }
392
393 if(iZDC) {
394 //=================== ZDC parameters ============================
395
396 AliZDC *ZDC  = new AliZDCv1("ZDC","normal ZDC");
397 }
398
399 if(iCASTOR) {
400 //=================== CASTOR parameters ============================
401
402 AliCASTOR *CASTOR  = new AliCASTORv1("CASTOR","normal CASTOR");
403 }
404
405 if(iTRD) {
406 //=================== TRD parameters ============================
407
408 AliTRD *TRD  = new AliTRDvn("TRD","TRD version 2");
409 }
410
411
412 if(iABSO) {
413 //=================== ABSO parameters ============================
414 AliABSO *ABSO  = new AliABSO("ABSO","Muon Absorber");
415 }
416
417 if(iDIPO) {
418 //=================== DIPO parameters ============================
419
420 AliDIPO *DIPO  = new AliDIPOv2("DIPO","Dipole version 2");
421 }
422
423 if(iHALL) {
424 //=================== HALL parameters ============================
425
426 AliHALL *HALL  = new AliHALL("HALL","Alice Hall");
427 }
428
429
430 if(iSHIL) {
431 //=================== SHIL parameters ============================
432
433 AliSHILv1 *SHIL  = new AliSHILv1("SHIL","Shielding");
434 }
435
436
437 if(iPIPE) {
438 //=================== PIPE parameters ============================
439
440 AliPIPE *PIPE  = new AliPIPEv0("PIPE","Beam Pipe");
441 }
442
443
444 if(iFMD) {
445 //=================== FMD parameters ============================
446
447 AliFMD *FMD  = new AliFMDv1("FMD","normal FMD");
448 }
449
450 if(iMUON) {
451 //=================== MUON parameters ===========================
452
453 AliMUON *MUON  = new AliMUONv0("MUON","normal MUON");
454
455   MUON->SetMaxStepGas(0.1);
456   MUON->SetMaxStepAlu(0.1);
457 //
458 // Version 0
459 //
460 // First define the number of planes that are segmented (1 or 2) by a call
461 // to SetNsec. 
462 // Then chose for each chamber (chamber plane) the segmentation 
463 // and response model.
464 // They should be equal for the two chambers of each station. In a future
465 // version this will be enforced.
466 //
467 //  
468  Int_t chamber;
469  Int_t station;
470 // Default response
471  AliMUONresponseV0* response0 = new AliMUONresponseV0;
472  response0->SetSqrtKx3(0.7131);
473  response0->SetKx2(1.0107);
474  response0->SetKx4(0.4036);
475  response0->SetSqrtKy3(0.7642);
476  response0->SetKy2(0.9706);
477  response0->SetKy4(0.3831);
478  response0->SetPitch(0.25);
479  response0->SetSigmaIntegration(10.);
480  response0->SetChargeSlope(50);
481  response0->SetChargeSpread(0.18, 0.18);
482  response0->SetMaxAdc(4096);
483 //--------------------------------------------------------
484 // Configuration for Chamber TC1/2  (Station 1) ----------           
485 //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
486 // Float_t rseg1[4]={17.5, 55.2, 71.3, 95.5};
487  Float_t rseg1[4]={15.5, 55.2, 71.3, 95.5};
488  Int_t   nseg1[4]={4, 4, 2, 1};
489 //
490  chamber=1;
491 //^^^^^^^^^
492  MUON->SetNsec(chamber-1,2);
493 //
494  AliMUONsegmentationV01 *seg11=new AliMUONsegmentationV01;
495  
496  seg11->SetSegRadii(rseg1);
497  seg11->SetPADSIZ(3, 0.5);
498  seg11->SetDAnod(3.0/3./4);
499  seg11->SetPadDivision(nseg1);
500  
501  MUON->SetSegmentationModel(chamber-1, 1, seg11);
502 //
503  AliMUONsegmentationV02 *seg12=new AliMUONsegmentationV02;
504  seg12->SetSegRadii(rseg1); 
505  seg12->SetPADSIZ(0.75, 2.0);
506  seg12->SetDAnod(3.0/3./4);
507  seg12->SetPadDivision(nseg1);
508
509  MUON->SetSegmentationModel(chamber-1, 2, seg12);
510
511  MUON->SetResponseModel(chamber-1, response0);      
512
513  chamber=2;
514 //^^^^^^^^^
515 //
516  MUON->SetNsec(chamber-1,2);
517 //
518  AliMUONsegmentationV01 *seg21=new AliMUONsegmentationV01;
519  seg21->SetSegRadii(rseg1);
520  seg21->SetPADSIZ(3, 0.5);
521  seg21->SetDAnod(3.0/3./4);
522  seg21->SetPadDivision(nseg1);
523  MUON->SetSegmentationModel(chamber-1, 1, seg21);
524 //
525  AliMUONsegmentationV02 *seg22=new AliMUONsegmentationV02;
526  seg22->SetSegRadii(rseg1); 
527  seg22->SetPADSIZ(0.75, 2.);
528  seg22->SetDAnod(3.0/3./4);
529  seg22->SetPadDivision(nseg1);
530  MUON->SetSegmentationModel(chamber-1, 2, seg22);
531
532  MUON->SetResponseModel(chamber-1, response0);      
533 //
534 //--------------------------------------------------------
535 // Configuration for Chamber TC3/4 -----------------------
536 //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
537 // Float_t rseg2[4]={23.5, 47.1, 87.7, 122.5};
538  Float_t rseg2[4]={21.5, 47.1, 87.7, 122.5};
539  Int_t   nseg2[4]={4, 4, 2, 1};
540 //
541  chamber=3;
542 //^^^^^^^^^
543  MUON->SetNsec(chamber-1,2);
544 //
545  AliMUONsegmentationV01 *seg31=new AliMUONsegmentationV01;
546  seg31->SetSegRadii(rseg2);
547  seg31->SetPADSIZ(3, 0.5);
548  seg31->SetDAnod(3.0/3./4);
549  seg31->SetPadDivision(nseg2);
550  MUON->SetSegmentationModel(chamber-1, 1, seg31);
551 //
552  AliMUONsegmentationV02 *seg32=new AliMUONsegmentationV02;
553  seg32->SetSegRadii(rseg2); 
554  seg32->SetPADSIZ(0.75, 2.);
555  seg32->SetPadDivision(nseg2);
556  seg32->SetDAnod(3.0/3./4);
557
558  MUON->SetSegmentationModel(chamber-1, 2, seg32);
559
560  MUON->SetResponseModel(chamber-1, response0);      
561
562  chamber=4;
563 //^^^^^^^^^
564 //
565  MUON->SetNsec(chamber-1,2);
566 //
567  AliMUONsegmentationV01 *seg41=new AliMUONsegmentationV01;
568  seg41->SetSegRadii(rseg2);
569  seg41->SetPADSIZ(3, 0.5);
570  seg41->SetDAnod(3.0/3./4);
571  seg41->SetPadDivision(nseg2);
572  MUON->SetSegmentationModel(chamber-1, 1, seg41);
573 //
574  AliMUONsegmentationV02 *seg42=new AliMUONsegmentationV02;
575  seg42->SetSegRadii(rseg2); 
576  seg42->SetPADSIZ(0.75, 2.);
577  seg42->SetPadDivision(nseg2);
578  seg42->SetDAnod(3.0/3./4);
579
580  MUON->SetSegmentationModel(chamber-1, 2, seg42);
581
582  MUON->SetResponseModel(chamber-1, response0);      
583
584
585 //--------------------------------------------------------
586 // Configuration for Chamber TC5/6 -----------------------
587 //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
588 /*
589  seg5 =  new AliMUONsegmentationV1;
590  AliMUONresponseV0* response5 =  new AliMUONresponseV0;
591  // K3 = 0.62
592  response5->SetSqrtKx3(0.78740079);
593  response5->SetKx2(0.95237319); //  0.5 * kPI * (1- 0.5*sqrtky3 )
594  response5->SetKx4(0.37480633); // 0.25/TMath::ATan(sqrtkx3)
595  // K3 = 0.55
596  response5->SetSqrtKy3(0.74161985);
597  response5->SetKy2(0.98832946);
598  response5->SetKy4(0.39177817);
599  response5->SetPitch(0.325);
600  response5->SetSigmaIntegration(10.);
601  response5->SetChargeSlope(50);
602  response5->SetChargeSpread(0.4, 0.4);
603  response5->SetMaxAdc(4096);
604
605  chamber=5;
606  MUON->SetNsec(chamber-1,1);
607  MUON->SetSegmentationModel(chamber-1, 1, seg5);
608  MUON->SetResponseModel(chamber-1, response5);      
609
610  chamber=6;
611  MUON->SetNsec(chamber-1,1);
612  MUON->SetSegmentationModel(chamber-1, 1, seg5);
613  MUON->SetResponseModel(chamber-1, response5);      
614 //
615 // Station 3
616  station=3;
617  MUON->SetPADSIZ(station, 1, 0.975, 0.55);
618 */
619
620  chamber=5;
621 //^^^^^^^^^
622  MUON->SetNsec(chamber-1,2);
623 //
624  AliMUONsegmentationV0 *seg51=new AliMUONsegmentationV0;
625  seg51->SetPADSIZ(0.75, 0.5);
626  seg51->SetDAnod(3.0/3./4);
627  MUON->SetSegmentationModel(chamber-1, 1, seg51);
628 //
629  AliMUONsegmentationV0 *seg52=new AliMUONsegmentationV0;
630  seg52->SetPADSIZ(0.5,0.75);
631  seg52->SetDAnod(3.0/3./4);
632  MUON->SetSegmentationModel(chamber-1, 2, seg52);
633
634  MUON->SetResponseModel(chamber-1, response0);      
635
636  chamber=6;
637 //^^^^^^^^^
638  MUON->SetNsec(chamber-1,2);
639 //
640  AliMUONsegmentationV0 *seg61=new AliMUONsegmentationV0;
641  seg61->SetPADSIZ(0.75, 0.5);
642  seg61->SetDAnod(3.0/3./4);
643  MUON->SetSegmentationModel(chamber-1, 1, seg61);
644 //
645  AliMUONsegmentationV0 *seg62=new AliMUONsegmentationV0;
646  seg62->SetPADSIZ(0.5,0.75);
647  seg62->SetDAnod(3.0/3./4);
648  MUON->SetSegmentationModel(chamber-1, 2, seg62);
649
650  MUON->SetResponseModel(chamber-1, response0);    
651
652 //--------------------------------------------------------
653 // Configuration for Chamber TC7/8  (Station 4) ----------           
654 //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
655
656  Int_t   nseg4[4]={4, 4, 2, 1};
657
658  chamber=7;
659 //^^^^^^^^^
660  MUON->SetNsec(chamber-1,2);
661 //
662  AliMUONsegmentationV04 *seg71=new AliMUONsegmentationV04;
663  seg71->SetPADSIZ(10.,0.5);
664  seg71->SetDAnod(0.25);
665  seg71->SetPadDivision(nseg4);
666  MUON->SetSegmentationModel(chamber-1, 1, seg71);
667
668  AliMUONsegmentationV05 *seg72=new AliMUONsegmentationV05;
669  seg72->SetPADSIZ(1,10);
670  seg72->SetDAnod(0.25);
671  seg72->SetPadDivision(nseg4);
672  MUON->SetSegmentationModel(chamber-1, 2, seg72);
673
674  MUON->SetResponseModel(chamber-1, response0);      
675
676  chamber=8;
677 //^^^^^^^^^
678  MUON->SetNsec(chamber-1,2);
679  AliMUONsegmentationV04 *seg81=new AliMUONsegmentationV04;
680  seg81->SetPADSIZ(10., 0.5);
681  seg81->SetPadDivision(nseg4);
682  seg81->SetDAnod(0.25);
683  MUON->SetSegmentationModel(chamber-1, 1, seg81);
684
685  AliMUONsegmentationV05 *seg82=new AliMUONsegmentationV05;
686  seg82->SetPADSIZ(1, 10);
687  seg82->SetPadDivision(nseg4);
688  seg82->SetDAnod(0.25);
689  MUON->SetSegmentationModel(chamber-1, 2, seg82);
690
691  MUON->SetResponseModel(chamber-1, response0);      
692 //--------------------------------------------------------
693 // Configuration for Chamber TC9/10  (Station 5) ---------           
694 //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
695  chamber=9;
696 //^^^^^^^^^
697  MUON->SetNsec(chamber-1,2);
698 //
699  AliMUONsegmentationV04 *seg91=new AliMUONsegmentationV04;
700  seg91->SetPADSIZ(10.,0.5);
701  seg91->SetDAnod(0.25);
702  seg91->SetPadDivision(nseg4);
703  MUON->SetSegmentationModel(chamber-1, 1, seg91);
704
705  AliMUONsegmentationV05 *seg92=new AliMUONsegmentationV05;
706  seg92->SetPADSIZ(1,10);
707  seg92->SetDAnod(0.25);
708  seg92->SetPadDivision(nseg4);
709
710  MUON->SetSegmentationModel(chamber-1, 2, seg92);
711
712  MUON->SetResponseModel(chamber-1, response0);      
713
714  chamber=10;
715 //^^^^^^^^^
716  MUON->SetNsec(chamber-1,2);
717  AliMUONsegmentationV04 *seg101=new AliMUONsegmentationV04;
718  seg101->SetPADSIZ(10., 0.5);
719  seg101->SetPadDivision(nseg4);
720  seg101->SetDAnod(0.25);
721  MUON->SetSegmentationModel(chamber-1, 1, seg101);
722
723  AliMUONsegmentationV05 *seg102=new AliMUONsegmentationV05;
724  seg102->SetPADSIZ(1,10);
725  seg102->SetPadDivision(nseg4);
726  seg102->SetDAnod(0.25);
727  MUON->SetSegmentationModel(chamber-1, 2, seg102);
728
729  MUON->SetResponseModel(chamber-1, response0);      
730 //--------------------------------------------------------
731 // Configuration for Trigger staions --------------------- 
732 // (not yet used/implemented) ----------------------------          
733 //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
734
735  chamber=11;
736  MUON->SetNsec(chamber-1,1);
737  AliMUONsegmentationV0 *seg1112=new AliMUONsegmentationV0;
738  seg1112->SetDAnod(0.51/3.);
739
740  MUON->SetSegmentationModel(chamber-1, 1, seg1112);
741  MUON->SetResponseModel(chamber-1, response0);      
742
743  chamber=12;
744  MUON->SetNsec(chamber-1,1);
745  MUON->SetSegmentationModel(chamber-1, 1, seg1112);
746  MUON->SetResponseModel(chamber-1, response0);      
747 //
748 // Trigger Station 1
749  station=6;
750  MUON->SetPADSIZ(station, 1, 0.75, 0.5);
751
752  chamber=13;
753  MUON->SetNsec(chamber-1,1);
754  AliMUONsegmentationV0 *seg1314=new AliMUONsegmentationV0;
755  seg1314->SetDAnod(0.51/3.);
756
757  MUON->SetSegmentationModel(chamber-1, 1, seg1314);
758  MUON->SetResponseModel(chamber-1, response0);      
759
760  chamber=14;
761  MUON->SetNsec(chamber-1,1);
762  MUON->SetSegmentationModel(chamber-1, 1, seg1314);
763  MUON->SetResponseModel(chamber-1, response0);      
764 //
765 // Trigger Station 2
766  station=7;
767  MUON->SetPADSIZ(station, 1, 0.75, 0.5);
768 }
769  
770
771 if(iPHOS) {
772 //=================== PHOS parameters ===========================
773
774 AliPHOS *PHOS  = new AliPHOSv1("PHOS","normal PHOS");
775 // * PHOSflags:    YES: X<>0   NO: X=0
776 // * PHOSflags(1) : -----X  Create branch for TObjArray of AliPHOSCradle
777 // *                ----X-  Create file (ftn03 on HP-UX) with list of SHAKER particles (7Mb/event)
778 // *                
779 PHOS->SetFlags(000001);
780 PHOS->SetRadius(460); //Distance from beam to PHOS crystals.
781 // (crystal_side_size,crystal_length,wrap_thikness,air_thikness,PIN_size,PIN length)
782 PHOS->SetCell(2.2,          18.,         0.01,        0.01,        1.,      0.1);
783 PHOS->SetCradleSize(104, 88, 4); // Nz (along beam), Nphi, Ncradles
784 PHOS->SetCradleA(0);   //Angle between Cradles
785 PHOS->SetCPV(1., 2.); //CPV thikness, CPV-PHOS distance
786 // *  ===============
787 // * PHOS extra parameters (contact Maxim Volkov volkov@mail.cern.ch)
788 // * 1. STE_THICK         Steel cover thickness
789 // * 2. SUP_Y             Crystal support height
790 // * 3. FTIU_THICK        Thermo Insulating outer cover Upper plate thickness
791 // * 4. UFP_Y             Upper Polystyrene Foam plate thickness
792 // * 5. TCB_THICK         Thermo insulating Crystal Block wall thickness
793 // * 6. UCP_Y             Upper Cooling Plate thickness
794 // * 7. ASP_Y             Al Support Plate thickness
795 // * 8. TIP_Y             Lower Thermo Insulating Plate thickness
796 // * 9. TXP_Y             Lower Textolit Plate thickness
797 PHOS->SetExtra(0.001, 6.95, 4., 5., 2., 0.06, 10., 3., 1.);   
798 PHOS->SetTextolitWall(209., 71., 250.);    //Textolit Wall box dimentions
799 PHOS->SetInnerAir(206.,    66.,     244.); //Inner AIR volume dimensions
800 // *  ===============================
801 // * 1. FTI_X             Foam Thermo Insulating outer cover dimensions
802 // * 2. FTI_Y             ==//==
803 // * 3. FTI_Z             ==//==
804 // * 4. FTI_R             Distance from IP to Foam Thermo Insulating top plate
805 PHOS->SetFoam(214.6,  80.,  260., 467.); 
806 //    =================================
807 // *******************************************************************************
808 // * KINE 700  - SHAKER generator
809 // * KINE 700 x y z NDNDY YLIM PTLIM ChargeFlag
810 // *     JWEAK=0
811 // *     JPI0=JETA=1
812 // *     JPIC=JPRO=JKAC=JKA0=JRHO=JOME=JPHI=JPSI=JDRY=ChargeFlag
813 // *     Int_t               JWEI;           // Unweighted generation
814 // *     Int_t               NDNDY;          // Density of charged particles
815 // *     Float_t             YLIM;           // Rapidity Limit
816 // *     Float_t             PTLIM;          // Pt limit in GeV/c
817 // *     Int_t               JWEAK;          // Disable weak decays
818 // *     Int_t               JPI0;           // pi0 generation
819 // *     Int_t               JETA;           // eta generation
820 // *     Int_t               JPIC;           // pi+/- generation
821 // *     Int_t               JPRO;           // proton generation
822 // *     Int_t               JKAC;           // K+/- generation
823 // *     Int_t               JKA0;           // K0 generation
824 // *     Int_t               JRHO;           // rho generation
825 // *     Int_t               JOME;           // omega generation
826 // *     Int_t               JPHI;           // phi generation
827 // *     Int_t               JPSI;           // J/psi generation
828 // *     Int_t               JDRY;           // Drell-Yan generation
829 // * KINE  700     5.    175.    0.          800. 1.5 5. 1.
830 // *******************************************************************************
831 }
832
833 if(iPMD) {
834 //=================== PMD parameters ============================
835
836 //         Must be defined AFTER PHOS
837 AliPMD *PMD  = new AliPMDv1("PMD","normal PMD");
838 PMD->SetPAR(1., 1., 0.8, 0.02);
839 PMD->SetIN(6., 20., 600., 27., 27.);
840 PMD->SetGEO(0.0, 0.2, 4.);
841 PMD->SetPadSize(0.8, 1.0, 1.2, 1.5);
842 }
843  
844 }
845                 
846
847
848