Commiting before moving code from `AliFMDSimulator' to `AliFMD' (and
[u/mrichter/AliRoot.git] / FMD / AliFMDAlla.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 // Forward Multiplicity detector based on Silicon version 0        //
21 //
22 //Begin Html       
23 /*
24   <img src="gif/AliFMDv0Class.gif">
25 */
26 //End Html
27 //                                                                  //
28 //                                                                  //
29 //////////////////////////////////////////////////////////////////////
30
31 #include <Riostream.h>
32 #include <stdlib.h>
33
34 #include <TClonesArray.h>
35 #include <TDirectory.h>
36 #include <TFile.h>
37 #include <TGeometry.h>
38 #include <TLorentzVector.h>
39 #include <TMath.h>
40 #include <TNode.h>
41 #include <TTUBE.h>
42 #include <TTree.h>
43 #include <TVirtualMC.h>
44 #include <TDatabasePDG.h>
45 #include <AliFMDHit.h>
46 #include "AliFMDv0.h"
47 #include "AliFMDAlla.h"
48 #include "AliMagF.h"
49 #include "AliRun.h"
50 #include "AliMC.h"
51
52 ClassImp(AliFMDAlla)
53
54   //--------------------------------------------------------------------
55   AliFMDAlla::AliFMDAlla(const char *name, const char *title)
56     : AliFMD(name,title)
57 {
58   //
59   // Standart constructor for Forward Multiplicity Detector version 0
60   //
61   fIdSens1=0;
62   fIdSens2=0;
63   fIdSens3=0;
64   fIdSens4=0;
65   fIdSens5=0;
66   //  setBufferSize(128000);
67 }
68 //-------------------------------------------------------------------------
69 void AliFMDAlla::CreateGeometry()
70 {
71   //
72   // Create the geometry of Forward Multiplicity Detector version 0
73   //
74   //Detector consists of 6 volumes: 
75   // 1st covered pseudorapidity interval from 3.3 to 2.0
76   // and placed on 65cm in Z-direction;
77   // 2nd - from 2.0 to 1.6 and Z=85 cm;
78   // 3d  - the same pseudorapidity interval as the 1st 
79   // but on the other side from the interaction point z=-65cm;
80   // 4th - simmetricaly with the 2nd : 
81   // pseudorapidity from 2.0 to 1.6, Z=-85cm   
82   // 5th - from 3.6 to 4.7, Z=-270cm
83   // 6th - from 4.5 to 5.5 , Z=-630cm.
84   // Each part has 400mkm Si (sensetive area, detector itself),
85   // 0.75cm of plastic simulated electronics material,
86   // Al support ring 2cm thickness and 1cm width placed on 
87   // the outer radius of each Si disk;
88   //    
89   // begin Html
90   /*
91     <img src="gif/AliFMDv0.gif">
92   */
93   //
94
95
96
97   Int_t *idtmed = fIdtmed->GetArray();
98    
99   Int_t ifmd;
100   Int_t idrotm[999];
101   Float_t zFMD;
102   Float_t par[3];
103   Float_t ppcon[15];
104   Float_t z[5]             = {-62.8, -75.2, 83.4, 75.2, 340.};
105   Float_t NylonTube[3]     = {0.2,0.6,0.45};
106   Float_t zPCB             = 0.12; 
107   Float_t zHoneyComb       = 0.5; 
108   Float_t zSi              = 0.03;
109   Float_t rin[5]           = {4.2,15.4,4.2,15.4,4.2};
110   Float_t rout[5]          = {17.4,28.4,17.4,28.4,17.4};
111   Float_t RinHoneyComb[5]  = { 5.15,16.4,  5.15,16.4,  5.15};
112   Float_t RoutHoneyComb[5] = {20.63,34.92,22.3, 32.02,20.63};
113   Float_t zInside;
114   Float_t zCooper          = 0.01; 
115   Float_t zChips           = 0.01;
116   Float_t yNylonTube[5]    = {10,20,10,20,10};
117  
118   char    nameFMD[5];
119   char    nameSi[5];
120   char    nameSector[5];
121   char    nameRing[5];
122   Char_t  nameHoney[5];
123   char    nameHoneyIn[5];
124   char    nameHoneyOut[5];
125   Char_t  namePCB[5];
126   char    nameCopper[5];
127   char    nameChips[5];
128   char    nameG10[5];
129   Char_t  nameLPCB[5];
130   char    nameLCopper[5];
131   char    nameLChips[5];
132   char    nameGL10[5];
133
134   AliMatrix(idrotm[901], 90, 0, 90, 90, 180, 0);
135   
136   
137   // Nylon tubes
138   gMC->Gsvolu("GNYL","TUBE", idtmed[1], NylonTube, 3);  //support nylon tube
139   Float_t wideSupport=zSi+3*zPCB+2*NylonTube[2]+zHoneyComb;
140   cout<<" wideSupport "<<wideSupport<<endl;
141
142   for (ifmd=0; ifmd<5; ifmd++)  {
143     sprintf(nameFMD,"FMD%d",ifmd+1);
144     ppcon[0]=0;
145     ppcon[1]=360;
146     ppcon[2]=4;
147       
148     ppcon[3]=-wideSupport;
149     ppcon[4]=rin[ifmd]-0.1;
150     ppcon[5]=rout[ifmd]+0.1;
151       
152     ppcon[6]=ppcon[3]+2*zSi+2*zPCB+2*NylonTube[2];
153     ppcon[7]=rin[ifmd]-0.1;
154     ppcon[8]=rout[ifmd]+0.1;
155       
156     ppcon[9]=ppcon[6];
157     ppcon[10]=RinHoneyComb[ifmd]-0.1;
158     ppcon[11]=RoutHoneyComb[ifmd]+0.1;
159
160     ppcon[12]=ppcon[9]+2*zHoneyComb+zPCB;
161     ppcon[13]=RinHoneyComb[ifmd]-0.1;
162     ppcon[14]=RoutHoneyComb[ifmd]+0.1;
163     gMC->Gsvolu(nameFMD,"PCON",idtmed[0],ppcon,15);
164     if (z[ifmd] >0){  
165       zFMD=z[ifmd]+wideSupport;
166       gMC->Gspos(nameFMD,1,"ALIC",0,0,zFMD,0, "ONLY");}
167     else {
168       zFMD=z[ifmd]-wideSupport;
169       gMC->Gspos(nameFMD,1,"ALIC",0,0,zFMD,idrotm[901], "ONLY");}
170
171     //silicon
172     sprintf(nameSi,"GSI%d",ifmd+1);
173     sprintf(nameSector,"GSC%d",ifmd+1);
174     sprintf(nameRing,"GRN%d",ifmd+1);
175       
176     //honeycomb support
177     sprintf(nameHoney,"GSU%d",ifmd+1);
178     gMC->Gsvolu(nameHoney,"TUBE", idtmed[0], par, 0);  //honeycomb 
179     sprintf(nameHoneyIn,"GHI%d",ifmd+1);
180     gMC->Gsvolu(nameHoneyIn,"TUBE", idtmed[7], par, 0);  //honey comb inside 
181     sprintf(nameHoneyOut,"GHO%d",ifmd+1);
182     gMC->Gsvolu(nameHoneyOut,"TUBE", idtmed[6], par, 0);  //honey comb skin
183
184     //PCB
185     sprintf(namePCB,"GPC%d",ifmd+1);
186     gMC->Gsvolu(namePCB,"TUBE", idtmed[0], par, 0); //PCB
187     sprintf(nameCopper,"GCO%d",ifmd+1);
188     gMC->Gsvolu(nameCopper,"TUBE", idtmed[3], par, 0);  // Cooper
189     sprintf(nameChips,"GCH%d",ifmd+1);
190     gMC->Gsvolu(nameChips,"TUBE", idtmed[5], par, 0); // Si chips
191     sprintf(nameG10,"G10%d",ifmd+1);
192     gMC->Gsvolu(nameG10,"TUBE", idtmed[2], par, 0);  //G10 plate
193
194     //last PCB
195     sprintf(nameLPCB,"GPL%d",ifmd+1);
196     gMC->Gsvolu(nameLPCB,"TUBE", idtmed[0], par, 0); //PCB
197     sprintf(nameLCopper,"GCL%d",ifmd+1);
198     gMC->Gsvolu(nameLCopper,"TUBE", idtmed[3], par, 0);  // Cooper
199     sprintf(nameLChips,"GHL%d",ifmd+1);
200     gMC->Gsvolu(nameLChips,"TUBE", idtmed[5], par, 0); // Si chips
201     sprintf(nameGL10,"G1L%d",ifmd+1);
202     gMC->Gsvolu(nameGL10,"TUBE", idtmed[2], par, 0); // Last G10
203     par[0]=rin[ifmd]; // pipe size
204     par[1]=rout[ifmd];
205     par[2]=zSi/2;
206     gMC->Gsvolu(nameSi,"TUBE", idtmed[4], par, 3);
207     zInside=ppcon[3]+par[2];
208     gMC->Gspos(nameSi,ifmd+1,nameFMD,0,0,zInside,0, "ONLY");
209
210     //PCB 1
211     zInside += par[2]+zPCB/2;
212     par[2]=zPCB/2;
213     gMC->Gsposp(namePCB,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
214     zInside += zPCB;
215     gMC->Gsposp(namePCB,2,nameFMD,0,0,zInside,0, "ONLY",par,3);
216     Float_t NulonTubeBegin=zInside+2.5*zPCB;
217     par[2]=zPCB/2-0.02;
218     Float_t zInPCB = -zPCB/2+par[2];
219     gMC->Gsposp(nameG10,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
220     zInPCB+=par[2]+zCooper/2 ;
221     par[2]=zCooper/2;
222     gMC->Gsposp(nameCopper,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
223     zInPCB += zCooper/2 + zChips/2;
224     par[2]=zChips/2;
225     gMC->Gsposp(nameChips,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
226
227     //HoneyComb
228     zHoneyComb=0.8;   
229     par[0] = RinHoneyComb[ifmd];
230     par[1] = RoutHoneyComb[ifmd];
231     par[2] = zHoneyComb/2;
232     zInside += 2*NylonTube[2]+par[2];
233     gMC->Gsposp(nameHoney,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
234     par[2]=0.1/2;
235     Float_t zHoney=-zHoneyComb/2+par[2];
236     gMC->Gsposp(nameHoneyOut,1,nameHoney,0,0,zHoney,0,
237                 "ONLY",par,3); //shkurki
238     zHoney=zHoneyComb/2-par[2];
239     gMC->Gsposp(nameHoneyOut,2,nameHoney,0,0,zHoney,0, "ONLY",par,3);
240     par[2]=(zHoneyComb-2.*0.1)/2; //soty vnutri
241     gMC->Gsposp(nameHoneyIn,1,nameHoney,0,0,0,0, "ONLY",par,3);
242       
243     gMC->Gspos("GNYL",1,nameFMD,0,yNylonTube[ifmd],
244                NulonTubeBegin+NylonTube[2]/2.,0, "ONLY");
245     gMC->Gspos("GNYL",2,nameFMD,0,-yNylonTube[ifmd],
246                NulonTubeBegin+NylonTube[2]/2.,0, "ONLY");
247          
248     //last PCB
249     par[0]=RoutHoneyComb[ifmd]-9;
250     par[1]=RoutHoneyComb[ifmd];
251     par[2]=zPCB/2;
252     zInside += zHoneyComb/2+par[2];
253     gMC->Gsposp(nameLPCB,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
254       
255     par[2]=zPCB/2-0.02;
256     zInPCB = -zPCB/2+par[2];
257     gMC->Gsposp(nameGL10,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
258     zInPCB+=par[2]+zCooper/2 ;
259     par[2]=zCooper/2;
260     gMC->Gsposp(nameLCopper,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
261     zInPCB += zCooper/2 + zChips/2;
262     par[2]=zChips/2;
263     gMC->Gsposp(nameLChips,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
264       
265            
266     //Granularity
267     fSectorsSi1 = 20;
268     fRingsSi1   = 256 * 2;
269     //  fRingsSi1=3; // for drawing only
270     fSectorsSi2 = 40;
271     fRingsSi2   = 128 * 2;
272     //   fRingsSi2=3; //for  drawing onl
273     if(ifmd==1||ifmd==3) { 
274       gMC->Gsdvn(nameSector, nameSi , fSectorsSi2, 2);
275       gMC->Gsdvn(nameRing, nameSector, fRingsSi2, 1);
276     }
277     else {
278       gMC->Gsdvn(nameSector, nameSi , fSectorsSi1, 2);
279       gMC->Gsdvn(nameRing, nameSector , fRingsSi1, 1);
280     }
281   }
282 }    
283
284
285 //------------------------------------------------------------------------
286 void AliFMDAlla::CreateMaterials() 
287 {
288   Int_t isxfld   = gAlice->Field()->Integ();
289   Float_t sxmgmx = gAlice->Field()->Max();
290
291   // Plastic CH
292   Float_t aPlastic[2]={1.01,12.01};
293   Float_t zPlastic[2]={1,6};
294   Float_t wPlastic[2]={1,1};
295   Float_t denPlastic=1.03;
296   //
297   //     60% SiO2 , 40% G10FR4 
298   // PC board
299   Float_t apcb[3]  = { 28.0855,15.9994,17.749 };
300   Float_t zpcb[3]  = { 14.,8.,8.875 };
301   Float_t wpcb[3]  = { .28,.32,.4 };
302   Float_t denspcb  = 1.8;
303   //
304   // AIR
305   Float_t aAir[4]  = {12.0107,14.0067,15.9994,39.948};
306   Float_t zAir[4]  = {6.,7.,8.,18.};
307   Float_t wAir[4]  = {0.000124,0.755267,0.231781,0.012827};
308   Float_t dAir     = 1.20479E-3;
309   //*** Definition Of avaible FMD materials ***
310   AliMixture(0, "FMD Air$", aAir, zAir, dAir, 4,wAir);
311   AliMixture(1, "Plastic$",aPlastic,zPlastic,denPlastic,-2,wPlastic);
312   AliMixture(2, "SSD PCB$",   apcb, zpcb, denspcb, 3, wpcb);
313   AliMaterial(3, "SSD Copper$", 63.546, 29., 8.96, 1.43, 999.);
314   AliMaterial(4, "SSD Si$",      28.0855, 14., 2.33, 9.36, 999.);
315   AliMaterial(5, "SSD Si chip$", 28.0855, 14., 2.33, 9.36, 999.);
316   AliMaterial(6, "SSD C$",       12.011,   6., 2.265,18.8, 999.);
317   AliMaterial(7, "SSD Kapton$", 12.011, 6., 0.01, 31.27, 999.);//honeycomb
318   AliMaterial(8, "SSD G10FR4$", 17.749, 8.875, 1.8, 21.822, 999.);
319    
320
321   //**
322   AliMedium(0, "FMD air$", 0, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
323   AliMedium(1, "Plastic$", 1, 0,isxfld, sxmgmx,  10., .01, 1., .003, .003);
324   AliMedium(2, "SSD PCB$", 2, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
325   AliMedium(3, "SSD Copper$", 3, 0,isxfld, sxmgmx,  10., .01, 1., .003, .003);
326   AliMedium(4, "SSD Si$", 4, 1, isxfld, sxmgmx, 1., .001, 1., .001, .001);
327   AliMedium(5, "SSD Si chip$", 5, 0,isxfld, sxmgmx,  10., .01, 1., .003, .003);
328   AliMedium(6, "SSD C$", 6, 0,isxfld, sxmgmx,  10., .01, 1., .003, .003);
329   AliMedium(7, "SSD Kapton$", 7, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
330   AliMedium(8, "SSD G10FR4$", 8, 0,isxfld, sxmgmx,  10., .01, 1., .003, .003);
331  
332
333
334 }
335 //---------------------------------------------------------------------
336 void AliFMDAlla::DrawDetector()
337 {
338   //
339   // Draw a shaded view of the Forward multiplicity detector version 0
340   //
341
342   //Set ALIC mother transparent
343   gMC->Gsatt("ALIC","SEEN",0);
344   //
345   //Set volumes visible
346   gMC->Gsatt("FMD1","SEEN",1);
347   gMC->Gsatt("FMD2","SEEN",1);
348   gMC->Gsatt("FMD3","SEEN",1);
349   gMC->Gsatt("FMD4","SEEN",1);
350   gMC->Gsatt("FMD5","SEEN",1);
351
352   //
353   gMC->Gdopt("hide","on");
354   gMC->Gdopt("shad","on");
355   gMC->SetClipBox(".");
356   gMC->SetClipBox("*",0,1000,-1000,1000,-1000,1000);
357   gMC->DefaultRange();
358   gMC->Gdraw("alic",40,30,0,12,9.5,.2,0.2);
359   gMC->Gdhead(1111,"Forward multiplicity detector");
360   gMC->Gdopt("hide","off");
361 }
362 //-------------------------------------------------------------------
363 void AliFMDAlla::Init()
364 {
365   // Initialises version 0 of the Forward Multiplicity Detector
366   //
367   AliFMD::Init();
368   fIdSens1=gMC->VolId("GRN1");
369   fIdSens2=gMC->VolId("GRN2");
370   fIdSens3=gMC->VolId("GRN3");
371   fIdSens4=gMC->VolId("GRN4");
372   fIdSens5=gMC->VolId("GRN5");
373   printf("*** FMD version 1 initialized ***\n");
374 }
375
376 //-------------------------------------------------------------------
377
378 void AliFMDAlla::StepManager()
379 {
380   //
381   // Called for every step in the Forward Multiplicity Detector
382   //
383   Int_t id,copy,copy1,copy2;
384   static Float_t hits[9];
385   static Int_t vol[3];
386   static Float_t de;
387   static TLorentzVector pos;
388   static TLorentzVector mom;
389   static Int_t iPart;
390   
391   TClonesArray &lhits = *fHits;
392   if(!gMC->IsTrackAlive()) return; // particle has disappeared
393
394   Float_t charge = gMC->TrackCharge();
395   if(TMath::Abs(charge)<=0.) return; //take only charged particles
396
397   //  printf(" in StepManeger \n");
398   id=gMC->CurrentVolID(copy);
399   //((TGeant3*)gMC)->Gpcxyz();
400   
401   // Check the sensetive volume
402   if(id==fIdSens1||id==fIdSens2||id==fIdSens3||id==fIdSens4||id==fIdSens5) {
403
404     if(gMC->IsTrackEntering())  {
405       vol[2]=copy;
406       gMC->CurrentVolOffID(1,copy1);
407       vol[1]=copy1;
408       gMC->CurrentVolOffID(2,copy2);
409       vol[0]=copy2;
410
411       gMC->TrackPosition(pos);
412       hits[0]=pos[0];
413       hits[1]=pos[1];
414       hits[2]=pos[2];
415       
416       gMC->TrackMomentum(mom);
417       hits[3]=mom[0];
418       hits[4]=mom[1];
419       hits[5]=mom[2];
420       
421       iPart= gMC->TrackPid();
422       Int_t partId=gMC->IdFromPDG(iPart);
423       hits[7]=partId;
424       hits[8]=1e9*gMC->TrackTime();
425       de=0.;
426     }
427     Float_t edep = 1000 * gMC->Edep();
428     Float_t p    = mom.P();
429     TParticlePDG* pdg = TDatabasePDG::Instance()->GetParticle(iPart);
430     Float_t mass = pdg ? pdg->Mass() : 1;
431     if (edep > 1 && p/mass > 1) {
432       TArrayI procs;
433       gMC->StepProcesses(procs);
434       TString processes;
435       for (Int_t ip = 0; ip < procs.fN; ip++) {
436         if (ip != 0) processes.Append(",");
437         processes.Append(TMCProcessName[procs.fArray[ip]]);
438       }
439       TString what;
440       if (gMC->IsTrackEntering())    what.Append("entering ");
441       if (gMC->IsTrackExiting())     what.Append("exiting ");
442       if (gMC->IsTrackInside())      what.Append("inside ");
443       if (gMC->IsTrackDisappeared()) what.Append("disappeared ");
444       if (gMC->IsTrackStop())        what.Append("stopped ");
445       if (gMC->IsNewTrack())         what.Append("new ");
446       if (gMC->IsTrackAlive())       what.Append("alive ");
447       if (gMC->IsTrackOut())         what.Append("out ");
448       Int_t trackno = gAlice->GetMCApp()->GetCurrentTrackNumber();
449       Int_t mother  = gAlice->GetMCApp()->GetPrimary(trackno);
450       Warning("StepManager", "Track # %5d deposits a lot of energy\n" 
451               "  Volume:    %s\n" 
452               "  Momentum:  (%7.4f,%7.4f,%7.4f)\n"
453               "  PDG:       %d (%s)\n" 
454               "  Edep:      %-14.7f keV (mother %d)\n"
455               "  p/m:       %-7.4f/%-7.4f = %-14.7f\n"
456               "  Processes: %s\n"
457               "  What:      %s\n",
458               trackno, gMC->CurrentVolPath(), mom.X(), mom.Y(), mom.Z(),
459               iPart, (pdg ? pdg->GetName() : ""), edep, mother, mom.P(), mass, 
460               mom.P()/mass, processes.Data(), what.Data());
461     }
462     
463     if(gMC->IsTrackInside()) de=de+1000.*gMC->Edep();
464
465     if(gMC->IsTrackExiting() ||gMC->IsTrackDisappeared()|| gMC->IsTrackStop()){
466       hits[6]=de+1000.*gMC->Edep();
467       UShort_t detector = vol[0] / 2 + 1;
468       Char_t   ring     = (vol[0] % 2) == 0 ? 'I' : 'O';
469       UShort_t sector   = vol[1];
470       UShort_t strip    = vol[2];
471       AliFMDHit* h = new(lhits[fNhits++]) 
472         AliFMDHit(fIshunt,
473                   gAlice->GetMCApp()->GetCurrentTrackNumber(),
474                   detector, ring, sector, strip, 
475                   hits[0], hits[1], hits[2], hits[3], hits[4], hits[5], 
476                   hits[6], iPart, hits[8]);
477     } // IsTrackExiting()
478   }
479 }
480 //--------------------------------------------------------------------------
481
482 void AliFMDAlla::Response( Float_t Edep)
483 {
484   Float_t I=1.664*0.04*2.33/22400; // = 0.69e-6;
485   Float_t chargeOnly=Edep/I;
486   //Add noise ~500electrons
487   Int_t charge=500;
488   if (Edep>0)
489     charge=Int_t(gRandom->Gaus(chargeOnly,500));        
490 }   
491
492
493
494
495
496