]> git.uio.no Git - u/mrichter/AliRoot.git/blame - ZDC/ZDCsim/AliZDCv4.cxx
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
- change of ZDCC mothervolume to make space for AD geometry
[u/mrichter/AliRoot.git] / ZDC / ZDCsim / AliZDCv4.cxx
CommitLineData
2aaaf0b7 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///////////////////////////////////////////////////////////////////////
18// //
19// AliZDCv4 --- new ZDC geometry //
20// with both ZDC arms geometry implemented //
21// //
22///////////////////////////////////////////////////////////////////////
23
24// --- Standard libraries
25#include "stdio.h"
26
27// --- ROOT system
28#include <TMath.h>
29#include <TRandom.h>
30#include <TSystem.h>
31#include <TTree.h>
32#include <TVirtualMC.h>
33#include <TGeoManager.h>
34#include <TGeoMatrix.h>
35#include <TGeoTube.h>
36#include <TGeoCone.h>
37#include <TGeoShape.h>
38#include <TGeoScaledShape.h>
39#include <TGeoCompositeShape.h>
40#include <TParticle.h>
41
42// --- AliRoot classes
43#include "AliLog.h"
44#include "AliConst.h"
45#include "AliMagF.h"
46#include "AliRun.h"
47#include "AliZDCv4.h"
48#include "AliMC.h"
362fd90e 49#include "AliMCParticle.h"
2aaaf0b7 50
51class AliZDCHit;
52class AliPDG;
53class AliDetector;
54
55
56ClassImp(AliZDCv4)
57
58//_____________________________________________________________________________
59AliZDCv4::AliZDCv4() :
60 AliZDC(),
61 fMedSensF1(0),
62 fMedSensF2(0),
63 fMedSensZP(0),
64 fMedSensZN(0),
65 fMedSensZEM(0),
66 fMedSensGR(0),
67 fMedSensPI(0),
68 fMedSensTDI(0),
69 fMedSensVColl(0),
70 fMedSensLumi(0),
71 fNalfan(0),
72 fNalfap(0),
73 fNben(0),
74 fNbep(0),
75 fZEMLength(0),
76 fpLostITC(0),
77 fpLostD1C(0),
78 fpcVCollC(0),
79 fpDetectedC(0),
80 fnDetectedC(0),
81 fpLostITA(0),
82 fpLostD1A(0),
83 fpLostTDI(0),
84 fpcVCollA(0),
85 fpDetectedA(0),
86 fnDetectedA(0),
87 fVCollSideCAperture(7./2.),
88 fVCollSideCApertureNeg(7./2.),
89 fVCollSideCCentreY(0.),
90 fTCDDAperturePos(2.0),
7605b373 91 fTCDDApertureNeg(2.0),
2aaaf0b7 92 fTDIAperturePos(5.5),
93 fTDIApertureNeg(5.5),
94 fLumiLength(15.)
95{
96 //
97 // Default constructor for Zero Degree Calorimeter
98 //
99 for(Int_t i=0; i<3; i++){
100 fDimZN[i] = fDimZP[i] = 0.;
101 fPosZNC[i] = fPosZNA[i] = fPosZPC[i]= fPosZPA[i] = fPosZEM[i] = 0.;
102 fFibZN[i] = fFibZP[i] = 0.;
103 }
104}
105
106//_____________________________________________________________________________
107AliZDCv4::AliZDCv4(const char *name, const char *title) :
108 AliZDC(name,title),
109 fMedSensF1(0),
110 fMedSensF2(0),
111 fMedSensZP(0),
112 fMedSensZN(0),
113 fMedSensZEM(0),
114 fMedSensGR(0),
115 fMedSensPI(0),
116 fMedSensTDI(0),
117 fMedSensVColl(0),
118 fMedSensLumi(0),
119 fNalfan(90),
120 fNalfap(90),
121 fNben(18),
122 fNbep(28),
123 fZEMLength(0),
124 fpLostITC(0),
125 fpLostD1C(0),
126 fpcVCollC(0),
127 fpDetectedC(0),
128 fnDetectedC(0),
129 fpLostITA(0),
130 fpLostD1A(0),
131 fpLostTDI(0),
132 fpcVCollA(0),
133 fpDetectedA(0),
134 fnDetectedA(0),
135 fVCollSideCAperture(7./2.),
136 fVCollSideCApertureNeg(7./2.),
137 fVCollSideCCentreY(0.),
138 fTCDDAperturePos(2.0),
7605b373 139 fTCDDApertureNeg(2.0),
2aaaf0b7 140 fTDIAperturePos(5.5),
141 fTDIApertureNeg(5.5),
142 fLumiLength(15.)
143{
144 //
145 // Standard constructor for Zero Degree Calorimeter
146 //
147 //
148 // Check that DIPO, ABSO, DIPO and SHIL is there (otherwise tracking is wrong!!!)
149
150 AliModule* pipe=gAlice->GetModule("PIPE");
151 AliModule* abso=gAlice->GetModule("ABSO");
152 AliModule* dipo=gAlice->GetModule("DIPO");
153 AliModule* shil=gAlice->GetModule("SHIL");
154 if((!pipe) || (!abso) || (!dipo) || (!shil)) {
155 Error("Constructor","ZDC needs PIPE, ABSO, DIPO and SHIL!!!\n");
156 exit(1);
157 }
158 //
159 Int_t ip,jp,kp;
160 for(ip=0; ip<4; ip++){
161 for(kp=0; kp<fNalfap; kp++){
162 for(jp=0; jp<fNbep; jp++){
163 fTablep[ip][kp][jp] = 0;
164 }
165 }
166 }
167 Int_t in,jn,kn;
168 for(in=0; in<4; in++){
169 for(kn=0; kn<fNalfan; kn++){
170 for(jn=0; jn<fNben; jn++){
171 fTablen[in][kn][jn] = 0;
172 }
173 }
174 }
175 //
176 // Parameters for hadronic calorimeters geometry
177 // Positions updated after post-installation measurements
178 fDimZN[0] = 3.52;
179 fDimZN[1] = 3.52;
180 fDimZN[2] = 50.;
181 fDimZP[0] = 11.2;
182 fDimZP[1] = 6.;
183 fDimZP[2] = 75.;
184 fPosZNC[0] = 0.;
185 fPosZNC[1] = 0.;
186 fPosZNC[2] = -11397.3+136;
187 fPosZPC[0] = 24.35;
188 fPosZPC[1] = 0.;
189 fPosZPC[2] = -11389.3+136;
190 fPosZNA[0] = 0.;
191 fPosZNA[1] = 0.;
192 fPosZNA[2] = 11395.8-136;
193 fPosZPA[0] = 24.35;
194 fPosZPA[1] = 0.;
195 fPosZPA[2] = 11387.8-136;
196 fFibZN[0] = 0.;
197 fFibZN[1] = 0.01825;
198 fFibZN[2] = 50.;
199 fFibZP[0] = 0.;
200 fFibZP[1] = 0.0275;
201 fFibZP[2] = 75.;
202 // Parameters for EM calorimeter geometry
203 fPosZEM[0] = 8.5;
204 fPosZEM[1] = 0.;
205 fPosZEM[2] = 735.;
206 Float_t kDimZEMPb = 0.15*(TMath::Sqrt(2.)); // z-dimension of the Pb slice
207 Float_t kDimZEMAir = 0.001; // scotch
208 Float_t kFibRadZEM = 0.0315; // External fiber radius (including cladding)
209 Int_t kDivZEM[3] = {92, 0, 20}; // Divisions for EM detector
210 Float_t kDimZEM0 = 2*kDivZEM[2]*(kDimZEMPb+kDimZEMAir+kFibRadZEM*(TMath::Sqrt(2.)));
211 fZEMLength = kDimZEM0;
212
213}
214
215//_____________________________________________________________________________
216void AliZDCv4::CreateGeometry()
217{
218 //
219 // Create the geometry for the Zero Degree Calorimeter version 2
220 //* Initialize COMMON block ZDC_CGEOM
221 //*
222
223 CreateBeamLine();
224 CreateZDC();
225}
226
227//_____________________________________________________________________________
228void AliZDCv4::CreateBeamLine()
229{
230 //
231 // Create the beam line elements
232 //
362fd90e 233 if(fOnlyZEM) printf("\n Only ZEM configuration requested: no side-C beam pipe, no side-A hadronic ZDCs\n\n");
2aaaf0b7 234
e751e478 235 Double_t zd1, zd2, zCorrDip, zInnTrip, zD1;
6278c352 236 Double_t conpar[15], tubpar[3], tubspar[5], boxpar[3];
2aaaf0b7 237 //-- rotation matrices for the legs
238 Int_t irotpipe1, irotpipe2;
2942f542 239 TVirtualMC::GetMC()->Matrix(irotpipe1,90.-1.0027,0.,90.,90.,1.0027,180.);
240 TVirtualMC::GetMC()->Matrix(irotpipe2,90.+1.0027,0.,90.,90.,1.0027,0.);
2aaaf0b7 241
2aaaf0b7 242 Int_t *idtmed = fIdtmed->GetArray();
362fd90e 243 Double_t dx=0., dy=0., dz=0.;
244 Double_t thx=0., thy=0., thz=0.;
245 Double_t phx=0., phy=0., phz=0.;
2aaaf0b7 246
362fd90e 247 TGeoMedium *medZDCFe = gGeoManager->GetMedium("ZDC_ZIRONT");
248 TGeoMedium *medZDCvoid = gGeoManager->GetMedium("ZDC_ZVOID");
249
2aaaf0b7 250 ////////////////////////////////////////////////////////////////
251 // //
252 // SIDE C - RB26 (dimuon side) //
253 // //
362fd90e 254 ////////////////////////////////////////////////////////////////
2aaaf0b7 255
362fd90e 256if(!fOnlyZEM){
2aaaf0b7 257 // -- Mother of the ZDCs (Vacuum PCON)
6278c352 258 zd1 = 1947.2;
259 // zd1 = 1921.6;
260 // const Double_t kZComDip = -1972.5;
261 const Double_t kZComDip = -1974.0;
262 conpar[ 0] = 0.;
263 conpar[ 1] = 360.;
264 conpar[ 2] = 4.; // Num radius specifications: 4
265 conpar[ 3] = -13500.; // (1) end of mother vol
266 conpar[ 4] = 0.;
267 conpar[ 5] = 55.;
268 conpar[ 6] = kZComDip; // (2) Beginning of Compensator Dipole
269 conpar[ 7] = 0.;
270 conpar[ 8] = 55.;
271 conpar[ 9] = kZComDip; // (3) Reducing radii of ZDCC to beam pipe radius
272 conpar[10] = 0.;
273 conpar[11] = 6.7/2.;
274 conpar[12] = -zd1; // (4) Beginning of ZDCC mother volume
275 // conpar[12] = -1947.2; // (4) Beginning of ZDCC mother volume
276 conpar[13] = 0.;
277 conpar[14] = 6.7/2.;
278 TVirtualMC::GetMC()->Gsvolu("ZDCC", "PCON", idtmed[10], conpar, 15);
2942f542 279 TVirtualMC::GetMC()->Gspos("ZDCC", 1, "ALIC", 0., 0., 0., 0, "ONLY");
2aaaf0b7 280
281
282 // -- BEAM PIPE from compensator dipole to the beginning of D1)
283 tubpar[0] = 6.3/2.;
284 tubpar[1] = 6.7/2.;
285 // From beginning of ZDC volumes to beginning of D1
286 tubpar[2] = (5838.3-zd1)/2.;
2942f542 287 TVirtualMC::GetMC()->Gsvolu("QT01", "TUBE", idtmed[7], tubpar, 3);
288 TVirtualMC::GetMC()->Gspos("QT01", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 289 // Ch.debug
290 //printf(" QT01 TUBE pipe from z = %1.2f to z = %1.2f (D1 begin)\n",-zd1,-2*tubpar[2]-zd1);
291
292 //-- BEAM PIPE from the end of D1 to the beginning of D2)
293
294 //-- FROM MAGNETIC BEGINNING OF D1 TO MAGNETIC END OF D1
295 //-- Cylindrical pipe (r = 3.47) + conical flare
296 // -> Beginning of D1
297 zd1 += 2.*tubpar[2];
298
299 tubpar[0] = 6.94/2.;
300 tubpar[1] = 7.34/2.;
301 tubpar[2] = (6909.8-zd1)/2.;
2942f542 302 TVirtualMC::GetMC()->Gsvolu("QT02", "TUBE", idtmed[7], tubpar, 3);
303 TVirtualMC::GetMC()->Gspos("QT02", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 304 // Ch.debug
305 //printf(" QT02 TUBE pipe from z = %1.2f to z = %1.2f (D1 magnetic end)\n",-zd1,-2*tubpar[2]-zd1);
306
307 zd1 += 2.*tubpar[2];
308
309 tubpar[0] = 8./2.;
310 tubpar[1] = 8.6/2.;
311 tubpar[2] = (6958.3-zd1)/2.;
2942f542 312 TVirtualMC::GetMC()->Gsvolu("QT0B", "TUBE", idtmed[7], tubpar, 3);
313 TVirtualMC::GetMC()->Gspos("QT0B", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 314 // Ch.debug
315 //printf(" QT0B TUBE pipe from z = %1.2f to z = %1.2f \n",-zd1,-2*tubpar[2]-zd1);
316
317 zd1 += 2.*tubpar[2];
318
319 tubpar[0] = 9./2.;
320 tubpar[1] = 9.6/2.;
321 tubpar[2] = (7022.8-zd1)/2.;
2942f542 322 TVirtualMC::GetMC()->Gsvolu("QT03", "TUBE", idtmed[7], tubpar, 3);
323 TVirtualMC::GetMC()->Gspos("QT03", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 324 // Ch.debug
325 //printf(" QT03 TUBE pipe from z = %1.2f to z = %1.2f (D1 end)\n",-zd1,-2*tubpar[2]-zd1);
326
327 zd1 += 2.*tubpar[2];
328
329 conpar[0] = 39.2/2.;
330 conpar[1] = 18./2.;
331 conpar[2] = 18.6/2.;
332 conpar[3] = 9./2.;
333 conpar[4] = 9.6/2.;
2942f542 334 TVirtualMC::GetMC()->Gsvolu("QC01", "CONE", idtmed[7], conpar, 5);
335 TVirtualMC::GetMC()->Gspos("QC01", 1, "ZDCC", 0., 0., -conpar[0]-zd1, 0, "ONLY");
2aaaf0b7 336 // Ch.debug
337 //printf(" QC01 CONE pipe from z = %1.2f to z= %1.2f (VCTCQ-I)\n",-zd1,-2*conpar[0]-zd1);
338
339 zd1 += conpar[0] * 2.;
340
341 // ******************************************************
342 // N.B.-> according to last vacuum layout
343 // private communication by D. Macina, mail 27/1/2009
344 // updated to new ZDC installation (Janiary 2012)
345 // ******************************************************
346 // 2nd section of VCTCQ+VAMTF+TCLIA+VAMTF+1st part of VCTCP
347 Float_t totLength1 = 160.8 + 78. + 148. + 78. + 9.3;
348 //
349 tubpar[0] = 18.6/2.;
350 tubpar[1] = 7.6/2.;
351 tubpar[2] = totLength1/2.;
2942f542 352// TVirtualMC::GetMC()->Gsvolu("QE01", "ELTU", idtmed[7], tubpar, 3);
2aaaf0b7 353 // temporary replace with a scaled tube (AG)
354 TGeoTube *tubeQE01 = new TGeoTube(0.,tubpar[0],tubpar[2]);
355 TGeoScale *scaleQE01 = new TGeoScale(1., tubpar[1]/tubpar[0], 1.);
356 TGeoScaledShape *sshapeQE01 = new TGeoScaledShape(tubeQE01, scaleQE01);
357 new TGeoVolume("QE01", sshapeQE01, gGeoManager->GetMedium(idtmed[7]));
358
359 tubpar[0] = 18.0/2.;
360 tubpar[1] = 7.0/2.;
361 tubpar[2] = totLength1/2.;
2942f542 362// TVirtualMC::GetMC()->Gsvolu("QE02", "ELTU", idtmed[10], tubpar, 3);
2aaaf0b7 363 // temporary replace with a scaled tube (AG)
364 TGeoTube *tubeQE02 = new TGeoTube(0.,tubpar[0],tubpar[2]);
365 TGeoScale *scaleQE02 = new TGeoScale(1., tubpar[1]/tubpar[0], 1.);
366 TGeoScaledShape *sshapeQE02 = new TGeoScaledShape(tubeQE02, scaleQE02);
367 new TGeoVolume("QE02", sshapeQE02, gGeoManager->GetMedium(idtmed[10]));
368
2942f542 369 TVirtualMC::GetMC()->Gspos("QE01", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
370 TVirtualMC::GetMC()->Gspos("QE02", 1, "QE01", 0., 0., 0., 0, "ONLY");
2aaaf0b7 371 // Ch.debug
372 //printf(" QE01 ELTU from z = %1.2f to z = %1.2f (VCTCQ-II+VAMTF+TCLIA+VAMTF+VCTCP-I)\n",-zd1,-2*tubpar[2]-zd1);
373
374 // TCLIA collimator jaws (defined ONLY if fVCollAperture<3.5!)
375 if(fVCollSideCAperture<3.5){
376 boxpar[0] = 5.4/2.;
377 boxpar[1] = (3.5-fVCollSideCAperture-fVCollSideCCentreY-0.7)/2.;
378 if(boxpar[1]<0.) boxpar[1]=0.;
379 boxpar[2] = 124.4/2.;
380 printf(" AliZDCv4 -> C side injection collimator jaws: apertures +%1.2f/-%1.2f center %1.2f [cm]\n",
381 fVCollSideCAperture, fVCollSideCApertureNeg,fVCollSideCCentreY);
2942f542 382 TVirtualMC::GetMC()->Gsvolu("QCVC" , "BOX ", idtmed[13], boxpar, 3);
383 TVirtualMC::GetMC()->Gspos("QCVC", 1, "QE02", -boxpar[0], fVCollSideCAperture+fVCollSideCCentreY+boxpar[1], -totLength1/2.+160.8+78.+148./2., 0, "ONLY");
384 TVirtualMC::GetMC()->Gspos("QCVC", 2, "QE02", -boxpar[0], -fVCollSideCApertureNeg+fVCollSideCCentreY-boxpar[1], -totLength1/2.+160.8+78.+148./2., 0, "ONLY");
2aaaf0b7 385 }
386
387 zd1 += tubpar[2] * 2.;
388
389 // 2nd part of VCTCP
390 conpar[0] = 31.5/2.;
391 conpar[1] = 21.27/2.;
392 conpar[2] = 21.87/2.;
393 conpar[3] = 18.0/2.;
394 conpar[4] = 18.6/2.;
2942f542 395 TVirtualMC::GetMC()->Gsvolu("QC02", "CONE", idtmed[7], conpar, 5);
396 TVirtualMC::GetMC()->Gspos("QC02", 1, "ZDCC", 0., 0., -conpar[0]-zd1, 0, "ONLY");
2aaaf0b7 397 // Ch.debug
398 //printf(" QC02 CONE pipe from z = %1.2f to z= %1.2f (VCTCP-II)\n",-zd1,-2*conpar[0]-zd1);
399
400 zd1 += conpar[0] * 2.;
401
402 // 3rd section of VCTCP+VCDWC+VMLGB
403 //Float_t totLenght2 = 9.2 + 530.5+40.;
404 Float_t totLenght2 = (8373.3-zd1);
405 tubpar[0] = 21.2/2.;
406 tubpar[1] = 21.9/2.;
407 tubpar[2] = totLenght2/2.;
2942f542 408 TVirtualMC::GetMC()->Gsvolu("QT04", "TUBE", idtmed[7], tubpar, 3);
409 TVirtualMC::GetMC()->Gspos("QT04", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 410 // Ch.debug
411 //printf(" QT04 TUBE pipe from z = %1.2f to z= %1.2f (VCTCP-III)\n",-zd1,-2*tubpar[2]-zd1);
412
413 zd1 += tubpar[2] * 2.;
414
415 // First part of VCTCD
416 // skewed transition cone from ID=212.7 mm to ID=797 mm
417 conpar[0] = 121./2.;
418 conpar[1] = 79.7/2.;
419 conpar[2] = 81.3/2.;
420 conpar[3] = 21.27/2.;
421 conpar[4] = 21.87/2.;
2942f542 422 TVirtualMC::GetMC()->Gsvolu("QC03", "CONE", idtmed[7], conpar, 5);
423 TVirtualMC::GetMC()->Gspos("QC03", 1, "ZDCC", 0., 0., -conpar[0]-zd1, 0, "ONLY");
2aaaf0b7 424 // Ch.debug
425 //printf(" QC03 CONE pipe from z = %1.2f to z = %1.2f (VCTCD-I)\n",-zd1,-2*conpar[0]-zd1);
426
427 zd1 += 2.*conpar[0];
428
429 // VCDGB + 1st part of VCTCH
430 // Modified according to 2012 ZDC installation
431 tubpar[0] = 79.7/2.;
432 tubpar[1] = 81.3/2.;
433 tubpar[2] = (5*475.2+97.-136)/2.;
2942f542 434 TVirtualMC::GetMC()->Gsvolu("QT05", "TUBE", idtmed[7], tubpar, 3);
435 TVirtualMC::GetMC()->Gspos("QT05", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 436 // Ch.debug
437 //printf(" QT05 TUBE pipe from z = %1.2f to z = %1.2f (VCDGB+VCTCH-I)\n",-zd1,-2*tubpar[2]-zd1);
438
439 zd1 += 2.*tubpar[2];
440
441 // 2nd part of VCTCH
442 // Transition from ID=797 mm to ID=196 mm:
443 // in order to simulate the thin window opened in the transition cone
444 // we divide the transition cone in three cones:
445 // (1) 8 mm thick (2) 3 mm thick (3) the third 8 mm thick
446
447 // (1) 8 mm thick
448 conpar[0] = 9.09/2.; // 15 degree
449 conpar[1] = 74.82868/2.;
450 conpar[2] = 76.42868/2.; // thickness 8 mm
451 conpar[3] = 79.7/2.;
452 conpar[4] = 81.3/2.; // thickness 8 mm
2942f542 453 TVirtualMC::GetMC()->Gsvolu("QC04", "CONE", idtmed[7], conpar, 5);
454 TVirtualMC::GetMC()->Gspos("QC04", 1, "ZDCC", 0., 0., -conpar[0]-zd1, 0, "ONLY");
2aaaf0b7 455 // Ch.debug
456 //printf(" QC04 CONE pipe from z = %1.2f to z = %1.2f (VCTCH-II)\n",-zd1,-2*conpar[0]-zd1);
457
458 zd1 += 2.*conpar[0];
459
460 // (2) 3 mm thick
461 conpar[0] = 96.2/2.; // 15 degree
462 conpar[1] = 23.19588/2.;
463 conpar[2] = 23.79588/2.; // thickness 3 mm
464 conpar[3] = 74.82868/2.;
465 conpar[4] = 75.42868/2.; // thickness 3 mm
2942f542 466 TVirtualMC::GetMC()->Gsvolu("QC05", "CONE", idtmed[7], conpar, 5);
467 TVirtualMC::GetMC()->Gspos("QC05", 1, "ZDCC", 0., 0., -conpar[0]-zd1, 0, "ONLY");
2aaaf0b7 468 // Ch.debug
469 //printf(" QC05 CONE pipe from z = %1.2f to z = %1.2f (VCTCH-III)\n",-zd1,-2*conpar[0]-zd1);
470
471 zd1 += 2.*conpar[0];
472
473 // (3) 8 mm thick
474 conpar[0] = 6.71/2.; // 15 degree
475 conpar[1] = 19.6/2.;
476 conpar[2] = 21.2/2.;// thickness 8 mm
477 conpar[3] = 23.19588/2.;
478 conpar[4] = 24.79588/2.;// thickness 8 mm
2942f542 479 TVirtualMC::GetMC()->Gsvolu("QC06", "CONE", idtmed[7], conpar, 5);
480 TVirtualMC::GetMC()->Gspos("QC06", 1, "ZDCC", 0., 0., -conpar[0]-zd1, 0, "ONLY");
2aaaf0b7 481 // Ch.debug
482 //printf(" QC06 CONE pipe from z = %1.2f to z = %1.2f (VCTCH-III)\n",-zd1,-2*conpar[0]-zd1);
483
484 zd1 += 2.*conpar[0];
485
486 // VMZAR (5 volumes)
487 tubpar[0] = 20.2/2.;
488 tubpar[1] = 20.6/2.;
489 tubpar[2] = 2.15/2.;
2942f542 490 TVirtualMC::GetMC()->Gsvolu("QT06", "TUBE", idtmed[7], tubpar, 3);
491 TVirtualMC::GetMC()->Gspos("QT06", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 492 // Ch.debug
493 //printf(" QT06 TUBE pipe from z = %1.2f to z = %1.2f (VMZAR-I)\n",-zd1,-2*tubpar[2]-zd1);
494
495 zd1 += 2.*tubpar[2];
496
497 conpar[0] = 6.9/2.;
498 conpar[1] = 23.9/2.;
499 conpar[2] = 24.3/2.;
500 conpar[3] = 20.2/2.;
501 conpar[4] = 20.6/2.;
2942f542 502 TVirtualMC::GetMC()->Gsvolu("QC07", "CONE", idtmed[7], conpar, 5);
503 TVirtualMC::GetMC()->Gspos("QC07", 1, "ZDCC", 0., 0., -conpar[0]-zd1, 0, "ONLY");
2aaaf0b7 504 // Ch.debug
505 //printf(" QC07 CONE pipe from z = %1.2f to z = %1.2f (VMZAR-II)\n",-zd1,-2*conpar[0]-zd1);
506
507 zd1 += 2.*conpar[0];
508
509 tubpar[0] = 23.9/2.;
510 tubpar[1] = 25.5/2.;
511 tubpar[2] = 17.0/2.;
2942f542 512 TVirtualMC::GetMC()->Gsvolu("QT07", "TUBE", idtmed[7], tubpar, 3);
513 TVirtualMC::GetMC()->Gspos("QT07", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 514 // Ch.debug
515 //printf(" QT07 TUBE pipe from z = %1.2f to z = %1.2f (VMZAR-III)\n",-zd1,-2*tubpar[2]-zd1);
516
517 zd1 += 2.*tubpar[2];
518
519 conpar[0] = 6.9/2.;
520 conpar[1] = 20.2/2.;
521 conpar[2] = 20.6/2.;
522 conpar[3] = 23.9/2.;
523 conpar[4] = 24.3/2.;
2942f542 524 TVirtualMC::GetMC()->Gsvolu("QC08", "CONE", idtmed[7], conpar, 5);
525 TVirtualMC::GetMC()->Gspos("QC08", 1, "ZDCC", 0., 0., -conpar[0]-zd1, 0, "ONLY");
2aaaf0b7 526 // Ch.debug
527 //printf(" QC08 CONE pipe from z = %1.2f to z = %1.2f (VMZAR-IV)\n",-zd1,-2*conpar[0]-zd1);
528
529 zd1 += 2.*conpar[0];
530
531 tubpar[0] = 20.2/2.;
532 tubpar[1] = 20.6/2.;
533 tubpar[2] = 2.15/2.;
2942f542 534 TVirtualMC::GetMC()->Gsvolu("QT08", "TUBE", idtmed[7], tubpar, 3);
535 TVirtualMC::GetMC()->Gspos("QT08", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 536 // Ch.debug
537 //printf(" QT08 TUBE pipe from z = %1.2f to z = %1.2f (VMZAR-V)\n",-zd1,-2*tubpar[2]-zd1);
538
539 zd1 += 2.*tubpar[2];
540
541 // Flange (ID=196 mm)(last part of VMZAR and first part of VCTYB)
542 tubpar[0] = 19.6/2.;
543 tubpar[1] = 25.3/2.;
544 tubpar[2] = 4.9/2.;
2942f542 545 TVirtualMC::GetMC()->Gsvolu("QT09", "TUBE", idtmed[7], tubpar, 3);
546 TVirtualMC::GetMC()->Gspos("QT09", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 547 // Ch.debug
548 //printf(" QT09 TUBE pipe from z = %1.2f to z = %1.2f (VMZAR-VI+VCTYB-I)\n",-zd1,-2*tubpar[2]-zd1);
549
550 zd1 += 2.*tubpar[2];
551 // Ch.debug
552 ////printf(" Beginning of VCTYB volume @ z = %1.2f \n",-zd1);
553
554 // simulation of the trousers (VCTYB)
555 tubpar[0] = 19.6/2.;
556 tubpar[1] = 20.0/2.;
557 tubpar[2] = 3.9/2.;
2942f542 558 TVirtualMC::GetMC()->Gsvolu("QT10", "TUBE", idtmed[7], tubpar, 3);
559 TVirtualMC::GetMC()->Gspos("QT10", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 560 // Ch.debug
561 //printf(" QT10 TUBE pipe from z = %1.2f to z = %1.2f (VCTYB-II)\n",-zd1,-2*tubpar[2]-zd1);
562
563 zd1 += 2.*tubpar[2];
564
565 // transition cone from ID=196. to ID=216.6
566 conpar[0] = 32.55/2.;
567 conpar[1] = 21.66/2.;
568 conpar[2] = 22.06/2.;
569 conpar[3] = 19.6/2.;
570 conpar[4] = 20.0/2.;
2942f542 571 TVirtualMC::GetMC()->Gsvolu("QC09", "CONE", idtmed[7], conpar, 5);
572 TVirtualMC::GetMC()->Gspos("QC09", 1, "ZDCC", 0., 0., -conpar[0]-zd1, 0, "ONLY");
2aaaf0b7 573 // Ch.debug
574 //printf(" QC09 CONE pipe from z = %1.2f to z= %1.2f\n",-zd1,-2*conpar[0]-zd1);
575
576 zd1 += 2.*conpar[0];
577
578 // tube
579 tubpar[0] = 21.66/2.;
580 tubpar[1] = 22.06/2.;
581 tubpar[2] = 28.6/2.;
2942f542 582 TVirtualMC::GetMC()->Gsvolu("QT11", "TUBE", idtmed[7], tubpar, 3);
583 TVirtualMC::GetMC()->Gspos("QT11", 1, "ZDCC", 0., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 584 // Ch.debug
585 //printf(" QT11 TUBE pipe from z = %1.2f to z= %1.2f\n",-zd1,-2*tubpar[2]-zd1);
586
587 zd1 += 2.*tubpar[2];
588 // Ch.debug
589 //printf(" Beginning of C side recombination chamber @ z = %f \n",-zd1);
590
591 // --------------------------------------------------------
592 // RECOMBINATION CHAMBER IMPLEMENTED USING TGeo CLASSES!!!!
593 // author: Chiara (August 2008)
594 // --------------------------------------------------------
595 // TRANSFORMATION MATRICES
596 // Combi transformation:
362fd90e 597 dx = -3.970000;
598 dy = 0.000000;
599 dz = 0.0;
2aaaf0b7 600 // Rotation:
362fd90e 601 thx = 84.989100; phx = 180.000000;
602 thy = 90.000000; phy = 90.000000;
603 thz = 185.010900; phz = 0.000000;
2aaaf0b7 604 TGeoRotation *rotMatrix1c = new TGeoRotation("c",thx,phx,thy,phy,thz,phz);
605 // Combi transformation:
606 dx = -3.970000;
607 dy = 0.000000;
608 dz = 0.0;
609 TGeoCombiTrans *rotMatrix2c = new TGeoCombiTrans("ZDCC_c1", dx,dy,dz,rotMatrix1c);
610 rotMatrix2c->RegisterYourself();
611 // Combi transformation:
612 dx = 3.970000;
613 dy = 0.000000;
614 dz = 0.0;
615 // Rotation:
616 thx = 95.010900; phx = 180.000000;
617 thy = 90.000000; phy = 90.000000;
618 thz = 180.-5.010900; phz = 0.000000;
619 TGeoRotation *rotMatrix3c = new TGeoRotation("",thx,phx,thy,phy,thz,phz);
620 TGeoCombiTrans *rotMatrix4c = new TGeoCombiTrans("ZDCC_c2", dx,dy,dz,rotMatrix3c);
621 rotMatrix4c->RegisterYourself();
622
623 // VOLUMES DEFINITION
624 // Volume: ZDCC
625 TGeoVolume *pZDCC = gGeoManager->GetVolume("ZDCC");
626
627 conpar[0] = (90.1-0.95-0.26-0.0085)/2.;
628 conpar[1] = 0.0/2.;
629 conpar[2] = 21.6/2.;
630 conpar[3] = 0.0/2.;
631 conpar[4] = 5.8/2.;
632 new TGeoCone("QCLext", conpar[0],conpar[1],conpar[2],conpar[3],conpar[4]);
633
634 conpar[0] = (90.1-0.95-0.26-0.0085)/2.;
635 conpar[1] = 0.0/2.;
636 conpar[2] = 21.2/2.;
637 conpar[3] = 0.0/2.;
638 conpar[4] = 5.4/2.;
639 new TGeoCone("QCLint", conpar[0],conpar[1],conpar[2],conpar[3],conpar[4]);
640
641 // Outer trousers
642 TGeoCompositeShape *pOutTrousersC = new TGeoCompositeShape("outTrousersC", "QCLext:ZDCC_c1+QCLext:ZDCC_c2");
643
644 // Volume: QCLext
2aaaf0b7 645 TGeoVolume *pQCLext = new TGeoVolume("QCLext",pOutTrousersC, medZDCFe);
646 pQCLext->SetLineColor(kGreen);
647 pQCLext->SetVisLeaves(kTRUE);
648 //
649 TGeoTranslation *tr1c = new TGeoTranslation(0., 0., (Double_t) -conpar[0]-0.95-zd1);
650 //printf(" C side recombination chamber from z = %1.2f to z= %1.2f\n",-zd1,-2*conpar[0]-0.95-zd1);
651 //
652 pZDCC->AddNode(pQCLext, 1, tr1c);
653 // Inner trousers
654 TGeoCompositeShape *pIntTrousersC = new TGeoCompositeShape("intTrousersC", "QCLint:ZDCC_c1+QCLint:ZDCC_c2");
655 // Volume: QCLint
2aaaf0b7 656 TGeoVolume *pQCLint = new TGeoVolume("QCLint",pIntTrousersC, medZDCvoid);
657 pQCLint->SetLineColor(kTeal);
658 pQCLint->SetVisLeaves(kTRUE);
659 pQCLext->AddNode(pQCLint, 1);
660
661 zd1 += 90.1;
662 Double_t offset = 0.5;
663 zd1 = zd1+offset;
664
665 // second section : 2 tubes (ID = 54. OD = 58.)
666 tubpar[0] = 5.4/2.;
667 tubpar[1] = 5.8/2.;
668 tubpar[2] = 40.0/2.;
2942f542 669 TVirtualMC::GetMC()->Gsvolu("QT12", "TUBE", idtmed[7], tubpar, 3);
670 TVirtualMC::GetMC()->Gspos("QT12", 1, "ZDCC", -15.8/2., 0., -tubpar[2]-zd1, 0, "ONLY");
671 TVirtualMC::GetMC()->Gspos("QT12", 2, "ZDCC", 15.8/2., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 672 // Ch.debug
673 //printf(" QT12 TUBE from z = %1.2f to z = %1.2f (separate beam pipes)\n",-zd1,-2*tubpar[2]-zd1);
674
675 zd1 += 2.*tubpar[2];
676
677 // transition x2zdc to recombination chamber : skewed cone
678 conpar[0] = (10.-0.2-offset)/2.;
679 conpar[1] = 6.3/2.;
680 conpar[2] = 7.0/2.;
681 conpar[3] = 5.4/2.;
682 conpar[4] = 5.8/2.;
2942f542 683 TVirtualMC::GetMC()->Gsvolu("QC10", "CONE", idtmed[7], conpar, 5);
684 TVirtualMC::GetMC()->Gspos("QC10", 1, "ZDCC", -7.9-0.175, 0., -conpar[0]-0.1-zd1, irotpipe1, "ONLY");
685 TVirtualMC::GetMC()->Gspos("QC10", 2, "ZDCC", 7.9+0.175, 0., -conpar[0]-0.1-zd1, irotpipe2, "ONLY");
2aaaf0b7 686 //printf(" QC10 CONE from z = %1.2f to z = %1.2f (transition X2ZDC)\n",-zd1,-2*conpar[0]-0.2-zd1);
687
688 zd1 += 2.*conpar[0]+0.2;
689
690 // 2 tubes (ID = 63 mm OD=70 mm)
691 tubpar[0] = 6.3/2.;
692 tubpar[1] = 7.0/2.;
693 tubpar[2] = 639.8/2.;
2942f542 694 TVirtualMC::GetMC()->Gsvolu("QT13", "TUBE", idtmed[7], tubpar, 3);
695 TVirtualMC::GetMC()->Gspos("QT13", 1, "ZDCC", -16.5/2., 0., -tubpar[2]-zd1, 0, "ONLY");
696 TVirtualMC::GetMC()->Gspos("QT13", 2, "ZDCC", 16.5/2., 0., -tubpar[2]-zd1, 0, "ONLY");
2aaaf0b7 697 //printf(" QT13 TUBE from z = %1.2f to z = %1.2f (separate beam pipes)\n",-zd1,-2*tubpar[2]-zd1);
698
699 zd1 += 2.*tubpar[2];
700 printf(" END OF C SIDE BEAM PIPE DEFINITION @ z = %f m from IP2\n\n",-zd1/100.);
701
702
703 // -- Luminometer (Cu box) in front of ZN - side C
704 if(fLumiLength>0.){
705 boxpar[0] = 8.0/2.;
706 boxpar[1] = 8.0/2.;
707 boxpar[2] = fLumiLength/2.;
2942f542 708 TVirtualMC::GetMC()->Gsvolu("QLUC", "BOX ", idtmed[9], boxpar, 3);
709 TVirtualMC::GetMC()->Gspos("QLUC", 1, "ZDCC", 0., 0., fPosZNC[2]+66.+boxpar[2], 0, "ONLY");
2aaaf0b7 710 printf(" C SIDE LUMINOMETER %1.2f < z < %1.2f\n", fPosZNC[2]+66., fPosZNC[2]+66.+2*boxpar[2]);
711 }
362fd90e 712}
2aaaf0b7 713 // -- END OF BEAM PIPE VOLUME DEFINITION FOR SIDE C (RB26 SIDE)
714 // ----------------------------------------------------------------
715
716 ////////////////////////////////////////////////////////////////
717 // //
718 // SIDE A - RB24 //
719 // //
720 ///////////////////////////////////////////////////////////////
721
722 // Rotation Matrices definition
723 Int_t irotpipe3, irotpipe4, irotpipe5;
724 //-- rotation matrices for the tilted cone after the TDI to recenter vacuum chamber
2942f542 725 TVirtualMC::GetMC()->Matrix(irotpipe3,90.-1.8934,0.,90.,90.,1.8934,180.);
2aaaf0b7 726 //-- rotation matrices for the tilted tube before and after the TDI
2942f542 727 TVirtualMC::GetMC()->Matrix(irotpipe4,90.-3.8,0.,90.,90.,3.8,180.);
2aaaf0b7 728 //-- rotation matrix for the tilted cone after the TDI
2942f542 729 TVirtualMC::GetMC()->Matrix(irotpipe5,90.+9.8,0.,90.,90.,9.8,0.);
2aaaf0b7 730
731 // -- Mother of the ZDCs (Vacuum PCON)
732 zd2 = 1910.22;// zd2 initial value
733
734 conpar[0] = 0.;
735 conpar[1] = 360.;
736 conpar[2] = 2.;
737 conpar[3] = zd2;
738 conpar[4] = 0.;
739 conpar[5] = 55.;
740 conpar[6] = 13500.;
741 conpar[7] = 0.;
742 conpar[8] = 55.;
2942f542 743 TVirtualMC::GetMC()->Gsvolu("ZDCA", "PCON", idtmed[10], conpar, 9);
744 TVirtualMC::GetMC()->Gspos("ZDCA", 1, "ALIC", 0., 0., 0., 0, "ONLY");
2aaaf0b7 745
746 // To avoid overlaps 1 micron are left between certain volumes!
747 Double_t dxNoOverlap = 0.0;
748 //zd2 += dxNoOverlap;
749
750 // BEAM PIPE from 19.10 m to inner triplet beginning (22.965 m)
751 tubpar[0] = 6.0/2.;
752 tubpar[1] = 6.4/2.;
753 tubpar[2] = 386.28/2. - dxNoOverlap;
2942f542 754 TVirtualMC::GetMC()->Gsvolu("QA01", "TUBE", idtmed[7], tubpar, 3);
755 TVirtualMC::GetMC()->Gspos("QA01", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 756 // Ch.debug
757 //printf(" QA01 TUBE centred in %f from z = %1.2f to z = %1.2f (IT begin)\n",tubpar[2]+zd2,zd2,2*tubpar[2]+zd2);
758
759 zd2 += 2.*tubpar[2];
760
761 // -- FIRST SECTION OF THE BEAM PIPE (from beginning of inner triplet to
762 // beginning of D1)
763 tubpar[0] = 6.3/2.;
764 tubpar[1] = 6.7/2.;
765 tubpar[2] = 3541.8/2. - dxNoOverlap;
2942f542 766 TVirtualMC::GetMC()->Gsvolu("QA02", "TUBE", idtmed[7], tubpar, 3);
767 TVirtualMC::GetMC()->Gspos("QA02", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 768 // Ch.debug
769 //printf(" QA02 TUBE from z = %1.2f to z= %1.2f (D1 begin)\n",zd2,2*tubpar[2]+zd2);
770
771 zd2 += 2.*tubpar[2];
772
773
774 // -- SECOND SECTION OF THE BEAM PIPE (from the beginning of D1 to the beginning of D2)
775 //
776 // FROM (MAGNETIC) BEGINNING OF D1 TO THE (MAGNETIC) END OF D1 + 126.5 cm
777 // CYLINDRICAL PIPE of diameter increasing from 6.75 cm up to 8.0 cm
778 // from magnetic end :
779 // 1) 80.1 cm still with ID = 6.75 radial beam screen
780 // 2) 2.5 cm conical section from ID = 6.75 to ID = 8.0 cm
781 // 3) 43.9 cm straight section (tube) with ID = 8.0 cm
782
783 tubpar[0] = 6.75/2.;
784 tubpar[1] = 7.15/2.;
785 tubpar[2] = (945.0+80.1)/2.;
2942f542 786 TVirtualMC::GetMC()->Gsvolu("QA03", "TUBE", idtmed[7], tubpar, 3);
787 TVirtualMC::GetMC()->Gspos("QA03", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 788 // Ch.debug
789 //printf(" QA03 TUBE from z = %1.2f to z = %1.2f (D1 end)\n",zd2,2*tubpar[2]+zd2);
790
791 zd2 += 2.*tubpar[2];
792
793 // Transition Cone from ID=67.5 mm to ID=80 mm
794 conpar[0] = 2.5/2.;
795 conpar[1] = 6.75/2.;
796 conpar[2] = 7.15/2.;
797 conpar[3] = 8.0/2.;
798 conpar[4] = 8.4/2.;
2942f542 799 TVirtualMC::GetMC()->Gsvolu("QA04", "CONE", idtmed[7], conpar, 5);
800 TVirtualMC::GetMC()->Gspos("QA04", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 801 //printf(" QA04 CONE from z = %1.2f to z = %1.2f (transition cone)\n",zd2,2*conpar[0]+zd2);
802
803 zd2 += 2.*conpar[0];
804
805 tubpar[0] = 8.0/2.;
806 tubpar[1] = 8.4/2.;
807 tubpar[2] = (43.9+20.+28.5+28.5)/2.;
2942f542 808 TVirtualMC::GetMC()->Gsvolu("QA05", "TUBE", idtmed[7], tubpar, 3);
809 TVirtualMC::GetMC()->Gspos("QA05", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 810 // Ch.debug
811 //printf(" QA05 TUBE from z = %1.2f to z = %1.2f\n",zd2,2*tubpar[2]+zd2);
812
813 zd2 += 2.*tubpar[2];
814
815 // Second section of VAEHI (transition cone from ID=80mm to ID=98mm)
816 conpar[0] = 4.0/2.;
817 conpar[1] = 8.0/2.;
818 conpar[2] = 8.4/2.;
819 conpar[3] = 9.8/2.;
820 conpar[4] = 10.2/2.;
2942f542 821 TVirtualMC::GetMC()->Gsvolu("QAV1", "CONE", idtmed[7], conpar, 5);
822 TVirtualMC::GetMC()->Gspos("QAV1", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 823 //printf(" QAV1 CONE from z = %1.2f to z = %1.2f (VAEHI-I)\n",zd2,2*conpar[0]+zd2);
824
825 zd2 += 2.*conpar[0];
826
827 //Third section of VAEHI (transition cone from ID=98mm to ID=90mm)
828 conpar[0] = 1.0/2.;
829 conpar[1] = 9.8/2.;
830 conpar[2] = 10.2/2.;
831 conpar[3] = 9.0/2.;
832 conpar[4] = 9.4/2.;
2942f542 833 TVirtualMC::GetMC()->Gsvolu("QAV2", "CONE", idtmed[7], conpar, 5);
834 TVirtualMC::GetMC()->Gspos("QAV2", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 835 //printf(" QAV2 CONE from z = %1.2f to z = %1.2f (VAEHI-II)\n",zd2,2*conpar[0]+zd2);
836
837 zd2 += 2.*conpar[0];
838
839 // Fourth section of VAEHI (tube ID=90mm)
840 tubpar[0] = 9.0/2.;
841 tubpar[1] = 9.4/2.;
842 tubpar[2] = 31.0/2.;
2942f542 843 TVirtualMC::GetMC()->Gsvolu("QAV3", "TUBE", idtmed[7], tubpar, 3);
844 TVirtualMC::GetMC()->Gspos("QAV3", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 845 // Ch.debug
846 //printf(" QAV3 TUBE from z = %1.2f to z = %1.2f (VAEHI-III)\n",zd2,2*tubpar[2]+zd2);
847
848 zd2 += 2.*tubpar[2];
849
850 //---------------------------- TCDD beginning ----------------------------------
851 // space for the insertion of the collimator TCDD (2 m)
852 // TCDD ZONE - 1st volume
853 conpar[0] = 1.3/2.;
854 conpar[1] = 9.0/2.;
855 conpar[2] = 13.0/2.;
856 conpar[3] = 9.6/2.;
857 conpar[4] = 13.0/2.;
2942f542 858 TVirtualMC::GetMC()->Gsvolu("Q01T", "CONE", idtmed[7], conpar, 5);
859 TVirtualMC::GetMC()->Gspos("Q01T", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 860 //printf(" Q01T CONE from z = %1.2f to z = %1.2f (TCDD-I)\n",zd2,2*conpar[0]+zd2);
861
862 zd2 += 2.*conpar[0];
863
864 // TCDD ZONE - 2nd volume
865 tubpar[0] = 9.6/2.;
866 tubpar[1] = 10.0/2.;
867 tubpar[2] = 1.0/2.;
2942f542 868 TVirtualMC::GetMC()->Gsvolu("Q02T", "TUBE", idtmed[7], tubpar, 3);
869 TVirtualMC::GetMC()->Gspos("Q02T", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 870 // Ch.debug
871 //printf(" Q02T TUBE from z = %1.2f to z= %1.2f (TCDD-II)\n",zd2,2*tubpar[2]+zd2);
872
873 zd2 += 2.*tubpar[2];
874
875 // TCDD ZONE - third volume
876 conpar[0] = 9.04/2.;
877 conpar[1] = 9.6/2.;
878 conpar[2] = 10.0/2.;
879 conpar[3] = 13.8/2.;
880 conpar[4] = 14.2/2.;
2942f542 881 TVirtualMC::GetMC()->Gsvolu("Q03T", "CONE", idtmed[7], conpar, 5);
882 TVirtualMC::GetMC()->Gspos("Q03T", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 883 //printf(" Q03T CONE from z = %1.2f to z= %1.2f (TCDD-III)\n",zd2,2*conpar[0]+zd2);
884
885 zd2 += 2.*conpar[0];
886
887 // TCDD ZONE - 4th volume
888 tubpar[0] = 13.8/2.;
889 tubpar[1] = 14.2/2.;
890 tubpar[2] = 38.6/2.;
2942f542 891 TVirtualMC::GetMC()->Gsvolu("Q04T", "TUBE", idtmed[7], tubpar, 3);
892 TVirtualMC::GetMC()->Gspos("Q04T", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 893 // Ch.debug
894 //printf(" Q04T TUBE from z = %1.2f to z= %1.2f (TCDD-IV)\n",zd2,2*tubpar[2]+zd2);
895
896 zd2 += 2.*tubpar[2];
897
898 // TCDD ZONE - 5th volume
899 tubpar[0] = 21.0/2.;
900 tubpar[1] = 21.4/2.;
901 tubpar[2] = 100.12/2.;
2942f542 902 TVirtualMC::GetMC()->Gsvolu("Q05T", "TUBE", idtmed[7], tubpar, 3);
903 TVirtualMC::GetMC()->Gspos("Q05T", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 904 // Ch.debug
905 //printf(" Q05T TUBE from z = %1.2f to z= %1.2f (TCDD-V)\n",zd2,2*tubpar[2]+zd2);
906
907 zd2 += 2.*tubpar[2];
908
909 // TCDD ZONE - 6th volume
910 tubpar[0] = 13.8/2.;
911 tubpar[1] = 14.2/2.;
912 tubpar[2] = 38.6/2.;
2942f542 913 TVirtualMC::GetMC()->Gsvolu("Q06T", "TUBE", idtmed[7], tubpar, 3);
914 TVirtualMC::GetMC()->Gspos("Q06T", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 915 // Ch.debug
916 //printf(" Q06T TUBE from z = %1.2f to z= %1.2f (TCDD-VI)\n",zd2,2*tubpar[2]+zd2);
917
918 zd2 += 2.*tubpar[2];
919
920 // TCDD ZONE - 7th volume
921 conpar[0] = 11.34/2.;
922 conpar[1] = 13.8/2.;
923 conpar[2] = 14.2/2.;
924 conpar[3] = 18.0/2.;
925 conpar[4] = 18.4/2.;
2942f542 926 TVirtualMC::GetMC()->Gsvolu("Q07T", "CONE", idtmed[7], conpar, 5);
927 TVirtualMC::GetMC()->Gspos("Q07T", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 928 //printf(" Q07T CONE from z = %1.2f to z= %1.2f (TCDD-VII)\n",zd2,2*conpar[0]+zd2);
929
930 zd2 += 2.*conpar[0];
931
932 // Upper section : one single phi segment of a tube
933 // 5 parameters for tubs: inner radius = 0.,
934 // outer radius = 7. cm, half length = 50 cm
935 // phi1 = 0., phi2 = 180.
936 tubspar[0] = 0.0/2.;
937 tubspar[1] = 14.0/2.;
938 tubspar[2] = 100.0/2.;
939 tubspar[3] = 0.;
940 tubspar[4] = 180.;
2942f542 941 TVirtualMC::GetMC()->Gsvolu("Q08T", "TUBS", idtmed[7], tubspar, 5);
2aaaf0b7 942
943 // rectangular beam pipe inside TCDD upper section (Vacuum)
944 boxpar[0] = 7.0/2.;
945 boxpar[1] = 2.2/2.;
946 boxpar[2] = 100./2.;
2942f542 947 TVirtualMC::GetMC()->Gsvolu("Q09T", "BOX ", idtmed[10], boxpar, 3);
2aaaf0b7 948 // positioning vacuum box in the upper section of TCDD
2942f542 949 TVirtualMC::GetMC()->Gspos("Q09T", 1, "Q08T", 0., 1.1, 0., 0, "ONLY");
2aaaf0b7 950
951 // lower section : one single phi segment of a tube
952 tubspar[0] = 0.0/2.;
953 tubspar[1] = 14.0/2.;
954 tubspar[2] = 100.0/2.;
955 tubspar[3] = 180.;
956 tubspar[4] = 360.;
2942f542 957 TVirtualMC::GetMC()->Gsvolu("Q10T", "TUBS", idtmed[7], tubspar, 5);
2aaaf0b7 958 // rectangular beam pipe inside TCDD lower section (Vacuum)
959 boxpar[0] = 7.0/2.;
960 boxpar[1] = 2.2/2.;
961 boxpar[2] = 100./2.;
2942f542 962 TVirtualMC::GetMC()->Gsvolu("Q11T", "BOX ", idtmed[10], boxpar, 3);
2aaaf0b7 963 // positioning vacuum box in the lower section of TCDD
2942f542 964 TVirtualMC::GetMC()->Gspos("Q11T", 1, "Q10T", 0., -1.1, 0., 0, "ONLY");
2aaaf0b7 965
966 // positioning TCDD elements in ZDCA, (inside TCDD volume)
2942f542 967 TVirtualMC::GetMC()->Gspos("Q08T", 1, "ZDCA", 0., fTCDDAperturePos, -100.+zd2, 0, "ONLY");
968 TVirtualMC::GetMC()->Gspos("Q10T", 1, "ZDCA", 0., -fTCDDApertureNeg, -100.+zd2, 0, "ONLY");
2aaaf0b7 969 printf(" AliZDCv4 -> TCDD apertures +%1.2f/-%1.2f cm\n",
970 fTCDDAperturePos, fTCDDApertureNeg);
971
972 // RF screen
973 boxpar[0] = 0.2/2.;
974 boxpar[1] = 4.0/2.;
975 boxpar[2] = 100./2.;
2942f542 976 TVirtualMC::GetMC()->Gsvolu("Q12T", "BOX ", idtmed[7], boxpar, 3);
2aaaf0b7 977 // positioning RF screen at both sides of TCDD
2942f542 978 TVirtualMC::GetMC()->Gspos("Q12T", 1, "ZDCA", tubspar[1]+boxpar[0], 0., -100.+zd2, 0, "ONLY");
979 TVirtualMC::GetMC()->Gspos("Q12T", 2, "ZDCA", -tubspar[1]-boxpar[0], 0., -100.+zd2, 0, "ONLY");
2aaaf0b7 980 //---------------------------- TCDD end ---------------------------------------
981
982 // The following elliptical tube 180 mm x 70 mm
983 // (obtained positioning the void QA06 in QA07)
984 // represents VAMTF + first part of VCTCP (93 mm)
985 // updated according to 2012 new ZDC installation
986
987 tubpar[0] = 18.4/2.;
988 tubpar[1] = 7.4/2.;
989 tubpar[2] = (78+9.3)/2.;
2942f542 990// TVirtualMC::GetMC()->Gsvolu("QA06", "ELTU", idtmed[7], tubpar, 3);
2aaaf0b7 991 // temporary replace with a scaled tube (AG)
992 TGeoTube *tubeQA06 = new TGeoTube(0.,tubpar[0],tubpar[2]);
993 TGeoScale *scaleQA06 = new TGeoScale(1., tubpar[1]/tubpar[0], 1.);
994 TGeoScaledShape *sshapeQA06 = new TGeoScaledShape(tubeQA06, scaleQA06);
995 new TGeoVolume("QA06", sshapeQA06, gGeoManager->GetMedium(idtmed[7]));
996 //printf(" QA06 TUBE from z = %1.2f to z = %1.2f (VAMTF+VCTCP-I)\n",zd2,2*tubpar[2]+zd2);
997
998 tubpar[0] = 18.0/2.;
999 tubpar[1] = 7.0/2.;
1000 tubpar[2] = (78+9.3)/2.;
2942f542 1001// TVirtualMC::GetMC()->Gsvolu("QA07", "ELTU", idtmed[10], tubpar, 3);
2aaaf0b7 1002 // temporary replace with a scaled tube (AG)
1003 TGeoTube *tubeQA07 = new TGeoTube(0.,tubpar[0],tubpar[2]);
1004 TGeoScale *scaleQA07 = new TGeoScale(1., tubpar[1]/tubpar[0], 1.);
1005 TGeoScaledShape *sshapeQA07 = new TGeoScaledShape(tubeQA07, scaleQA07);
1006 new TGeoVolume("QA07", sshapeQA07, gGeoManager->GetMedium(idtmed[10]));
1007 ////printf(" QA07 TUBE from z = %1.2f to z= %1.2f\n",zd2,2*tubpar[2]+zd2);
2942f542 1008 TVirtualMC::GetMC()->Gspos("QA06", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
1009 TVirtualMC::GetMC()->Gspos("QA07", 1, "QA06", 0., 0., 0., 0, "ONLY");
2aaaf0b7 1010
1011 zd2 += 2.*tubpar[2];
1012
1013 // VCTCP second part: transition cone from ID=180 to ID=212.7
1014 conpar[0] = 31.5/2.;
1015 conpar[1] = 18.0/2.;
1016 conpar[2] = 18.6/2.;
1017 conpar[3] = 21.27/2.;
1018 conpar[4] = 21.87/2.;
2942f542 1019 TVirtualMC::GetMC()->Gsvolu("QA08", "CONE", idtmed[7], conpar, 5);
1020 TVirtualMC::GetMC()->Gspos("QA08", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 1021 // Ch.debug
1022 //printf(" QA08 CONE from z = %f to z = %f (VCTCP-II)\n",zd2,2*conpar[0]+zd2);
1023
1024 zd2 += 2.*conpar[0];
1025
1026 // Tube ID 212.7 mm
1027 // Represents VCTCP third part (92 mm) + VCDWB (765 mm) + VMBGA (400 mm) +
1028 // VCDWE (300 mm) + VMBGA (400 mm)
1029 // + TCTVB space + VAMTF space (new installation Jan 2012)
1030 tubpar[0] = 21.27/2.;
1031 tubpar[1] = 21.87/2.;
1032 tubpar[2] = (195.7+148.+78.)/2.;
2942f542 1033 TVirtualMC::GetMC()->Gsvolu("QA09", "TUBE", idtmed[7], tubpar, 3);
1034 TVirtualMC::GetMC()->Gspos("QA09", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1035 //printf(" QA09 TUBE from z = %1.2f to z= %1.2f (VCTCP-III+VCDWB+VMBGA+VCDWE+VMBGA)\n",zd2,2*tubpar[2]+zd2);
1036
1037 zd2 += 2.*tubpar[2];
1038
1039 // skewed transition piece (ID=212.7 mm to 332 mm) (before TDI)
1040 conpar[0] = (50.0-0.73-1.13)/2.;
1041 conpar[1] = 21.27/2.;
1042 conpar[2] = 21.87/2.;
1043 conpar[3] = 33.2/2.;
1044 conpar[4] = 33.8/2.;
2942f542 1045 TVirtualMC::GetMC()->Gsvolu("QA10", "CONE", idtmed[7], conpar, 5);
1046 TVirtualMC::GetMC()->Gspos("QA10", 1, "ZDCA", -1.66, 0., conpar[0]+0.73+zd2, irotpipe4, "ONLY");
2aaaf0b7 1047 // Ch.debug
1048 //printf(" QA10 skewed CONE from z = %1.2f to z= %1.2f\n",zd2,2*conpar[0]+0.73+1.13+zd2);
1049
1050 zd2 += 2.*conpar[0]+0.73+1.13;
1051
1052 // Vacuum chamber containing TDI
1053 tubpar[0] = 0.;
1054 tubpar[1] = 54.6/2.;
1055 tubpar[2] = 540.0/2.;
2942f542 1056 TVirtualMC::GetMC()->Gsvolu("Q13TM", "TUBE", idtmed[10], tubpar, 3);
1057 TVirtualMC::GetMC()->Gspos("Q13TM", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1058 tubpar[0] = 54.0/2.;
1059 tubpar[1] = 54.6/2.;
1060 tubpar[2] = 540.0/2.;
2942f542 1061 TVirtualMC::GetMC()->Gsvolu("Q13T", "TUBE", idtmed[7], tubpar, 3);
1062 TVirtualMC::GetMC()->Gspos("Q13T", 1, "Q13TM", 0., 0., 0., 0, "ONLY");
2aaaf0b7 1063 // Ch.debug
1064 //printf(" Q13T TUBE from z = %1.2f to z= %1.2f (TDI vacuum chamber)\n",zd2,2*tubpar[2]+zd2);
1065
1066 zd2 += 2.*tubpar[2];
1067
1068 //---------------- INSERT TDI INSIDE Q13T -----------------------------------
1069 boxpar[0] = 11.0/2.;
1070 boxpar[1] = 9.0/2.;
7605b373 1071 boxpar[2] = 418.5/2.;
2942f542 1072 TVirtualMC::GetMC()->Gsvolu("QTD1", "BOX ", idtmed[7], boxpar, 3);
1073 TVirtualMC::GetMC()->Gspos("QTD1", 1, "Q13TM", -3.8, boxpar[1]+fTDIAperturePos, 0., 0, "ONLY");
2aaaf0b7 1074 boxpar[0] = 11.0/2.;
1075 boxpar[1] = 9.0/2.;
7605b373 1076 boxpar[2] = 418.5/2.;
2942f542 1077 TVirtualMC::GetMC()->Gsvolu("QTD2", "BOX ", idtmed[7], boxpar, 3);
1078 TVirtualMC::GetMC()->Gspos("QTD2", 1, "Q13TM", -3.8, -boxpar[1]-fTDIApertureNeg, 0., 0, "ONLY");
2aaaf0b7 1079 boxpar[0] = 5.1/2.;
1080 boxpar[1] = 0.2/2.;
7605b373 1081 boxpar[2] = 418.5/2.;
2942f542 1082 TVirtualMC::GetMC()->Gsvolu("QTD3", "BOX ", idtmed[7], boxpar, 3);
1083 TVirtualMC::GetMC()->Gspos("QTD3", 1, "Q13TM", -3.8+5.5+boxpar[0], fTDIAperturePos, 0., 0, "ONLY");
1084 TVirtualMC::GetMC()->Gspos("QTD3", 2, "Q13TM", -3.8+5.5+boxpar[0], -fTDIApertureNeg, 0., 0, "ONLY");
1085 TVirtualMC::GetMC()->Gspos("QTD3", 3, "Q13TM", -3.8-5.5-boxpar[0], fTDIAperturePos, 0., 0, "ONLY");
1086 TVirtualMC::GetMC()->Gspos("QTD3", 4, "Q13TM", -3.8-5.5-boxpar[0], -fTDIApertureNeg, 0., 0, "ONLY");
2aaaf0b7 1087 printf(" AliZDCv4 -> TDI apertures +%1.2f/-%1.2f cm\n",
1088 fTDIAperturePos, fTDIApertureNeg);
1089 //
1090 tubspar[0] = 12.0/2.;
1091 tubspar[1] = 12.4/2.;
7605b373 1092 tubspar[2] = 418.5/2.;
2aaaf0b7 1093 tubspar[3] = 90.;
1094 tubspar[4] = 270.;
7605b373 1095 TVirtualMC::GetMC()->Gsvolu("QTD4", "TUBS", idtmed[6], tubspar, 5);
2942f542 1096 TVirtualMC::GetMC()->Gspos("QTD4", 1, "Q13TM", -3.8-10.6, 0., 0., 0, "ONLY");
2aaaf0b7 1097 tubspar[0] = 12.0/2.;
1098 tubspar[1] = 12.4/2.;
7605b373 1099 tubspar[2] = 418.5/2.;
2aaaf0b7 1100 tubspar[3] = -90.;
1101 tubspar[4] = 90.;
7605b373 1102 TVirtualMC::GetMC()->Gsvolu("QTD5", "TUBS", idtmed[6], tubspar, 5);
2942f542 1103 TVirtualMC::GetMC()->Gspos("QTD5", 1, "Q13TM", -3.8+10.6, 0., 0., 0, "ONLY");
2aaaf0b7 1104 //---------------- END DEFINING TDI INSIDE Q13T -------------------------------
1105
1106 // VCTCG skewed transition piece (ID=332 mm to 212.7 mm) (after TDI)
1107 conpar[0] = (50.0-2.92-1.89)/2.;
1108 conpar[1] = 33.2/2.;
1109 conpar[2] = 33.8/2.;
1110 conpar[3] = 21.27/2.;
1111 conpar[4] = 21.87/2.;
2942f542 1112 TVirtualMC::GetMC()->Gsvolu("QA11", "CONE", idtmed[7], conpar, 5);
1113 TVirtualMC::GetMC()->Gspos("QA11", 1, "ZDCA", 4.32-3.8, 0., conpar[0]+2.92+zd2, irotpipe5, "ONLY");
2aaaf0b7 1114 // Ch.debug
1115 //printf(" QA11 skewed CONE from z = %f to z =%f (VCTCG)\n",zd2,2*conpar[0]+2.92+1.89+zd2);
1116
1117 zd2 += 2.*conpar[0]+2.92+1.89;
1118
1119 // The following tube ID 212.7 mm
1120 // represents VMBGA (400 mm) + VCDWE (300 mm) + VMBGA (400 mm) +
1121 // BTVTS (600 mm) + VMLGB (400 mm)
1122 tubpar[0] = 21.27/2.;
1123 tubpar[1] = 21.87/2.;
1124 tubpar[2] = 210.0/2.;
2942f542 1125 TVirtualMC::GetMC()->Gsvolu("QA12", "TUBE", idtmed[7], tubpar, 3);
1126 TVirtualMC::GetMC()->Gspos("QA12", 1, "ZDCA", 4., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1127 // Ch.debug
1128 //printf(" QA12 TUBE from z = %1.2f to z= %1.2f (VMBGA+VCDWE+VMBGA+BTVTS+VMLGB)\n",zd2,2*tubpar[2]+zd2);
1129
1130 zd2 += 2.*tubpar[2];
1131
1132 // First part of VCTCC
1133 // skewed transition cone from ID=212.7 mm to ID=797 mm
1134 conpar[0] = (121.0-0.37-1.35)/2.;
1135 conpar[1] = 21.27/2.;
1136 conpar[2] = 21.87/2.;
1137 conpar[3] = 79.7/2.;
1138 conpar[4] = 81.3/2.;
2942f542 1139 TVirtualMC::GetMC()->Gsvolu("QA13", "CONE", idtmed[7], conpar, 5);
1140 TVirtualMC::GetMC()->Gspos("QA13", 1, "ZDCA", 4.-2., 0., conpar[0]+0.37+zd2, irotpipe3, "ONLY");
2aaaf0b7 1141 // Ch.debug
1142 //printf(" QA13 CONE from z = %1.2f to z = %1.2f (VCTCC-I)\n",zd2,2*conpar[0]+0.37+1.35+zd2);
1143
1144 zd2 += 2.*conpar[0]+0.37+1.35;
1145
1146 // The following tube ID 797 mm
1147 // represents the second part of VCTCC (4272 mm) +
1148 // 4 x VCDGA (4 x 4272 mm) +
1149 // the first part of VCTCR (850 mm)
1150 // updated according to 2012 ZDC installation
1151 tubpar[0] = 79.7/2.;
1152 tubpar[1] = 81.3/2.;
1153 tubpar[2] = (2221.-136.)/2.;
2942f542 1154 TVirtualMC::GetMC()->Gsvolu("QA14", "TUBE", idtmed[7], tubpar, 3);
1155 TVirtualMC::GetMC()->Gspos("QA14", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1156 // Ch.debug
1157 //printf(" QA14 TUBE from z = %1.2f to z = %1.2f (VCTCC-II)\n",zd2,2*tubpar[2]+zd2);
1158
1159 zd2 += 2.*tubpar[2];
1160
1161 // Second part of VCTCR
1162 // Transition from ID=797 mm to ID=196 mm:
1163 // in order to simulate the thin window opened in the transition cone
1164 // we divide the transition cone in three cones:
1165 // (1) 8 mm thick (2) 3 mm thick (3) the third 8 mm thick
1166
1167 // (1) 8 mm thick
1168 conpar[0] = 9.09/2.; // 15 degree
1169 conpar[1] = 79.7/2.;
1170 conpar[2] = 81.3/2.; // thickness 8 mm
1171 conpar[3] = 74.82868/2.;
1172 conpar[4] = 76.42868/2.; // thickness 8 mm
2942f542 1173 TVirtualMC::GetMC()->Gsvolu("QA15", "CONE", idtmed[7], conpar, 5);
1174 TVirtualMC::GetMC()->Gspos("QA15", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 1175 //printf(" QA15 CONE from z = %1.2f to z= %1.2f (VCTCR-I)\n",zd2,2*conpar[0]+zd2);
1176
1177 zd2 += 2.*conpar[0];
1178
1179 // (2) 3 mm thick
1180 conpar[0] = 96.2/2.; // 15 degree
1181 conpar[1] = 74.82868/2.;
1182 conpar[2] = 75.42868/2.; // thickness 3 mm
1183 conpar[3] = 23.19588/2.;
1184 conpar[4] = 23.79588/2.; // thickness 3 mm
2942f542 1185 TVirtualMC::GetMC()->Gsvolu("QA16", "CONE", idtmed[7], conpar, 5);
1186 TVirtualMC::GetMC()->Gspos("QA16", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 1187 //printf(" QA16 CONE from z = %1.2f to z= %1.2f\n",zd2,2*conpar[0]+zd2);
1188
1189 zd2 += 2.*conpar[0];
1190
1191 // (3) 8 mm thick
1192 conpar[0] = 6.71/2.; // 15 degree
1193 conpar[1] = 23.19588/2.;
1194 conpar[2] = 24.79588/2.;// thickness 8 mm
1195 conpar[3] = 19.6/2.;
1196 conpar[4] = 21.2/2.;// thickness 8 mm
2942f542 1197 TVirtualMC::GetMC()->Gsvolu("QA17", "CONE", idtmed[7], conpar, 5);
1198 TVirtualMC::GetMC()->Gspos("QA17", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 1199 //printf(" QA17 CONE from z = %1.2f to z= %1.2f (VCTCR-II)\n",zd2,2*conpar[0]+zd2);
1200
1201 zd2 += 2.*conpar[0];
1202
1203 // Third part of VCTCR: tube (ID=196 mm)
1204 tubpar[0] = 19.6/2.;
1205 tubpar[1] = 21.2/2.;
1206 tubpar[2] = 9.55/2.;
2942f542 1207 TVirtualMC::GetMC()->Gsvolu("QA18", "TUBE", idtmed[7], tubpar, 3);
1208 TVirtualMC::GetMC()->Gspos("QA18", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1209 // Ch.debug
1210 //printf(" QA18 TUBE from z = %1.2f to z= %1.2f (VCTCR-III)\n",zd2,2*tubpar[2]+zd2);
1211
1212 zd2 += 2.*tubpar[2];
1213
1214 // Flange (ID=196 mm) (last part of VCTCR and first part of VMZAR)
1215 tubpar[0] = 19.6/2.;
1216 tubpar[1] = 25.3/2.;
1217 tubpar[2] = 4.9/2.;
2942f542 1218 TVirtualMC::GetMC()->Gsvolu("QF01", "TUBE", idtmed[7], tubpar, 3);
1219 TVirtualMC::GetMC()->Gspos("QF01", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1220 // Ch.debug
1221 //printf(" QF01 TUBE from z = %1.2f to z= %1.2f (VMZAR-I)\n",zd2,2*tubpar[2]+zd2);
1222
1223 zd2 += 2.*tubpar[2];
1224
1225 // VMZAR (5 volumes)
1226 tubpar[0] = 20.2/2.;
1227 tubpar[1] = 20.6/2.;
1228 tubpar[2] = 2.15/2.;
2942f542 1229 TVirtualMC::GetMC()->Gsvolu("QA19", "TUBE", idtmed[7], tubpar, 3);
1230 TVirtualMC::GetMC()->Gspos("QA19", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1231 // Ch.debug
1232 //printf(" QA19 TUBE from z = %1.2f to z = %1.2f (VMZAR-II)\n",zd2,2*tubpar[2]+zd2);
1233
1234 zd2 += 2.*tubpar[2];
1235
1236 conpar[0] = 6.9/2.;
1237 conpar[1] = 20.2/2.;
1238 conpar[2] = 20.6/2.;
1239 conpar[3] = 23.9/2.;
1240 conpar[4] = 24.3/2.;
2942f542 1241 TVirtualMC::GetMC()->Gsvolu("QA20", "CONE", idtmed[7], conpar, 5);
1242 TVirtualMC::GetMC()->Gspos("QA20", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 1243 // Ch.debug
1244 //printf(" QA20 CONE from z = %1.2f to z = %1.2f (VMZAR-III)\n",zd2,2*conpar[0]+zd2);
1245
1246 zd2 += 2.*conpar[0];
1247
1248 tubpar[0] = 23.9/2.;
1249 tubpar[1] = 25.5/2.;
1250 tubpar[2] = 17.0/2.;
2942f542 1251 TVirtualMC::GetMC()->Gsvolu("QA21", "TUBE", idtmed[7], tubpar, 3);
1252 TVirtualMC::GetMC()->Gspos("QA21", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1253 // Ch.debug
1254 //printf(" QA21 TUBE from z = %1.2f to z = %1.2f (VMZAR-IV)\n",zd2,2*tubpar[2]+zd2);
1255
1256 zd2 += 2.*tubpar[2];
1257
1258 conpar[0] = 6.9/2.;
1259 conpar[1] = 23.9/2.;
1260 conpar[2] = 24.3/2.;
1261 conpar[3] = 20.2/2.;
1262 conpar[4] = 20.6/2.;
2942f542 1263 TVirtualMC::GetMC()->Gsvolu("QA22", "CONE", idtmed[7], conpar, 5);
1264 TVirtualMC::GetMC()->Gspos("QA22", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 1265 // Ch.debug
1266 //printf(" QA22 CONE from z = %1.2f to z = %1.2f (VMZAR-V)\n",zd2,2*conpar[0]+zd2);
1267
1268 zd2 += 2.*conpar[0];
1269
1270 tubpar[0] = 20.2/2.;
1271 tubpar[1] = 20.6/2.;
1272 tubpar[2] = 2.15/2.;
2942f542 1273 TVirtualMC::GetMC()->Gsvolu("QA23", "TUBE", idtmed[7], tubpar, 3);
1274 TVirtualMC::GetMC()->Gspos("QA23", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1275 // Ch.debug
1276 //printf(" QA23 TUBE from z = %1.2f to z= %1.2f (VMZAR-VI)\n",zd2,2*tubpar[2]+zd2);
1277
1278 zd2 += 2.*tubpar[2];
1279
1280 // Flange (ID=196 mm)(last part of VMZAR and first part of VCTYD)
1281 tubpar[0] = 19.6/2.;
1282 tubpar[1] = 25.3/2.;
1283 tubpar[2] = 4.9/2.;
2942f542 1284 TVirtualMC::GetMC()->Gsvolu("QF02", "TUBE", idtmed[7], tubpar, 3);
1285 TVirtualMC::GetMC()->Gspos("QF02", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1286 // Ch.debug
1287 //printf(" QF02 TUBE from z = %1.2f to z= %1.2f (VMZAR-VII)\n",zd2,2*tubpar[2]+zd2);
1288
1289 zd2 += 2.*tubpar[2];
1290
1291 // simulation of the trousers (VCTYB)
1292 tubpar[0] = 19.6/2.;
1293 tubpar[1] = 20.0/2.;
1294 tubpar[2] = 3.9/2.;
2942f542 1295 TVirtualMC::GetMC()->Gsvolu("QA24", "TUBE", idtmed[7], tubpar, 3);
1296 TVirtualMC::GetMC()->Gspos("QA24", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1297 // Ch.debug
1298 //printf(" QA24 TUBE from z = %1.2f to z= %1.2f (VCTYB)\n",zd2,2*tubpar[2]+zd2);
1299
1300 zd2 += 2.*tubpar[2];
1301
1302 // transition cone from ID=196. to ID=216.6
1303 conpar[0] = 32.55/2.;
1304 conpar[1] = 19.6/2.;
1305 conpar[2] = 20.0/2.;
1306 conpar[3] = 21.66/2.;
1307 conpar[4] = 22.06/2.;
2942f542 1308 TVirtualMC::GetMC()->Gsvolu("QA25", "CONE", idtmed[7], conpar, 5);
1309 TVirtualMC::GetMC()->Gspos("QA25", 1, "ZDCA", 0., 0., conpar[0]+zd2, 0, "ONLY");
2aaaf0b7 1310 // Ch.debug
1311 //printf(" QA25 CONE from z = %1.2f to z= %1.2f (transition cone)\n",zd2,2*conpar[0]+zd2);
1312
1313 zd2 += 2.*conpar[0];
1314
1315 // tube
1316 tubpar[0] = 21.66/2.;
1317 tubpar[1] = 22.06/2.;
1318 tubpar[2] = 28.6/2.;
2942f542 1319 TVirtualMC::GetMC()->Gsvolu("QA26", "TUBE", idtmed[7], tubpar, 3);
1320 TVirtualMC::GetMC()->Gspos("QA26", 1, "ZDCA", 0., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1321 // Ch.debug
1322 //printf(" QA26 TUBE from z = %1.2f to z= %1.2f\n",zd2,2*tubpar[2]+zd2);
1323
1324 zd2 += 2.*tubpar[2];
1325 // Ch.debug
1326 //printf(" Begin of recombination chamber z = %1.2f\n",zd2);
1327
1328 // --------------------------------------------------------
1329 // RECOMBINATION CHAMBER IMPLEMENTED USING TGeo CLASSES!!!!
1330 // author: Chiara (June 2008)
1331 // --------------------------------------------------------
1332 // TRANSFORMATION MATRICES
1333 // Combi transformation:
1334 dx = -3.970000;
1335 dy = 0.000000;
1336 dz = 0.0;
1337 // Rotation:
1338 thx = 84.989100; phx = 0.000000;
1339 thy = 90.000000; phy = 90.000000;
1340 thz = 5.010900; phz = 180.000000;
1341 TGeoRotation *rotMatrix1 = new TGeoRotation("",thx,phx,thy,phy,thz,phz);
1342 // Combi transformation:
1343 dx = -3.970000;
1344 dy = 0.000000;
1345 dz = 0.0;
1346 TGeoCombiTrans *rotMatrix2 = new TGeoCombiTrans("ZDC_c1", dx,dy,dz,rotMatrix1);
1347 rotMatrix2->RegisterYourself();
1348 // Combi transformation:
1349 dx = 3.970000;
1350 dy = 0.000000;
1351 dz = 0.0;
1352 // Rotation:
1353 thx = 95.010900; phx = 0.000000;
1354 thy = 90.000000; phy = 90.000000;
1355 thz = 5.010900; phz = 0.000000;
1356 TGeoRotation *rotMatrix3 = new TGeoRotation("",thx,phx,thy,phy,thz,phz);
1357 TGeoCombiTrans *rotMatrix4 = new TGeoCombiTrans("ZDC_c2", dx,dy,dz,rotMatrix3);
1358 rotMatrix4->RegisterYourself();
1359
1360
1361 // VOLUMES DEFINITION
1362 // Volume: ZDCA
1363 TGeoVolume *pZDCA = gGeoManager->GetVolume("ZDCA");
1364
1365 conpar[0] = (90.1-0.95-0.26)/2.;
1366 conpar[1] = 0.0/2.;
1367 conpar[2] = 21.6/2.;
1368 conpar[3] = 0.0/2.;
1369 conpar[4] = 5.8/2.;
1370 new TGeoCone("QALext", conpar[0],conpar[1],conpar[2],conpar[3],conpar[4]);
1371
1372 conpar[0] = (90.1-0.95-0.26)/2.;
1373 conpar[1] = 0.0/2.;
1374 conpar[2] = 21.2/2.;
1375 conpar[3] = 0.0/2.;
1376 conpar[4] = 5.4/2.;
1377 new TGeoCone("QALint", conpar[0],conpar[1],conpar[2],conpar[3],conpar[4]);
1378
1379 // Outer trousers
1380 TGeoCompositeShape *pOutTrousers = new TGeoCompositeShape("outTrousers", "QALext:ZDC_c1+QALext:ZDC_c2");
1381
1382 // Volume: QALext
1383 //TGeoMedium *medZDCFe = gGeoManager->GetMedium("ZDC_ZIRON");
1384 TGeoVolume *pQALext = new TGeoVolume("QALext",pOutTrousers, medZDCFe);
1385 pQALext->SetLineColor(kBlue);
1386 pQALext->SetVisLeaves(kTRUE);
1387 //
1388 TGeoTranslation *tr1 = new TGeoTranslation(0., 0., (Double_t) conpar[0]+0.95+zd2);
1389 pZDCA->AddNode(pQALext, 1, tr1);
1390 // Inner trousers
1391 TGeoCompositeShape *pIntTrousers = new TGeoCompositeShape("intTrousers", "QALint:ZDC_c1+QALint:ZDC_c2");
1392 // Volume: QALint
1393 //TGeoMedium *medZDCvoid = gGeoManager->GetMedium("ZDC_ZVOID");
1394 TGeoVolume *pQALint = new TGeoVolume("QALint",pIntTrousers, medZDCvoid);
1395 pQALint->SetLineColor(kAzure);
1396 pQALint->SetVisLeaves(kTRUE);
1397 pQALext->AddNode(pQALint, 1);
1398
1399 zd2 += 90.1;
1400 // Ch.debug
1401 //printf(" End of recombination chamber z = %1.2f\n",zd2);
1402
1403
1404 // second section : 2 tubes (ID = 54. OD = 58.)
1405 tubpar[0] = 5.4/2.;
1406 tubpar[1] = 5.8/2.;
1407 tubpar[2] = 40.0/2.;
2942f542 1408 TVirtualMC::GetMC()->Gsvolu("QA27", "TUBE", idtmed[7], tubpar, 3);
1409 TVirtualMC::GetMC()->Gspos("QA27", 1, "ZDCA", -15.8/2., 0., tubpar[2]+zd2, 0, "ONLY");
1410 TVirtualMC::GetMC()->Gspos("QA27", 2, "ZDCA", 15.8/2., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1411 // Ch.debug
1412 //printf(" QA27 TUBE from z = %1.2f to z= %1.2f (separate pipes)\n",zd2,2*tubpar[2]+zd2);
1413
1414 zd2 += 2.*tubpar[2];
1415
1416 // transition x2zdc to recombination chamber : skewed cone
1417 conpar[0] = (10.-1.)/2.;
1418 conpar[1] = 5.4/2.;
1419 conpar[2] = 5.8/2.;
1420 conpar[3] = 6.3/2.;
1421 conpar[4] = 7.0/2.;
2942f542 1422 TVirtualMC::GetMC()->Gsvolu("QA28", "CONE", idtmed[7], conpar, 5);
1423 TVirtualMC::GetMC()->Gspos("QA28", 1, "ZDCA", -7.9-0.175, 0., conpar[0]+0.5+zd2, irotpipe1, "ONLY");
1424 TVirtualMC::GetMC()->Gspos("QA28", 2, "ZDCA", 7.9+0.175, 0., conpar[0]+0.5+zd2, irotpipe2, "ONLY");
2aaaf0b7 1425 //printf(" QA28 CONE from z = %1.2f to z= %1.2f (transition X2ZDC)\n",zd2,2*conpar[0]+0.2+zd2);
1426
1427 zd2 += 2.*conpar[0]+1.;
1428
1429 // 2 tubes (ID = 63 mm OD=70 mm)
1430 tubpar[0] = 6.3/2.;
1431 tubpar[1] = 7.0/2.;
1432 tubpar[2] = (342.5+498.3)/2.;
2942f542 1433 TVirtualMC::GetMC()->Gsvolu("QA29", "TUBE", idtmed[7], tubpar, 3);
1434 TVirtualMC::GetMC()->Gspos("QA29", 1, "ZDCA", -16.5/2., 0., tubpar[2]+zd2, 0, "ONLY");
1435 TVirtualMC::GetMC()->Gspos("QA29", 2, "ZDCA", 16.5/2., 0., tubpar[2]+zd2, 0, "ONLY");
2aaaf0b7 1436 //printf(" QA29 TUBE from z = %1.2f to z= %1.2f (separate pipes)\n",zd2,2*tubpar[2]+zd2);
1437
1438 zd2 += 2.*tubpar[2];
1439
1440 // -- Luminometer (Cu box) in front of ZN - side A
1441 if(fLumiLength>0.){
1442 boxpar[0] = 8.0/2.;
1443 boxpar[1] = 8.0/2.;
1444 boxpar[2] = fLumiLength/2.;
2942f542 1445 TVirtualMC::GetMC()->Gsvolu("QLUA", "BOX ", idtmed[9], boxpar, 3);
1446 TVirtualMC::GetMC()->Gspos("QLUA", 1, "ZDCA", 0., 0., fPosZNA[2]-66.-boxpar[2], 0, "ONLY");
2aaaf0b7 1447 printf(" A SIDE LUMINOMETER %1.2f < z < %1.2f\n\n", fPosZNA[2]-66., fPosZNA[2]-66.-2*boxpar[2]);
1448 }
1449 printf(" END OF A SIDE BEAM PIPE VOLUME DEFINITION AT z = %f m from IP2\n",zd2/100.);
1450
1451
1452 // ----------------------------------------------------------------
1453 // -- MAGNET DEFINITION -> LHC OPTICS 6.5
1454 // ----------------------------------------------------------------
1455 // ***************************************************************
1456 // SIDE C - RB26 (dimuon side)
1457 // ***************************************************************
1458 // -- COMPENSATOR DIPOLE (MBXW)
1459 zCorrDip = 1972.5;
1460
1461 // -- GAP (VACUUM WITH MAGNETIC FIELD)
1462 tubpar[0] = 0.;
1463 tubpar[1] = 3.14;
1464 tubpar[2] = 153./2.;
2942f542 1465 TVirtualMC::GetMC()->Gsvolu("MBXW", "TUBE", idtmed[11], tubpar, 3);
6278c352 1466 TVirtualMC::GetMC()->Gspos("MBXW", 1, "ZDCC", 0., 0., -tubpar[2]-zCorrDip, 0, "ONLY");
2aaaf0b7 1467 // -- YOKE
1468 tubpar[0] = 4.5;
1469 tubpar[1] = 55.;
6278c352 1470 tubpar[2] = 150./2.;
2942f542 1471 TVirtualMC::GetMC()->Gsvolu("YMBX", "TUBE", idtmed[7], tubpar, 3);
6278c352 1472 TVirtualMC::GetMC()->Gspos("YMBX", 1, "ZDCC", 0., 0., -1.5-tubpar[2]-zCorrDip, 0, "ONLY");
2aaaf0b7 1473
1474
1475 // -- INNER TRIPLET
1476 zInnTrip = 2296.5;
1477
1478 // -- DEFINE MQXL AND MQX QUADRUPOLE ELEMENT
1479 // -- MQXL
1480 // -- GAP (VACUUM WITH MAGNETIC FIELD)
1481 tubpar[0] = 0.;
1482 tubpar[1] = 3.14;
1483 tubpar[2] = 637./2.;
2942f542 1484 TVirtualMC::GetMC()->Gsvolu("MQXL", "TUBE", idtmed[11], tubpar, 3);
2aaaf0b7 1485
1486 // -- YOKE
1487 tubpar[0] = 3.5;
1488 tubpar[1] = 22.;
1489 tubpar[2] = 637./2.;
2942f542 1490 TVirtualMC::GetMC()->Gsvolu("YMQL", "TUBE", idtmed[7], tubpar, 3);
2aaaf0b7 1491
2942f542 1492 TVirtualMC::GetMC()->Gspos("MQXL", 1, "ZDCC", 0., 0., -tubpar[2]-zInnTrip, 0, "ONLY");
1493 TVirtualMC::GetMC()->Gspos("YMQL", 1, "ZDCC", 0., 0., -tubpar[2]-zInnTrip, 0, "ONLY");
2aaaf0b7 1494
2942f542 1495 TVirtualMC::GetMC()->Gspos("MQXL", 2, "ZDCC", 0., 0., -tubpar[2]-zInnTrip-2400., 0, "ONLY");
1496 TVirtualMC::GetMC()->Gspos("YMQL", 2, "ZDCC", 0., 0., -tubpar[2]-zInnTrip-2400., 0, "ONLY");
2aaaf0b7 1497
1498 // -- MQX
1499 // -- GAP (VACUUM WITH MAGNETIC FIELD)
1500 tubpar[0] = 0.;
1501 tubpar[1] = 3.14;
1502 tubpar[2] = 550./2.;
2942f542 1503 TVirtualMC::GetMC()->Gsvolu("MQX ", "TUBE", idtmed[11], tubpar, 3);
2aaaf0b7 1504
1505 // -- YOKE
1506 tubpar[0] = 3.5;
1507 tubpar[1] = 22.;
1508 tubpar[2] = 550./2.;
2942f542 1509 TVirtualMC::GetMC()->Gsvolu("YMQ ", "TUBE", idtmed[7], tubpar, 3);
2aaaf0b7 1510
2942f542 1511 TVirtualMC::GetMC()->Gspos("MQX ", 1, "ZDCC", 0., 0., -tubpar[2]-zInnTrip-908.5, 0, "ONLY");
1512 TVirtualMC::GetMC()->Gspos("YMQ ", 1, "ZDCC", 0., 0., -tubpar[2]-zInnTrip-908.5, 0, "ONLY");
2aaaf0b7 1513
2942f542 1514 TVirtualMC::GetMC()->Gspos("MQX ", 2, "ZDCC", 0., 0., -tubpar[2]-zInnTrip-1558.5, 0, "ONLY");
1515 TVirtualMC::GetMC()->Gspos("YMQ ", 2, "ZDCC", 0., 0., -tubpar[2]-zInnTrip-1558.5, 0, "ONLY");
2aaaf0b7 1516
1517 // -- SEPARATOR DIPOLE D1
1518 zD1 = 5838.3001;
1519
1520 // -- GAP (VACUUM WITH MAGNETIC FIELD)
1521 tubpar[0] = 0.;
1522 tubpar[1] = 3.46;
1523 tubpar[2] = 945./2.;
2942f542 1524 TVirtualMC::GetMC()->Gsvolu("MD1 ", "TUBE", idtmed[11], tubpar, 3);
2aaaf0b7 1525
1526 // -- Insert horizontal Cu plates inside D1
1527 // -- (to simulate the vacuum chamber)
1528 boxpar[0] = TMath::Sqrt(tubpar[1]*tubpar[1]-(2.98+0.2)*(2.98+0.2)) - 0.05;
1529 boxpar[1] = 0.2/2.;
1530 boxpar[2] = 945./2.;
2942f542 1531 TVirtualMC::GetMC()->Gsvolu("MD1V", "BOX ", idtmed[6], boxpar, 3);
1532 TVirtualMC::GetMC()->Gspos("MD1V", 1, "MD1 ", 0., 2.98+boxpar[1], 0., 0, "ONLY");
1533 TVirtualMC::GetMC()->Gspos("MD1V", 2, "MD1 ", 0., -2.98-boxpar[1], 0., 0, "ONLY");
2aaaf0b7 1534
1535 // -- YOKE
1536 tubpar[0] = 3.68;
1537 tubpar[1] = 110./2.;
1538 tubpar[2] = 945./2.;
2942f542 1539 TVirtualMC::GetMC()->Gsvolu("YD1 ", "TUBE", idtmed[7], tubpar, 3);
2aaaf0b7 1540
2942f542 1541 TVirtualMC::GetMC()->Gspos("YD1 ", 1, "ZDCC", 0., 0., -tubpar[2]-zD1, 0, "ONLY");
1542 TVirtualMC::GetMC()->Gspos("MD1 ", 1, "ZDCC", 0., 0., -tubpar[2]-zD1, 0, "ONLY");
2aaaf0b7 1543 // Ch debug
1544 //printf(" MD1 from z = %1.2f to z= %1.2f cm\n",-zD1, -zD1-2*tubpar[2]);
1545
1546 // -- DIPOLE D2
1547/* zD2 = 12167.8;
1548 // -- GAP (VACUUM WITH MAGNETIC FIELD)
1549 tubpar[0] = 0.;
1550 tubpar[1] = 7.5/2.;
1551 tubpar[2] = 945./2.;
2942f542 1552 TVirtualMC::GetMC()->Gsvolu("MD2 ", "TUBE", idtmed[11], tubpar, 3);
2aaaf0b7 1553
1554 // -- YOKE
1555 tubpar[0] = 0.;
1556 tubpar[1] = 55.;
1557 tubpar[2] = 945./2.;
2942f542 1558 TVirtualMC::GetMC()->Gsvolu("YD2 ", "TUBE", idtmed[7], tubpar, 3);
2aaaf0b7 1559
2942f542 1560 TVirtualMC::GetMC()->Gspos("YD2 ", 1, "ZDCC", 0., 0., -tubpar[2]-zD2, 0, "ONLY");
2aaaf0b7 1561 // Ch debug
1562 //printf(" YD2 from z = %1.2f to z= %1.2f cm\n",-zD2, -zD2-2*tubpar[2]);
1563
2942f542 1564 TVirtualMC::GetMC()->Gspos("MD2 ", 1, "YD2 ", -9.4, 0., 0., 0, "ONLY");
1565 TVirtualMC::GetMC()->Gspos("MD2 ", 2, "YD2 ", 9.4, 0., 0., 0, "ONLY");
2aaaf0b7 1566*/
1567 // ***************************************************************
1568 // SIDE A - RB24
1569 // ***************************************************************
1570
1571 // COMPENSATOR DIPOLE (MCBWA) (2nd compensator)
1572 // -- GAP (VACUUM WITH MAGNETIC FIELD)
1573 tubpar[0] = 0.;
1574 tubpar[1] = 3.;
1575 tubpar[2] = 153./2.;
2942f542 1576 TVirtualMC::GetMC()->Gsvolu("MCBW", "TUBE", idtmed[11], tubpar, 3);
1577 TVirtualMC::GetMC()->Gspos("MCBW", 1, "ZDCA", 0., 0., tubpar[2]+zCorrDip, 0, "ONLY");
2aaaf0b7 1578
1579 // -- YOKE
1580 tubpar[0] = 4.5;
1581 tubpar[1] = 55.;
1582 tubpar[2] = 153./2.;
2942f542 1583 TVirtualMC::GetMC()->Gsvolu("YMCB", "TUBE", idtmed[7], tubpar, 3);
1584 TVirtualMC::GetMC()->Gspos("YMCB", 1, "ZDCA", 0., 0., tubpar[2]+zCorrDip, 0, "ONLY");
2aaaf0b7 1585
1586 // -- INNER TRIPLET
1587 // -- DEFINE MQX1 AND MQX2 QUADRUPOLE ELEMENT
1588 // -- MQX1
1589 // -- GAP (VACUUM WITH MAGNETIC FIELD)
1590 tubpar[0] = 0.;
1591 tubpar[1] = 3.14;
1592 tubpar[2] = 637./2.;
2942f542 1593 TVirtualMC::GetMC()->Gsvolu("MQX1", "TUBE", idtmed[11], tubpar, 3);
1594 TVirtualMC::GetMC()->Gsvolu("MQX4", "TUBE", idtmed[11], tubpar, 3);
2aaaf0b7 1595
1596 // -- YOKE
1597 tubpar[0] = 3.5;
1598 tubpar[1] = 22.;
1599 tubpar[2] = 637./2.;
2942f542 1600 TVirtualMC::GetMC()->Gsvolu("YMQ1", "TUBE", idtmed[7], tubpar, 3);
2aaaf0b7 1601
1602 // -- Q1
2942f542 1603 TVirtualMC::GetMC()->Gspos("MQX1", 1, "ZDCA", 0., 0., tubpar[2]+zInnTrip, 0, "ONLY");
1604 TVirtualMC::GetMC()->Gspos("YMQ1", 1, "ZDCA", 0., 0., tubpar[2]+zInnTrip, 0, "ONLY");
2aaaf0b7 1605
1606 // -- BEAM SCREEN FOR Q1
1607 tubpar[0] = 4.78/2.;
1608 tubpar[1] = 5.18/2.;
1609 tubpar[2] = 637./2.;
2942f542 1610 TVirtualMC::GetMC()->Gsvolu("QBS1", "TUBE", idtmed[6], tubpar, 3);
1611 TVirtualMC::GetMC()->Gspos("QBS1", 1, "MQX1", 0., 0., 0., 0, "ONLY");
2aaaf0b7 1612 // INSERT VERTICAL PLATE INSIDE Q1
1613 boxpar[0] = 0.2/2.0;
1614 boxpar[1] = TMath::Sqrt(tubpar[0]*tubpar[0]-(1.9+0.2)*(1.9+0.2));
7605b373 1615 boxpar[2] = 637./2.;
2942f542 1616 TVirtualMC::GetMC()->Gsvolu("QBS2", "BOX ", idtmed[6], boxpar, 3);
1617 TVirtualMC::GetMC()->Gspos("QBS2", 1, "MQX1", 1.9+boxpar[0], 0., 0., 0, "ONLY");
1618 TVirtualMC::GetMC()->Gspos("QBS2", 2, "MQX1", -1.9-boxpar[0], 0., 0., 0, "ONLY");
2aaaf0b7 1619
1620 // -- Q3
2942f542 1621 TVirtualMC::GetMC()->Gspos("MQX4", 1, "ZDCA", 0., 0., tubpar[2]+zInnTrip+2400., 0, "ONLY");
1622 TVirtualMC::GetMC()->Gspos("YMQ1", 2, "ZDCA", 0., 0., tubpar[2]+zInnTrip+2400., 0, "ONLY");
2aaaf0b7 1623
1624 // -- BEAM SCREEN FOR Q3
1625 tubpar[0] = 5.79/2.;
1626 tubpar[1] = 6.14/2.;
1627 tubpar[2] = 637./2.;
2942f542 1628 TVirtualMC::GetMC()->Gsvolu("QBS3", "TUBE", idtmed[6], tubpar, 3);
1629 TVirtualMC::GetMC()->Gspos("QBS3", 1, "MQX4", 0., 0., 0., 0, "ONLY");
2aaaf0b7 1630 // INSERT VERTICAL PLATE INSIDE Q3
1631 boxpar[0] = 0.2/2.0;
1632 boxpar[1] = TMath::Sqrt(tubpar[0]*tubpar[0]-(2.405+0.2)*(2.405+0.2));
1633 boxpar[2] =637./2.;
2942f542 1634 TVirtualMC::GetMC()->Gsvolu("QBS4", "BOX ", idtmed[6], boxpar, 3);
1635 TVirtualMC::GetMC()->Gspos("QBS4", 1, "MQX4", 2.405+boxpar[0], 0., 0., 0, "ONLY");
1636 TVirtualMC::GetMC()->Gspos("QBS4", 2, "MQX4", -2.405-boxpar[0], 0., 0., 0, "ONLY");
2aaaf0b7 1637
1638
1639
1640 // -- MQX2
1641 // -- GAP (VACUUM WITH MAGNETIC FIELD)
1642 tubpar[0] = 0.;
1643 tubpar[1] = 3.14;
1644 tubpar[2] = 550./2.;
2942f542 1645 TVirtualMC::GetMC()->Gsvolu("MQX2", "TUBE", idtmed[11], tubpar, 3);
1646 TVirtualMC::GetMC()->Gsvolu("MQX3", "TUBE", idtmed[11], tubpar, 3);
2aaaf0b7 1647
1648 // -- YOKE
1649 tubpar[0] = 3.5;
1650 tubpar[1] = 22.;
1651 tubpar[2] = 550./2.;
2942f542 1652 TVirtualMC::GetMC()->Gsvolu("YMQ2", "TUBE", idtmed[7], tubpar, 3);
2aaaf0b7 1653
1654 // -- BEAM SCREEN FOR Q2
1655 tubpar[0] = 5.79/2.;
1656 tubpar[1] = 6.14/2.;
1657 tubpar[2] = 550./2.;
2942f542 1658 TVirtualMC::GetMC()->Gsvolu("QBS5", "TUBE", idtmed[6], tubpar, 3);
2aaaf0b7 1659 // VERTICAL PLATE INSIDE Q2
1660 boxpar[0] = 0.2/2.0;
1661 boxpar[1] = TMath::Sqrt(tubpar[0]*tubpar[0]-(2.405+0.2)*(2.405+0.2));
1662 boxpar[2] =550./2.;
2942f542 1663 TVirtualMC::GetMC()->Gsvolu("QBS6", "BOX ", idtmed[6], boxpar, 3);
2aaaf0b7 1664
1665 // -- Q2A
2942f542 1666 TVirtualMC::GetMC()->Gspos("MQX2", 1, "ZDCA", 0., 0., tubpar[2]+zInnTrip+908.5, 0, "ONLY");
1667 TVirtualMC::GetMC()->Gspos("QBS5", 1, "MQX2", 0., 0., 0., 0, "ONLY");
1668 TVirtualMC::GetMC()->Gspos("QBS6", 1, "MQX2", 2.405+boxpar[0], 0., 0., 0, "ONLY");
1669 TVirtualMC::GetMC()->Gspos("QBS6", 2, "MQX2", -2.405-boxpar[0], 0., 0., 0, "ONLY");
1670 TVirtualMC::GetMC()->Gspos("YMQ2", 1, "ZDCA", 0., 0., tubpar[2]+zInnTrip+908.5, 0, "ONLY");
2aaaf0b7 1671
1672
1673 // -- Q2B
2942f542 1674 TVirtualMC::GetMC()->Gspos("MQX3", 1, "ZDCA", 0., 0., tubpar[2]+zInnTrip+1558.5, 0, "ONLY");
1675 TVirtualMC::GetMC()->Gspos("QBS5", 2, "MQX3", 0., 0., 0., 0, "ONLY");
1676 TVirtualMC::GetMC()->Gspos("QBS6", 3, "MQX3", 2.405+boxpar[0], 0., 0., 0, "ONLY");
1677 TVirtualMC::GetMC()->Gspos("QBS6", 4, "MQX3", -2.405-boxpar[0], 0., 0., 0, "ONLY");
1678 TVirtualMC::GetMC()->Gspos("YMQ2", 2, "ZDCA", 0., 0., tubpar[2]+zInnTrip+1558.5, 0, "ONLY");
2aaaf0b7 1679
1680 // -- SEPARATOR DIPOLE D1
1681 // -- GAP (VACUUM WITH MAGNETIC FIELD)
1682 tubpar[0] = 0.;
1683 tubpar[1] = 6.75/2.;//3.375
1684 tubpar[2] = 945./2.;
2942f542 1685 TVirtualMC::GetMC()->Gsvolu("MD1L", "TUBE", idtmed[11], tubpar, 3);
2aaaf0b7 1686
1687 // -- The beam screen tube is provided by the beam pipe in D1 (QA03 volume)
1688 // -- Insert the beam screen horizontal Cu plates inside D1
1689 // -- (to simulate the vacuum chamber)
1690 boxpar[0] = TMath::Sqrt(tubpar[1]*tubpar[1]-(2.885+0.2)*(2.885+0.2));
1691 boxpar[1] = 0.2/2.;
1692 boxpar[2] =945./2.;
2942f542 1693 TVirtualMC::GetMC()->Gsvolu("QBS7", "BOX ", idtmed[6], boxpar, 3);
1694 TVirtualMC::GetMC()->Gspos("QBS7", 1, "MD1L", 0., 2.885+boxpar[1],0., 0, "ONLY");
1695 TVirtualMC::GetMC()->Gspos("QBS7", 2, "MD1L", 0., -2.885-boxpar[1],0., 0, "ONLY");
2aaaf0b7 1696
1697 // -- YOKE
1698 tubpar[0] = 3.68;
1699 tubpar[1] = 110./2;
1700 tubpar[2] = 945./2.;
2942f542 1701 TVirtualMC::GetMC()->Gsvolu("YD1L", "TUBE", idtmed[7], tubpar, 3);
2aaaf0b7 1702
2942f542 1703 TVirtualMC::GetMC()->Gspos("YD1L", 1, "ZDCA", 0., 0., tubpar[2]+zD1, 0, "ONLY");
1704 TVirtualMC::GetMC()->Gspos("MD1L", 1, "ZDCA", 0., 0., tubpar[2]+zD1, 0, "ONLY");
2aaaf0b7 1705
1706 // -- DIPOLE D2
1707 // -- GAP (VACUUM WITH MAGNETIC FIELD)
1708/* tubpar[0] = 0.;
1709 tubpar[1] = 7.5/2.; // this has to be checked
1710 tubpar[2] = 945./2.;
2942f542 1711 TVirtualMC::GetMC()->Gsvolu("MD2L", "TUBE", idtmed[11], tubpar, 3);
2aaaf0b7 1712
1713 // -- YOKE
1714 tubpar[0] = 0.;
1715 tubpar[1] = 55.;
1716 tubpar[2] = 945./2.;
2942f542 1717 TVirtualMC::GetMC()->Gsvolu("YD2L", "TUBE", idtmed[7], tubpar, 3);
2aaaf0b7 1718
2942f542 1719 TVirtualMC::GetMC()->Gspos("YD2L", 1, "ZDCA", 0., 0., tubpar[2]+zD2, 0, "ONLY");
2aaaf0b7 1720
2942f542 1721 TVirtualMC::GetMC()->Gspos("MD2L", 1, "YD2L", -9.4, 0., 0., 0, "ONLY");
1722 TVirtualMC::GetMC()->Gspos("MD2L", 2, "YD2L", 9.4, 0., 0., 0, "ONLY");
2aaaf0b7 1723*/
1724 // -- END OF MAGNET DEFINITION
1725}
1726
1727//_____________________________________________________________________________
1728void AliZDCv4::CreateZDC()
1729{
1730 //
1731 // Create the various ZDCs (ZN + ZP)
1732 //
1733
1734 Float_t dimPb[6], dimVoid[6];
1735
1736 Int_t *idtmed = fIdtmed->GetArray();
1737
362fd90e 1738 // Parameters for EM calorimeter geometry
1739 // NB -> parameters used ONLY in CreateZDC()
1740 Float_t kDimZEMPb = 0.15*(TMath::Sqrt(2.)); // z-dimension of the Pb slice
1741 Float_t kFibRadZEM = 0.0315; // External fiber radius (including cladding)
1742 Int_t fDivZEM[3] = {92, 0, 20}; // Divisions for EM detector
1743 Float_t fDimZEM[6] = {fZEMLength, 3.5, 3.5, 45., 0., 0.}; // Dimensions of EM detector
1744 Float_t fFibZEM2 = fDimZEM[2]/TMath::Sin(fDimZEM[3]*kDegrad)-kFibRadZEM;
1745 Float_t fFibZEM[3] = {0., 0.0275, fFibZEM2}; // Fibers for EM calorimeter
1746
1747if(!fOnlyZEM){
2aaaf0b7 1748 // Parameters for hadronic calorimeters geometry
1749 // NB -> parameters used ONLY in CreateZDC()
1750 Float_t fGrvZN[3] = {0.03, 0.03, 50.}; // Grooves for neutron detector
1751 Float_t fGrvZP[3] = {0.04, 0.04, 75.}; // Grooves for proton detector
1752 Int_t fDivZN[3] = {11, 11, 0}; // Division for neutron detector
1753 Int_t fDivZP[3] = {7, 15, 0}; // Division for proton detector
1754 Int_t fTowZN[2] = {2, 2}; // Tower for neutron detector
1755 Int_t fTowZP[2] = {4, 1}; // Tower for proton detector
1756
2aaaf0b7 1757
1758
1759 //-- Create calorimeters geometry
1760
1761 // -------------------------------------------------------------------------------
1762 //--> Neutron calorimeter (ZN)
1763
2942f542 1764 TVirtualMC::GetMC()->Gsvolu("ZNEU", "BOX ", idtmed[1], fDimZN, 3); // Passive material
1765 TVirtualMC::GetMC()->Gsvolu("ZNF1", "TUBE", idtmed[3], fFibZN, 3); // Active material
1766 TVirtualMC::GetMC()->Gsvolu("ZNF2", "TUBE", idtmed[4], fFibZN, 3);
1767 TVirtualMC::GetMC()->Gsvolu("ZNF3", "TUBE", idtmed[4], fFibZN, 3);
1768 TVirtualMC::GetMC()->Gsvolu("ZNF4", "TUBE", idtmed[3], fFibZN, 3);
1769 TVirtualMC::GetMC()->Gsvolu("ZNG1", "BOX ", idtmed[12], fGrvZN, 3); // Empty grooves
1770 TVirtualMC::GetMC()->Gsvolu("ZNG2", "BOX ", idtmed[12], fGrvZN, 3);
1771 TVirtualMC::GetMC()->Gsvolu("ZNG3", "BOX ", idtmed[12], fGrvZN, 3);
1772 TVirtualMC::GetMC()->Gsvolu("ZNG4", "BOX ", idtmed[12], fGrvZN, 3);
2aaaf0b7 1773
1774 // Divide ZNEU in towers (for hits purposes)
1775
2942f542 1776 TVirtualMC::GetMC()->Gsdvn("ZNTX", "ZNEU", fTowZN[0], 1); // x-tower
1777 TVirtualMC::GetMC()->Gsdvn("ZN1 ", "ZNTX", fTowZN[1], 2); // y-tower
2aaaf0b7 1778
1779 //-- Divide ZN1 in minitowers
1780 // fDivZN[0]= NUMBER OF FIBERS PER TOWER ALONG X-AXIS,
1781 // fDivZN[1]= NUMBER OF FIBERS PER TOWER ALONG Y-AXIS
1782 // (4 fibres per minitower)
1783
2942f542 1784 TVirtualMC::GetMC()->Gsdvn("ZNSL", "ZN1 ", fDivZN[1], 2); // Slices
1785 TVirtualMC::GetMC()->Gsdvn("ZNST", "ZNSL", fDivZN[0], 1); // Sticks
2aaaf0b7 1786
1787 // --- Position the empty grooves in the sticks (4 grooves per stick)
1788 Float_t dx = fDimZN[0] / fDivZN[0] / 4.;
1789 Float_t dy = fDimZN[1] / fDivZN[1] / 4.;
1790
2942f542 1791 TVirtualMC::GetMC()->Gspos("ZNG1", 1, "ZNST", 0.-dx, 0.+dy, 0., 0, "ONLY");
1792 TVirtualMC::GetMC()->Gspos("ZNG2", 1, "ZNST", 0.+dx, 0.+dy, 0., 0, "ONLY");
1793 TVirtualMC::GetMC()->Gspos("ZNG3", 1, "ZNST", 0.-dx, 0.-dy, 0., 0, "ONLY");
1794 TVirtualMC::GetMC()->Gspos("ZNG4", 1, "ZNST", 0.+dx, 0.-dy, 0., 0, "ONLY");
2aaaf0b7 1795
1796 // --- Position the fibers in the grooves
2942f542 1797 TVirtualMC::GetMC()->Gspos("ZNF1", 1, "ZNG1", 0., 0., 0., 0, "ONLY");
1798 TVirtualMC::GetMC()->Gspos("ZNF2", 1, "ZNG2", 0., 0., 0., 0, "ONLY");
1799 TVirtualMC::GetMC()->Gspos("ZNF3", 1, "ZNG3", 0., 0., 0., 0, "ONLY");
1800 TVirtualMC::GetMC()->Gspos("ZNF4", 1, "ZNG4", 0., 0., 0., 0, "ONLY");
2aaaf0b7 1801
1802 // --- Position the neutron calorimeter in ZDC
1803 // -- Rotation of ZDCs
1804 Int_t irotzdc;
2942f542 1805 TVirtualMC::GetMC()->Matrix(irotzdc, 90., 180., 90., 90., 180., 0.);
2aaaf0b7 1806 //
2942f542 1807 TVirtualMC::GetMC()->Gspos("ZNEU", 1, "ZDCC", fPosZNC[0], fPosZNC[1], fPosZNC[2]-fDimZN[2], irotzdc, "ONLY");
2aaaf0b7 1808 //Ch debug
1809 //printf("\n ZN -> %f < z < %f cm\n",fPosZN[2],fPosZN[2]-2*fDimZN[2]);
1810
1811 // --- Position the neutron calorimeter in ZDC2 (left line)
1812 // -- No Rotation of ZDCs
2942f542 1813 TVirtualMC::GetMC()->Gspos("ZNEU", 2, "ZDCA", fPosZNA[0], fPosZNA[1], fPosZNA[2]+fDimZN[2], 0, "ONLY");
2aaaf0b7 1814 //Ch debug
7605b373 1815 printf("\n ZNA -> %f < z < %f cm\n",fPosZNA[2],fPosZNA[2]+2*fDimZN[2]);
2aaaf0b7 1816
1817
1818 // -------------------------------------------------------------------------------
1819 //--> Proton calorimeter (ZP)
1820
2942f542 1821 TVirtualMC::GetMC()->Gsvolu("ZPRO", "BOX ", idtmed[2], fDimZP, 3); // Passive material
1822 TVirtualMC::GetMC()->Gsvolu("ZPF1", "TUBE", idtmed[3], fFibZP, 3); // Active material
1823 TVirtualMC::GetMC()->Gsvolu("ZPF2", "TUBE", idtmed[4], fFibZP, 3);
1824 TVirtualMC::GetMC()->Gsvolu("ZPF3", "TUBE", idtmed[4], fFibZP, 3);
1825 TVirtualMC::GetMC()->Gsvolu("ZPF4", "TUBE", idtmed[3], fFibZP, 3);
1826 TVirtualMC::GetMC()->Gsvolu("ZPG1", "BOX ", idtmed[12], fGrvZP, 3); // Empty grooves
1827 TVirtualMC::GetMC()->Gsvolu("ZPG2", "BOX ", idtmed[12], fGrvZP, 3);
1828 TVirtualMC::GetMC()->Gsvolu("ZPG3", "BOX ", idtmed[12], fGrvZP, 3);
1829 TVirtualMC::GetMC()->Gsvolu("ZPG4", "BOX ", idtmed[12], fGrvZP, 3);
2aaaf0b7 1830
1831 //-- Divide ZPRO in towers(for hits purposes)
1832
2942f542 1833 TVirtualMC::GetMC()->Gsdvn("ZPTX", "ZPRO", fTowZP[0], 1); // x-tower
1834 TVirtualMC::GetMC()->Gsdvn("ZP1 ", "ZPTX", fTowZP[1], 2); // y-tower
2aaaf0b7 1835
1836
1837 //-- Divide ZP1 in minitowers
1838 // fDivZP[0]= NUMBER OF FIBERS ALONG X-AXIS PER MINITOWER,
1839 // fDivZP[1]= NUMBER OF FIBERS ALONG Y-AXIS PER MINITOWER
1840 // (4 fiber per minitower)
1841
2942f542 1842 TVirtualMC::GetMC()->Gsdvn("ZPSL", "ZP1 ", fDivZP[1], 2); // Slices
1843 TVirtualMC::GetMC()->Gsdvn("ZPST", "ZPSL", fDivZP[0], 1); // Sticks
2aaaf0b7 1844
1845 // --- Position the empty grooves in the sticks (4 grooves per stick)
1846 dx = fDimZP[0] / fTowZP[0] / fDivZP[0] / 2.;
1847 dy = fDimZP[1] / fTowZP[1] / fDivZP[1] / 2.;
1848
2942f542 1849 TVirtualMC::GetMC()->Gspos("ZPG1", 1, "ZPST", 0.-dx, 0.+dy, 0., 0, "ONLY");
1850 TVirtualMC::GetMC()->Gspos("ZPG2", 1, "ZPST", 0.+dx, 0.+dy, 0., 0, "ONLY");
1851 TVirtualMC::GetMC()->Gspos("ZPG3", 1, "ZPST", 0.-dx, 0.-dy, 0., 0, "ONLY");
1852 TVirtualMC::GetMC()->Gspos("ZPG4", 1, "ZPST", 0.+dx, 0.-dy, 0., 0, "ONLY");
2aaaf0b7 1853
1854 // --- Position the fibers in the grooves
2942f542 1855 TVirtualMC::GetMC()->Gspos("ZPF1", 1, "ZPG1", 0., 0., 0., 0, "ONLY");
1856 TVirtualMC::GetMC()->Gspos("ZPF2", 1, "ZPG2", 0., 0., 0., 0, "ONLY");
1857 TVirtualMC::GetMC()->Gspos("ZPF3", 1, "ZPG3", 0., 0., 0., 0, "ONLY");
1858 TVirtualMC::GetMC()->Gspos("ZPF4", 1, "ZPG4", 0., 0., 0., 0, "ONLY");
2aaaf0b7 1859
1860
1861 // --- Position the proton calorimeter in ZDCC
2942f542 1862 TVirtualMC::GetMC()->Gspos("ZPRO", 1, "ZDCC", fPosZPC[0], fPosZPC[1], fPosZPC[2]-fDimZP[2], irotzdc, "ONLY");
2aaaf0b7 1863 //Ch debug
1864 //printf("\n ZP -> %f < z < %f cm\n",fPosZP[2],fPosZP[2]-2*fDimZP[2]);
1865
1866 // --- Position the proton calorimeter in ZDCA
1867 // --- No rotation
2942f542 1868 TVirtualMC::GetMC()->Gspos("ZPRO", 2, "ZDCA", fPosZPA[0], fPosZPA[1], fPosZPA[2]+fDimZP[2], 0, "ONLY");
2aaaf0b7 1869 //Ch debug
7605b373 1870 printf("\n ZPA -> %f < z < %f cm\n",fPosZPA[2],fPosZPA[2]+2*fDimZP[2]);
362fd90e 1871}
2aaaf0b7 1872
1873 // -------------------------------------------------------------------------------
1874 // -> EM calorimeter (ZEM)
1875
2942f542 1876 TVirtualMC::GetMC()->Gsvolu("ZEM ", "PARA", idtmed[10], fDimZEM, 6);
2aaaf0b7 1877
1878 Int_t irot1, irot2;
2942f542 1879 TVirtualMC::GetMC()->Matrix(irot1,0.,0.,90.,90.,-90.,0.); // Rotation matrix 1
1880 TVirtualMC::GetMC()->Matrix(irot2,180.,0.,90.,fDimZEM[3]+90.,90.,fDimZEM[3]);// Rotation matrix 2
2aaaf0b7 1881 //printf("irot1 = %d, irot2 = %d \n", irot1, irot2);
1882
2942f542 1883 TVirtualMC::GetMC()->Gsvolu("ZEMF", "TUBE", idtmed[3], fFibZEM, 3); // Active material
2aaaf0b7 1884
2942f542 1885 TVirtualMC::GetMC()->Gsdvn("ZETR", "ZEM ", fDivZEM[2], 1); // Tranches
2aaaf0b7 1886
1887 dimPb[0] = kDimZEMPb; // Lead slices
1888 dimPb[1] = fDimZEM[2];
1889 dimPb[2] = fDimZEM[1];
1890 //dimPb[3] = fDimZEM[3]; //controllare
1891 dimPb[3] = 90.-fDimZEM[3]; //originale
1892 dimPb[4] = 0.;
1893 dimPb[5] = 0.;
2942f542 1894 TVirtualMC::GetMC()->Gsvolu("ZEL0", "PARA", idtmed[5], dimPb, 6);
1895 TVirtualMC::GetMC()->Gsvolu("ZEL1", "PARA", idtmed[5], dimPb, 6);
1896 TVirtualMC::GetMC()->Gsvolu("ZEL2", "PARA", idtmed[5], dimPb, 6);
2aaaf0b7 1897
1898 // --- Position the lead slices in the tranche
1899 Float_t zTran = fDimZEM[0]/fDivZEM[2];
1900 Float_t zTrPb = -zTran+kDimZEMPb;
2942f542 1901 TVirtualMC::GetMC()->Gspos("ZEL0", 1, "ZETR", zTrPb, 0., 0., 0, "ONLY");
1902 TVirtualMC::GetMC()->Gspos("ZEL1", 1, "ZETR", kDimZEMPb, 0., 0., 0, "ONLY");
2aaaf0b7 1903
1904 // --- Vacuum zone (to be filled with fibres)
1905 dimVoid[0] = (zTran-2*kDimZEMPb)/2.;
1906 dimVoid[1] = fDimZEM[2];
1907 dimVoid[2] = fDimZEM[1];
1908 dimVoid[3] = 90.-fDimZEM[3];
1909 dimVoid[4] = 0.;
1910 dimVoid[5] = 0.;
2942f542 1911 TVirtualMC::GetMC()->Gsvolu("ZEV0", "PARA", idtmed[10], dimVoid,6);
1912 TVirtualMC::GetMC()->Gsvolu("ZEV1", "PARA", idtmed[10], dimVoid,6);
2aaaf0b7 1913
1914 // --- Divide the vacuum slice into sticks along x axis
2942f542 1915 TVirtualMC::GetMC()->Gsdvn("ZES0", "ZEV0", fDivZEM[0], 3);
1916 TVirtualMC::GetMC()->Gsdvn("ZES1", "ZEV1", fDivZEM[0], 3);
2aaaf0b7 1917
1918 // --- Positioning the fibers into the sticks
2942f542 1919 TVirtualMC::GetMC()->Gspos("ZEMF", 1,"ZES0", 0., 0., 0., irot2, "ONLY");
1920 TVirtualMC::GetMC()->Gspos("ZEMF", 1,"ZES1", 0., 0., 0., irot2, "ONLY");
2aaaf0b7 1921
1922 // --- Positioning the vacuum slice into the tranche
1923 //Float_t displFib = fDimZEM[1]/fDivZEM[0];
2942f542 1924 TVirtualMC::GetMC()->Gspos("ZEV0", 1,"ZETR", -dimVoid[0], 0., 0., 0, "ONLY");
1925 TVirtualMC::GetMC()->Gspos("ZEV1", 1,"ZETR", -dimVoid[0]+zTran, 0., 0., 0, "ONLY");
2aaaf0b7 1926
1927 // --- Positioning the ZEM into the ZDC - rotation for 90 degrees
1928 // NB -> ZEM is positioned in ALIC (instead of in ZDC) volume
2942f542 1929 TVirtualMC::GetMC()->Gspos("ZEM ", 1,"ALIC", -fPosZEM[0], fPosZEM[1], fPosZEM[2]+fDimZEM[0], irot1, "ONLY");
2aaaf0b7 1930
1931 // Second EM ZDC (same side w.r.t. IP, just on the other side w.r.t. beam pipe)
2942f542 1932 TVirtualMC::GetMC()->Gspos("ZEM ", 2,"ALIC", fPosZEM[0], fPosZEM[1], fPosZEM[2]+fDimZEM[0], irot1, "ONLY");
2aaaf0b7 1933
1934 // --- Adding last slice at the end of the EM calorimeter
1935 Float_t zLastSlice = fPosZEM[2]+kDimZEMPb+2*fDimZEM[0];
2942f542 1936 TVirtualMC::GetMC()->Gspos("ZEL2", 1,"ALIC", fPosZEM[0], fPosZEM[1], zLastSlice, irot1, "ONLY");
2aaaf0b7 1937 //Ch debug
1938 //printf("\n ZEM lenght = %f cm\n",2*fZEMLength);
1939 //printf("\n ZEM -> %f < z < %f cm\n",fPosZEM[2],fPosZEM[2]+2*fZEMLength+zLastSlice+kDimZEMPb);
1940
1941}
1942
1943//_____________________________________________________________________________
1944void AliZDCv4::CreateMaterials()
1945{
1946 //
1947 // Create Materials for the Zero Degree Calorimeter
1948 //
7605b373 1949 Float_t dens=0., ubuf[1]={0.};
1950 Float_t wmat[3]={0.,0,0}, a[3]={0.,0,0}, z[3]={0.,0,0};
2aaaf0b7 1951
1952 // --- W alloy -> ZN passive material
1953 dens = 17.6;
1954 a[0] = 183.85;
1955 a[1] = 55.85;
1956 a[2] = 58.71;
1957 z[0] = 74.;
1958 z[1] = 26.;
1959 z[2] = 28.;
1960 wmat[0] = .93;
1961 wmat[1] = .03;
1962 wmat[2] = .04;
1963 AliMixture(1, "WALL", a, z, dens, 3, wmat);
1964
1965 // --- Brass (CuZn) -> ZP passive material
1966 dens = 8.48;
1967 a[0] = 63.546;
1968 a[1] = 65.39;
1969 z[0] = 29.;
1970 z[1] = 30.;
1971 wmat[0] = .63;
1972 wmat[1] = .37;
1973 AliMixture(2, "BRASS", a, z, dens, 2, wmat);
1974
1975 // --- SiO2
1976 dens = 2.64;
1977 a[0] = 28.086;
1978 a[1] = 15.9994;
1979 z[0] = 14.;
1980 z[1] = 8.;
1981 wmat[0] = 1.;
1982 wmat[1] = 2.;
1983 AliMixture(3, "SIO2", a, z, dens, -2, wmat);
1984
1985 // --- Lead
1986 ubuf[0] = 1.12;
1987 AliMaterial(5, "LEAD", 207.19, 82., 11.35, .56, 0., ubuf, 1);
1988
1989 // --- Copper (energy loss taken into account)
1990 ubuf[0] = 1.10;
1991 AliMaterial(6, "COPP0", 63.54, 29., 8.96, 1.4, 0., ubuf, 1);
1992
1993 // --- Copper
1994 ubuf[0] = 1.10;
1995 AliMaterial(9, "COPP1", 63.54, 29., 8.96, 1.4, 0., ubuf, 1);
1996
1997 // --- Iron (energy loss taken into account)
1998 ubuf[0] = 1.1;
1999 AliMaterial(7, "IRON0", 55.85, 26., 7.87, 1.76, 0., ubuf, 1);
2000
2001 // --- Iron (no energy loss)
2002 ubuf[0] = 1.1;
2003 AliMaterial(8, "IRON1", 55.85, 26., 7.87, 1.76, 0., ubuf, 1);
2004
2005 // --- Tatalum
2006 ubuf[0] = 1.1;
2007 AliMaterial(13, "TANT", 183.84, 74., 19.3, 0.35, 0., ubuf, 1);
2008
2009 // ---------------------------------------------------------
2010 Float_t aResGas[3]={1.008,12.0107,15.9994};
2011 Float_t zResGas[3]={1.,6.,8.};
2012 Float_t wResGas[3]={0.28,0.28,0.44};
2013 Float_t dResGas = 3.2E-14;
2014
2015 // --- Vacuum (no magnetic field)
2016 AliMixture(10, "VOID", aResGas, zResGas, dResGas, 3, wResGas);
2017
2018 // --- Vacuum (with magnetic field)
2019 AliMixture(11, "VOIM", aResGas, zResGas, dResGas, 3, wResGas);
2020
2021 // --- Air (no magnetic field)
2022 Float_t aAir[4]={12.0107,14.0067,15.9994,39.948};
2023 Float_t zAir[4]={6.,7.,8.,18.};
2024 Float_t wAir[4]={0.000124,0.755267,0.231781,0.012827};
2025 Float_t dAir = 1.20479E-3;
2026 //
2027 AliMixture(12, "Air $", aAir, zAir, dAir, 4, wAir);
2028
2029 // --- Definition of tracking media:
2030
2031 // --- Tantalum = 1 ;
2032 // --- Brass = 2 ;
2033 // --- Fibers (SiO2) = 3 ;
2034 // --- Fibers (SiO2) = 4 ;
2035 // --- Lead = 5 ;
2036 // --- Copper (with high thr.)= 6 ;
2037 // --- Copper (with low thr.)= 9;
2038 // --- Iron (with energy loss) = 7 ;
2039 // --- Iron (without energy loss) = 8 ;
2040 // --- Vacuum (no field) = 10
2041 // --- Vacuum (with field) = 11
2042 // --- Air (no field) = 12
2043
2044 // ****************************************************
2045 // Tracking media parameters
2046 //
2047 Float_t epsil = 0.01; // Tracking precision,
2048 Float_t stmin = 0.01; // Min. value 4 max. step (cm)
2049 Float_t stemax = 1.; // Max. step permitted (cm)
2050 Float_t tmaxfd = 0.; // Maximum angle due to field (degrees)
2051 Float_t tmaxfdv = 0.1; // Maximum angle due to field (degrees)
2052 Float_t deemax = -1.; // Maximum fractional energy loss
2053 Float_t nofieldm = 0.; // Max. field value (no field)
2054 Float_t fieldm = 45.; // Max. field value (with field)
2055 Int_t isvol = 0; // ISVOL =0 -> not sensitive volume
2056 Int_t isvolActive = 1; // ISVOL =1 -> sensitive volume
2057 Int_t inofld = 0; // IFIELD=0 -> no magnetic field
7605b373 2058 Int_t ifield = 2; // IFIELD=2 -> magnetic field defined in AliMagFC.h
2aaaf0b7 2059 // *****************************************************
2060
2061 AliMedium(1, "ZWALL", 1, isvolActive, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
2062 AliMedium(2, "ZBRASS",2, isvolActive, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
2063 AliMedium(3, "ZSIO2", 3, isvolActive, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
2064 AliMedium(4, "ZQUAR", 3, isvolActive, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
2065 AliMedium(5, "ZLEAD", 5, isvolActive, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
7605b373 2066 AliMedium(6, "ZCOPP", 6, isvol, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
2067 AliMedium(7, "ZIRON", 7, isvol, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
2068 AliMedium(8, "ZIRONN",8, isvol, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
2069 AliMedium(9, "ZCOPL", 6, isvol, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
2070 AliMedium(10,"ZVOID",10, isvol, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
2071 AliMedium(11,"ZVOIM",11, isvol, ifield, fieldm, tmaxfdv,stemax, deemax, epsil, stmin);
2aaaf0b7 2072 AliMedium(12,"ZAIR", 12, isvolActive, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
2073 AliMedium(13,"ZTANT",13, isvolActive, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
7605b373 2074 AliMedium(14,"ZIRONT",7, isvol, inofld, nofieldm, tmaxfd, stemax, deemax, epsil, stmin);
2aaaf0b7 2075
2076}
2077
2078//_____________________________________________________________________________
2079void AliZDCv4::AddAlignableVolumes() const
2080{
2081 //
2082 // Create entries for alignable volumes associating the symbolic volume
2083 // name with the corresponding volume path. Needs to be syncronized with
2084 // eventual changes in the geometry.
2085 //
362fd90e 2086 if(fOnlyZEM) return;
2087
2aaaf0b7 2088 TString volpath1 = "ALIC_1/ZDCC_1/ZNEU_1";
2089 TString volpath2 = "ALIC_1/ZDCC_1/ZPRO_1";
2090 TString volpath3 = "ALIC_1/ZDCA_1/ZNEU_2";
2091 TString volpath4 = "ALIC_1/ZDCA_1/ZPRO_2";
2092
2093 TString symname1="ZDC/NeutronZDC_C";
2094 TString symname2="ZDC/ProtonZDC_C";
2095 TString symname3="ZDC/NeutronZDC_A";
2096 TString symname4="ZDC/ProtonZDC_A";
2097
2098 if(!gGeoManager->SetAlignableEntry(symname1.Data(),volpath1.Data()))
2099 AliFatal(Form("Alignable entry %s not created. Volume path %s not valid", symname1.Data(),volpath1.Data()));
2100
2101 if(!gGeoManager->SetAlignableEntry(symname2.Data(),volpath2.Data()))
2102 AliFatal(Form("Alignable entry %s not created. Volume path %s not valid", symname2.Data(),volpath2.Data()));
2103
2104 if(!gGeoManager->SetAlignableEntry(symname3.Data(),volpath3.Data()))
2105 AliFatal(Form("Alignable entry %s not created. Volume path %s not valid", symname1.Data(),volpath1.Data()));
2106
2107 if(!gGeoManager->SetAlignableEntry(symname4.Data(),volpath4.Data()))
2108 AliFatal(Form("Alignable entry %s not created. Volume path %s not valid", symname2.Data(),volpath2.Data()));
2109
2110}
2111
2112
2113//_____________________________________________________________________________
2114void AliZDCv4::Init()
2115{
2116 InitTables();
2117 Int_t *idtmed = fIdtmed->GetArray();
2118 //
2119 fMedSensZN = idtmed[1]; // Sensitive volume: ZN passive material
2120 fMedSensZP = idtmed[2]; // Sensitive volume: ZP passive material
2121 fMedSensF1 = idtmed[3]; // Sensitive volume: fibres type 1
2122 fMedSensF2 = idtmed[4]; // Sensitive volume: fibres type 2
2123 fMedSensZEM = idtmed[5]; // Sensitive volume: ZEM passive material
2124 fMedSensTDI = idtmed[6]; // Sensitive volume: TDI Cu shield
2125 fMedSensPI = idtmed[7]; // Sensitive volume: beam pipes
2126 fMedSensLumi = idtmed[9]; // Sensitive volume: luminometer
2127 fMedSensGR = idtmed[12]; // Sensitive volume: air into the grooves
2128 fMedSensVColl = idtmed[13]; // Sensitive volume: collimator jaws
2129}
2130
2131//_____________________________________________________________________________
2132void AliZDCv4::InitTables()
2133{
2134 //
2135 // Read light tables for Cerenkov light production parameterization
2136 //
2137
2138 Int_t k, j;
2139 int read=1;
2140
2141 // --- Reading light tables for ZN
2142 char *lightfName1 = gSystem->ExpandPathName("$ALICE_ROOT/ZDC/light22620362207s");
2143 FILE *fp1 = fopen(lightfName1,"r");
2144 if(fp1 == NULL){
7605b373 2145 printf("Cannot open light table from file %s \n",lightfName1);
2aaaf0b7 2146 return;
2147 }
2148 else{
2149 for(k=0; k<fNalfan; k++){
2150 for(j=0; j<fNben; j++){
2151 read = fscanf(fp1,"%f",&fTablen[0][k][j]);
2152 if(read==0) AliDebug(3, " Error in reading light table 1");
2153 }
2154 }
2155 fclose(fp1);
2156 }
2157 char *lightfName2 = gSystem->ExpandPathName("$ALICE_ROOT/ZDC/light22620362208s");
2158 FILE *fp2 = fopen(lightfName2,"r");
2159 if(fp2 == NULL){
7605b373 2160 printf("Cannot open light table from file %s \n",lightfName2);
2aaaf0b7 2161 return;
2162 }
2163 else{
2164 for(k=0; k<fNalfan; k++){
2165 for(j=0; j<fNben; j++){
2166 read = fscanf(fp2,"%f",&fTablen[1][k][j]);
2167 if(read==0) AliDebug(3, " Error in reading light table 2");
2168 }
2169 }
2170 fclose(fp2);
2171 }
2172 char *lightfName3 = gSystem->ExpandPathName("$ALICE_ROOT/ZDC/light22620362209s");
2173 FILE *fp3 = fopen(lightfName3,"r");
2174 if(fp3 == NULL){
7605b373 2175 printf("Cannot open light table from file %s \n",lightfName3);
2aaaf0b7 2176 return;
2177 }
2178 else{
2179 for(k=0; k<fNalfan; k++){
2180 for(j=0; j<fNben; j++){
2181 read = fscanf(fp3,"%f",&fTablen[2][k][j]);
2182 if(read==0) AliDebug(3, " Error in reading light table 3");
2183 }
2184 }
2185 fclose(fp3);
2186 }
2187 char *lightfName4 = gSystem->ExpandPathName("$ALICE_ROOT/ZDC/light22620362210s");
2188 FILE *fp4 = fopen(lightfName4,"r");
2189 if(fp4 == NULL){
7605b373 2190 printf("Cannot open light table from file %s \n",lightfName4);
2aaaf0b7 2191 return;
2192 }
2193 else{
2194 for(k=0; k<fNalfan; k++){
2195 for(j=0; j<fNben; j++){
2196 read = fscanf(fp4,"%f",&fTablen[3][k][j]);
2197 if(read==0) AliDebug(3, " Error in reading light table 4");
2198 }
2199 }
2200 fclose(fp4);
2201 }
2202
2203 // --- Reading light tables for ZP and ZEM
2204 char *lightfName5 = gSystem->ExpandPathName("$ALICE_ROOT/ZDC/light22620552207s");
2205 FILE *fp5 = fopen(lightfName5,"r");
2206 if(fp5 == NULL){
7605b373 2207 printf("Cannot open light table from file %s \n",lightfName5);
2aaaf0b7 2208 return;
2209 }
2210 else{
2211 for(k=0; k<fNalfap; k++){
2212 for(j=0; j<fNbep; j++){
2213 read = fscanf(fp5,"%f",&fTablep[0][k][j]);
2214 if(read==0) AliDebug(3, " Error in reading light table 5");
2215 }
2216 }
2217 fclose(fp5);
2218 }
2219 char *lightfName6 = gSystem->ExpandPathName("$ALICE_ROOT/ZDC/light22620552208s");
2220 FILE *fp6 = fopen(lightfName6,"r");
2221 if(fp6 == NULL){
7605b373 2222 printf("Cannot open light table from file %s \n",lightfName6);
2aaaf0b7 2223 return;
2224 }
2225 else{
2226 for(k=0; k<fNalfap; k++){
2227 for(j=0; j<fNbep; j++){
2228 read = fscanf(fp6,"%f",&fTablep[1][k][j]);
2229 if(read==0) AliDebug(3, " Error in reading light table 6");
2230 }
2231 }
2232 fclose(fp6);
2233 }
2234 char *lightfName7 = gSystem->ExpandPathName("$ALICE_ROOT/ZDC/light22620552209s");
2235 FILE *fp7 = fopen(lightfName7,"r");
2236 if(fp7 == NULL){
7605b373 2237 printf("Cannot open light table from file %s \n",lightfName7);
2aaaf0b7 2238 return;
2239 }
2240 else{
2241 for(k=0; k<fNalfap; k++){
2242 for(j=0; j<fNbep; j++){
2243 read = fscanf(fp7,"%f",&fTablep[2][k][j]);
2244 if(read==0) AliDebug(3, " Error in reading light table 7");
2245 }
2246 }
2247 fclose(fp7);
2248 }
2249 char *lightfName8 = gSystem->ExpandPathName("$ALICE_ROOT/ZDC/light22620552210s");
2250 FILE *fp8 = fopen(lightfName8,"r");
2251 if(fp8 == NULL){
7605b373 2252 printf("Cannot open light table from file %s \n",lightfName8);
2aaaf0b7 2253 return;
2254 }
2255 else{
2256 for(k=0; k<fNalfap; k++){
2257 for(j=0; j<fNbep; j++){
2258 read = fscanf(fp8,"%f",&fTablep[3][k][j]);
2259 if(read==0) AliDebug(3, " Error in reading light table 8");
2260 }
2261 }
2262 fclose(fp8);
2263 }
2264
2265}
2266//_____________________________________________________________________________
2267void AliZDCv4::StepManager()
2268{
2269 //
2270 // Routine called at every step in the Zero Degree Calorimeters
2271 //
7605b373 2272 Int_t j=0, vol[2]={0,0}, ibeta=0, ialfa=0, ibe=0, nphe=0;
2273 Float_t x[3]={0.,0.,0.}, xdet[3]={999.,999.,999.}, um[3]={0.,0.,0.}, ud[3]={0.,0.,0.};
2aaaf0b7 2274 Float_t destep=0., be=0., out=0.;
7605b373 2275 Double_t s[3]={0.,0.,0.}, p[4]={0.,0.,0.,0.};
2aaaf0b7 2276 //
7605b373 2277 Float_t hits[14];
949a5a55 2278 for(j=0;j<14;j++) hits[j]=-999.;
7605b373 2279 const char *knamed = (TVirtualMC::GetMC())->CurrentVolName();
2280 Int_t mid = TVirtualMC::GetMC()->CurrentMedium();
2281
2282 // Study spectator protons distributions at TDI z
2283 /*TVirtualMC::GetMC()->TrackPosition(s[0],s[1],s[2]);
2284 if(s[2]>=7813.30 && s[2]<=8353.30){
2285 //printf(" \t**** particle in vol. %s\n ",knamed);
2286 TVirtualMC::GetMC()->TrackMomentum(p[0], p[1], p[2], p[3]);
2287 Int_t ctrack = gAlice->GetMCApp()->GetCurrentTrackNumber();
2288 TParticle *cpart = gAlice->GetMCApp()->Particle(ctrack);
2289 printf("\t TDIpc %d %f %f %f %f \n", cpart->GetPdgCode(), s[0],s[1],s[2],p[3]);
2290 }
2291 else if(s[2]>=8353.30 && s[2]<=8403.30){
2292 TVirtualMC::GetMC()->TrackMomentum(p[0], p[1], p[2], p[3]);
2293 Int_t ctrack = gAlice->GetMCApp()->GetCurrentTrackNumber();
2294 TParticle *cpart = gAlice->GetMCApp()->Particle(ctrack);
2295 printf("\t TDIpc %d %f %f %f %f \n", cpart->GetPdgCode(), s[0],s[1],s[2],p[3]);
2296 }
2297 else if(s[2]>8403.30){
2298 TVirtualMC::GetMC()->StopTrack();
2299 return;
2300 }*/
2aaaf0b7 2301 //
2302 // --- This part is for no shower developement in beam pipe, TDI, VColl
2303 // If particle interacts with beam pipe, TDI, VColl -> return
7605b373 2304 if(fNoShower==1 && ((mid == fMedSensPI) || (mid == fMedSensTDI) ||
2305 (mid == fMedSensVColl) || (mid == fMedSensLumi))){
2306
2307 // Avoid to stop track in skewed cones between recombination chambers or separate beam pipes and ZDC (Jan 2015)
2308 if((strncmp(knamed,"QA27",4)) && (strncmp(knamed,"QA28",4)) &&
2309 (strncmp(knamed,"QA29",4))){ // true if it is NOT in QA27 || QA28 || QA29
2aaaf0b7 2310
2311 // If option NoShower is set -> StopTrack
7605b373 2312 //printf(" \t**** particle in vol. %s\n ",knamed);
2313
2aaaf0b7 2314 Int_t ipr = 0;
2942f542 2315 TVirtualMC::GetMC()->TrackPosition(s[0],s[1],s[2]);
7605b373 2316 //printf("\t\t(x,y,z) = (%f, %f, %f)\n", s[0], s[1], s[2]);
2317 TVirtualMC::GetMC()->TrackMomentum(p[0], p[1], p[2], p[3]);
2318
2319 if(mid == fMedSensPI){
2aaaf0b7 2320 if(!strncmp(knamed,"YMQ",3)){
2321 if(s[2]<0) fpLostITC += 1;
2322 else fpLostITA += 1;
2323 ipr=1;
2324 }
7605b373 2325 else if(!strncmp(knamed,"QA02",4)){
2326 if((s[2]>26.15 && s[2]<32.52) || (s[2]>34.80 && s[2]<40.30) ||
2327 (s[2]>41.30 && s[2]<46.80) || (s[2]>50.15 && s[2]<56.52)) fpLostITA += 1;
2328 }
2aaaf0b7 2329 else if(!strncmp(knamed,"YD1",3)){
2330 if(s[2]<0) fpLostD1C += 1;
2331 else fpLostD1A += 1;
2332 ipr=1;
2333 }
7605b373 2334 else if(!strncmp(knamed,"QA03",4)) fpLostD1A += 1;
2335 else if(!strncmp(knamed,"QT02",4)) fpLostD1C += 1;
2336 else if(!strncmp(knamed,"QTD",3) || strncmp(knamed,"Q13T",4)) fpLostTDI += 1;
2aaaf0b7 2337 }
7605b373 2338 else if(mid == fMedSensTDI){ // fMedSensTDI also involves beam screen inside IT and D1
2339 if(!strncmp(knamed,"QBS1",4) || !strncmp(knamed,"QBS2",4) || // beam screens inside Q1
2340 !strncmp(knamed,"QBS3",4) || !strncmp(knamed,"QBS4",4) || // beam screens inside Q3
2341 !strncmp(knamed,"QBS5",4) || !strncmp(knamed,"QBS6",4) // beam screens inside Q2A/Q2B
2342 ){
2343 if(s[2]<0) fpLostITC += 1;
2344 else fpLostITA += 1;
2345 }
2346 else if(!strncmp(knamed,"MD1",3)){
2347 if(s[2]<0) fpLostD1C += 1;
2348 else fpLostD1A += 1;
2aaaf0b7 2349 }
2350 else if(!strncmp(knamed,"QTD",3)) fpLostTDI += 1;
7605b373 2351 ipr=1;
2aaaf0b7 2352 }
7605b373 2353 else if(mid == fMedSensVColl){
2aaaf0b7 2354 if(!strncmp(knamed,"QCVC",4)) fpcVCollC++;
2355 else if(!strncmp(knamed,"QCVA",4)) fpcVCollA++;
2356 ipr=1;
2357 }
2358 //
2aaaf0b7 2359 //printf("\t Particle: mass = %1.3f, E = %1.3f GeV, pz = %1.2f GeV -> stopped in volume %s\n",
7605b373 2360 // TVirtualMC::GetMC()->TrackMass(), p[3], p[2], knamed);
2aaaf0b7 2361 //
03f508de 2362 if(ipr<0){
2aaaf0b7 2363 printf("\n\t **********************************\n");
2364 printf("\t ********** Side C **********\n");
2365 printf("\t # of particles in IT = %d\n",fpLostITC);
2366 printf("\t # of particles in D1 = %d\n",fpLostD1C);
2367 printf("\t # of particles in VColl = %d\n",fpcVCollC);
2368 printf("\t ********** Side A **********\n");
2369 printf("\t # of particles in IT = %d\n",fpLostITA);
2370 printf("\t # of particles in D1 = %d\n",fpLostD1A);
2371 printf("\t # of particles in TDI = %d\n",fpLostTDI);
2372 printf("\t # of particles in VColl = %d\n",fpcVCollA);
2373 printf("\t **********************************\n");
03f508de 2374 }
2942f542 2375 TVirtualMC::GetMC()->StopTrack();
2aaaf0b7 2376 return;
7605b373 2377 }
2aaaf0b7 2378 }
2379
7605b373 2380 if((mid == fMedSensZN) || (mid == fMedSensZP) ||
2381 (mid == fMedSensGR) || (mid == fMedSensF1) ||
2382 (mid == fMedSensF2) || (mid == fMedSensZEM)){
2aaaf0b7 2383
2384
2385 //Particle coordinates
2942f542 2386 TVirtualMC::GetMC()->TrackPosition(s[0],s[1],s[2]);
2aaaf0b7 2387 for(j=0; j<=2; j++) x[j] = s[j];
2388 hits[0] = x[0];
2389 hits[1] = x[1];
2390 hits[2] = x[2];
2391
2392 // Determine in which ZDC the particle is
2aaaf0b7 2393 if(!strncmp(knamed,"ZN",2)){
2394 if(x[2]<0.) vol[0]=1; // ZNC (dimuon side)
2395 else if(x[2]>0.) vol[0]=4; //ZNA
2396 }
2397 else if(!strncmp(knamed,"ZP",2)){
2398 if(x[2]<0.) vol[0]=2; //ZPC (dimuon side)
2399 else if(x[2]>0.) vol[0]=5; //ZPA
2400 }
2401 else if(!strncmp(knamed,"ZE",2)) vol[0]=3; //ZEM
2402
2403 // Determine in which quadrant the particle is
2404 if(vol[0]==1){ //Quadrant in ZNC
2405 // Calculating particle coordinates inside ZNC
2406 xdet[0] = x[0]-fPosZNC[0];
2407 xdet[1] = x[1]-fPosZNC[1];
2408 // Calculating quadrant in ZN
2409 if(xdet[0]<=0.){
2410 if(xdet[1]<=0.) vol[1]=1;
2411 else vol[1]=3;
2412 }
2413 else if(xdet[0]>0.){
2414 if(xdet[1]<=0.) vol[1]=2;
2415 else vol[1]=4;
2416 }
2417 }
2418
2419 else if(vol[0]==2){ //Quadrant in ZPC
2420 // Calculating particle coordinates inside ZPC
2421 xdet[0] = x[0]-fPosZPC[0];
2422 xdet[1] = x[1]-fPosZPC[1];
2423 if(xdet[0]>=fDimZP[0]) xdet[0]=fDimZP[0]-0.01;
2424 if(xdet[0]<=-fDimZP[0]) xdet[0]=-fDimZP[0]+0.01;
2425 // Calculating tower in ZP
2426 Float_t xqZP = xdet[0]/(fDimZP[0]/2.);
2427 for(int i=1; i<=4; i++){
2428 if(xqZP>=(i-3) && xqZP<(i-2)){
2429 vol[1] = i;
2430 break;
2431 }
2432 }
2433 }
2434 //
2435 // Quadrant in ZEM: vol[1] = 1 -> particle in 1st ZEM (placed at x = 8.5 cm)
2436 // vol[1] = 2 -> particle in 2nd ZEM (placed at x = -8.5 cm)
2437 else if(vol[0] == 3){
2438 if(x[0]>0.){
2439 vol[1] = 1;
2440 // Particle x-coordinate inside ZEM1
2441 xdet[0] = x[0]-fPosZEM[0];
2442 }
2443 else{
2444 vol[1] = 2;
2445 // Particle x-coordinate inside ZEM2
2446 xdet[0] = x[0]+fPosZEM[0];
2447 }
2448 xdet[1] = x[1]-fPosZEM[1];
2449 }
2450 //
2451 else if(vol[0]==4){ //Quadrant in ZNA
2452 // Calculating particle coordinates inside ZNA
2453 xdet[0] = x[0]-fPosZNA[0];
2454 xdet[1] = x[1]-fPosZNA[1];
2455 // Calculating quadrant in ZNA
2456 if(xdet[0]>=0.){
2457 if(xdet[1]<=0.) vol[1]=1;
2458 else vol[1]=3;
2459 }
2460 else if(xdet[0]<0.){
2461 if(xdet[1]<=0.) vol[1]=2;
2462 else vol[1]=4;
2463 }
2464 }
2465 //
2466 else if(vol[0]==5){ //Quadrant in ZPA
2467 // Calculating particle coordinates inside ZPA
2468 xdet[0] = x[0]-fPosZPA[0];
2469 xdet[1] = x[1]-fPosZPA[1];
2470 if(xdet[0]>=fDimZP[0]) xdet[0]=fDimZP[0]-0.01;
2471 if(xdet[0]<=-fDimZP[0]) xdet[0]=-fDimZP[0]+0.01;
2472 // Calculating tower in ZP
2473 Float_t xqZP = -xdet[0]/(fDimZP[0]/2.);
2474 for(int i=1; i<=4; i++){
2475 if(xqZP>=(i-3) && xqZP<(i-2)){
2476 vol[1] = i;
2477 break;
2478 }
2479 }
2480 }
2481 if((vol[1]!=1) && (vol[1]!=2) && (vol[1]!=3) && (vol[1]!=4))
2482 AliError(Form(" WRONG tower for det %d: tow %d with xdet=(%f, %f)\n",
2483 vol[0], vol[1], xdet[0], xdet[1]));
2484 // Ch. debug
2485 //printf("\t *** det %d vol %d xdet(%f, %f)\n",vol[0], vol[1], xdet[0], xdet[1]);
2486
2487
2488 // Store impact point and kinetic energy of the ENTERING particle
2489
2942f542 2490 if(TVirtualMC::GetMC()->IsTrackEntering()){
2aaaf0b7 2491 //Particle energy
2942f542 2492 TVirtualMC::GetMC()->TrackMomentum(p[0],p[1],p[2],p[3]);
2aaaf0b7 2493 hits[3] = p[3];
2494
2495 // Impact point on ZDC
2496 // X takes into account the LHC x-axis sign
2497 // which is opposite to positive x on detector front face
2498 // for side A detectors (ZNA and ZPA)
2499 if(vol[0]==4 || vol[0]==5){
2500 hits[4] = -xdet[0];
2501 }
2502 else{
2503 hits[4] = xdet[0];
2504 }
2505 hits[5] = xdet[1];
b8aa9154 2506 hits[6] = 0;
2aaaf0b7 2507 hits[7] = 0;
2508 hits[8] = 0;
2509 hits[9] = 0;
2510 //
2511 Int_t curTrackN = gAlice->GetMCApp()->GetCurrentTrackNumber();
2512 TParticle *part = gAlice->GetMCApp()->Particle(curTrackN);
2513 hits[10] = part->GetPdgCode();
b8aa9154 2514 hits[11] = 0;
2942f542 2515 hits[12] = 1.0e09*TVirtualMC::GetMC()->TrackTime(); // in ns!
b8aa9154 2516 hits[13] = part->Eta();
2aaaf0b7 2517 //
b8aa9154 2518 if(fFindMother){
2519 Int_t imo = part->GetFirstMother();
2520 //printf(" tracks: pc %d -> mother %d \n", curTrackN,imo);
2521
2522 int trmo = imo;
2523 TParticle *pmot = 0x0;
2524 Bool_t isChild = kFALSE;
2525 if(imo>-1){
2526 pmot = gAlice->GetMCApp()->Particle(imo);
2527 trmo = pmot->GetFirstMother();
2528 isChild = kTRUE;
2529 while(trmo!=-1){
2530 pmot = gAlice->GetMCApp()->Particle(trmo);
2531 //printf(" **** pc %d -> mother %d \n", trch,trmo);
2532 trmo = pmot->GetFirstMother();
2533 }
2534 }
362fd90e 2535
b8aa9154 2536 if(isChild && pmot){
2537 hits[6] = 1;
2538 hits[11] = pmot->GetPdgCode();
2539 hits[13] = pmot->Eta();
2540 }
362fd90e 2541 }
2542
2aaaf0b7 2543
2544 AddHit(curTrackN, vol, hits);
2545
2546 if(fNoShower==1){
2547 if(vol[0]==1){
2548 fnDetectedC += 1;
7605b373 2549 //printf(" ### Particle in ZNC\n\n");
2aaaf0b7 2550 }
2551 else if(vol[0]==2){
2552 fpDetectedC += 1;
7605b373 2553 //printf(" ### Particle in ZPC\n\n");
2aaaf0b7 2554 }
362fd90e 2555 //else if(vol[0]==3) printf(" ### Particle in ZEM\n\n");
2aaaf0b7 2556 else if(vol[0]==4){
2557 fnDetectedA += 1;
7605b373 2558 //printf(" ### Particle in ZNA\n\n");
2aaaf0b7 2559 }
2560 else if(vol[0]==5){
2561 fpDetectedA += 1;
7605b373 2562 //printf(" ### Particle in ZPA\n\n");
2aaaf0b7 2563 }
2564 //
7605b373 2565 //printf("\t Track %d: x %1.2f y %1.2f z %1.2f E %1.2f GeV pz = %1.2f GeV in volume %s -> det %d\n",
2566 // gAlice->GetMCApp()->GetCurrentTrackNumber(),x[0],x[1],x[2],p[3],p[2],knamed, vol[0]);
2567 printf("\t Track %d: pc %d E %1.2f GeV pz = %1.2f GeV in volume %s -> det %d\n",
2568 gAlice->GetMCApp()->GetCurrentTrackNumber(),part->GetPdgCode(),p[3],p[2],knamed, vol[0]);
2aaaf0b7 2569 //
2942f542 2570 TVirtualMC::GetMC()->StopTrack();
2aaaf0b7 2571 return;
2572 }
2573 }
2574
2575 // Particle energy loss
2942f542 2576 if(TVirtualMC::GetMC()->Edep() != 0){
2577 hits[9] = TVirtualMC::GetMC()->Edep();
2aaaf0b7 2578 hits[7] = 0.;
2579 hits[8] = 0.;
2580 AddHit(gAlice->GetMCApp()->GetCurrentTrackNumber(), vol, hits);
2581 }
2582 }
2583
2584
2585 // *** Light production in fibres
7605b373 2586 if((mid == fMedSensF1) || (mid == fMedSensF2)){
2aaaf0b7 2587
2588 //Select charged particles
2942f542 2589 if((destep=TVirtualMC::GetMC()->Edep())){
2aaaf0b7 2590
2591 // Particle velocity
2592 Float_t beta = 0.;
2942f542 2593 TVirtualMC::GetMC()->TrackMomentum(p[0],p[1],p[2],p[3]);
2aaaf0b7 2594 Float_t ptot=TMath::Sqrt(p[0]*p[0]+p[1]*p[1]+p[2]*p[2]);
2595 if(p[3] > 0.00001) beta = ptot/p[3];
2596 else return;
2597 if(beta<0.67)return;
2598 else if((beta>=0.67) && (beta<=0.75)) ibeta = 0;
2599 else if((beta>0.75) && (beta<=0.85)) ibeta = 1;
2600 else if((beta>0.85) && (beta<=0.95)) ibeta = 2;
2601 else if(beta>0.95) ibeta = 3;
2602
2603 // Angle between particle trajectory and fibre axis
2604 // 1 -> Momentum directions
2605 um[0] = p[0]/ptot;
2606 um[1] = p[1]/ptot;
2607 um[2] = p[2]/ptot;
2942f542 2608 TVirtualMC::GetMC()->Gmtod(um,ud,2);
2aaaf0b7 2609 // 2 -> Angle < limit angle
2610 Double_t alfar = TMath::ACos(ud[2]);
2611 Double_t alfa = alfar*kRaddeg;
2612 if(alfa>=110.) return;
2613 //
2614 ialfa = Int_t(1.+alfa/2.);
2615
2616 // Distance between particle trajectory and fibre axis
2942f542 2617 TVirtualMC::GetMC()->TrackPosition(s[0],s[1],s[2]);
2aaaf0b7 2618 for(j=0; j<=2; j++){
2619 x[j] = s[j];
2620 }
2942f542 2621 TVirtualMC::GetMC()->Gmtod(x,xdet,1);
2aaaf0b7 2622 if(TMath::Abs(ud[0])>0.00001){
2623 Float_t dcoeff = ud[1]/ud[0];
2624 be = TMath::Abs((xdet[1]-dcoeff*xdet[0])/TMath::Sqrt(dcoeff*dcoeff+1.));
2625 }
2626 else{
2627 be = TMath::Abs(ud[0]);
2628 }
2629
2630 ibe = Int_t(be*1000.+1);
2631
2632 //Looking into the light tables
5d8211c6 2633 Float_t charge = 0.;
2634 Int_t curTrackN = gAlice->GetMCApp()->GetCurrentTrackNumber();
2635 TParticle *part = gAlice->GetMCApp()->Particle(curTrackN);
2636 Int_t pdgCode = part->GetPdgCode();
2942f542 2637 if(pdgCode<10000) charge = TVirtualMC::GetMC()->TrackCharge();
5d8211c6 2638 else{
2639 float z = (pdgCode/10000-100000);
2640 charge = TMath::Abs(z);
2641 //printf(" PDG %d charge %f\n",pdgCode,charge);
2642 }
2aaaf0b7 2643
2644 if(vol[0]==1 || vol[0]==4) { // (1) ZN fibres
2645 if(ibe>fNben) ibe=fNben;
2646 out = charge*charge*fTablen[ibeta][ialfa][ibe];
2647 nphe = gRandom->Poisson(out);
2648 // Ch. debug
2649 //if(ibeta==3) printf("\t %f \t %f \t %f\n",alfa, be, out);
2650 //printf("\t ibeta = %d, ialfa = %d, ibe = %d -> nphe = %d\n\n",ibeta,ialfa,ibe,nphe);
7605b373 2651 if(mid == fMedSensF1){
2aaaf0b7 2652 hits[7] = nphe; //fLightPMQ
2653 hits[8] = 0;
2654 hits[9] = 0;
2655 AddHit(gAlice->GetMCApp()->GetCurrentTrackNumber(), vol, hits);
2656 }
2657 else{
2658 hits[7] = 0;
2659 hits[8] = nphe; //fLightPMC
2660 hits[9] = 0;
2661 AddHit(gAlice->GetMCApp()->GetCurrentTrackNumber(), vol, hits);
2662 }
2663 }
2664 else if(vol[0]==2 || vol[0]==5) {// (2) ZP fibres
2665 if(ibe>fNbep) ibe=fNbep;
2666 out = charge*charge*fTablep[ibeta][ialfa][ibe];
2667 nphe = gRandom->Poisson(out);
7605b373 2668 if(mid == fMedSensF1){
2aaaf0b7 2669 hits[7] = nphe; //fLightPMQ
2670 hits[8] = 0;
2671 hits[9] = 0;
2672 AddHit(gAlice->GetMCApp()->GetCurrentTrackNumber(), vol, hits);
2673 }
2674 else{
2675 hits[7] = 0;
2676 hits[8] = nphe; //fLightPMC
2677 hits[9] = 0;
2678 AddHit(gAlice->GetMCApp()->GetCurrentTrackNumber(), vol, hits);
2679 }
2680 }
2681 else if(vol[0]==3) { // (3) ZEM fibres
2682 if(ibe>fNbep) ibe=fNbep;
2683 out = charge*charge*fTablep[ibeta][ialfa][ibe];
2942f542 2684 TVirtualMC::GetMC()->TrackPosition(s[0],s[1],s[2]);
2aaaf0b7 2685 Float_t xalic[3];
2686 for(j=0; j<3; j++){
2687 xalic[j] = s[j];
2688 }
2689 // z-coordinate from ZEM front face
2690 // NB-> fPosZEM[2]+fZEMLength = -1000.+2*10.3 = 979.69 cm
2691 Float_t z = -xalic[2]+fPosZEM[2]+2*fZEMLength-xalic[1];
2692 //z = xalic[2]-fPosZEM[2]-fZEMLength-xalic[1]*(TMath::Tan(45.*kDegrad));
2693 //printf(" fPosZEM[2]+2*fZEMLength = %f", fPosZEM[2]+2*fZEMLength);
2694 //
2695 // Parametrization for light guide uniformity
2696 // NEW!!! Light guide tilted @ 51 degrees
2697 Float_t guiPar[4]={0.31,-0.0006305,0.01337,0.8895};
2698 Float_t guiEff = guiPar[0]*(guiPar[1]*z*z+guiPar[2]*z+guiPar[3]);
2699 out = out*guiEff;
2700 nphe = gRandom->Poisson(out);
2701 //printf(" out*guiEff = %f nphe = %d", out, nphe);
2702 if(vol[1] == 1){
2703 hits[7] = 0;
2704 hits[8] = nphe; //fLightPMC (ZEM1)
2705 hits[9] = 0;
2706 AddHit(gAlice->GetMCApp()->GetCurrentTrackNumber(), vol, hits);
2707 }
2708 else{
2709 hits[7] = nphe; //fLightPMQ (ZEM2)
2710 hits[8] = 0;
2711 hits[9] = 0;
2712 AddHit(gAlice->GetMCApp()->GetCurrentTrackNumber(), vol, hits);
2713 }
2714 }
2715 }
2716 }
2717}