/*
$Log$
+Revision 1.1 2007/06/24 20:56:19 hristov
+TPC version for the krypton runs (Marek)
+
*/
//
// here I define a volume TPC
// retrive the medium name with "TPC_" as a leading string
//
- TGeoPcon *tpc = new TGeoPcon(0.,360.,18); //18 sections
- tpc->DefineSection(0,-290.,77.,278.);
- tpc->DefineSection(1,-259.6,70.,278.);
+ TGeoPcon *tpc = new TGeoPcon(0.,360.,20); //20 sections
+ //
+ tpc->DefineSection(0,-291.,77.,278.);
+ tpc->DefineSection(1,-270,77.,278.);
//
- tpc->DefineSection(2,-259.6,68.1,278.);
- tpc->DefineSection(3,-253.6,68.1,278.);
+ tpc->DefineSection(2,-270.,77.,278.);
+ tpc->DefineSection(3,-259.6,70.,278.);
//
- tpc->DefineSection(4,-253.6,68.,278.);
- tpc->DefineSection(5,-74.0,60.8,278.);
+ tpc->DefineSection(4,-259.6,68.1,278.);
+ tpc->DefineSection(5,-253.6,68.1,278.);
//
- tpc->DefineSection(6,-74.0,60.1,278.);
- tpc->DefineSection(7,-73.3,60.1,278.);
+ tpc->DefineSection(6,-253.6,68.,278.);
+ tpc->DefineSection(7,-74.0,60.8,278.);
//
- tpc->DefineSection(8,-73.3,56.9,278.);
- tpc->DefineSection(9,73.3,56.9,278.);
+ tpc->DefineSection(8,-74.0,60.1,278.);
+ tpc->DefineSection(9,-73.3,60.1,278.);
//
- tpc->DefineSection(10,73.3,60.1,278.);
- tpc->DefineSection(11,74.0,60.1,278.);
+ tpc->DefineSection(10,-73.3,56.9,278.);
+ tpc->DefineSection(11,73.3,56.9,278.);
//
- tpc->DefineSection(12,74.0,60.8,278.);
- tpc->DefineSection(13,253.6,65.5,278.);
+ tpc->DefineSection(12,73.3,60.1,278.);
+ tpc->DefineSection(13,74.0,60.1,278.);
//
- tpc->DefineSection(14,253.6,65.6,278.);
- tpc->DefineSection(15,259.6,65.6,278.);
+ tpc->DefineSection(14,74.0,60.8,278.);
+ tpc->DefineSection(15,253.6,65.5,278.);
//
- tpc->DefineSection(16,259.6,70.0,278.);
- tpc->DefineSection(17,290.,77.,278.);
+ tpc->DefineSection(16,253.6,65.6,278.);
+ tpc->DefineSection(17,259.6,65.6,278.);
+ //
+ tpc->DefineSection(18,259.6,70.0,278.);
+ tpc->DefineSection(19,291.,77.,278.);
//
TGeoMedium *m1 = gGeoManager->GetMedium("TPC_Air");
TGeoVolume *v1 = new TGeoVolume("TPC_M",tpc,m1);
TGeoTube *cs = new TGeoTube(56.9,61.2,0.1);
TGeoMedium *sm7 = gGeoManager->GetMedium("TPC_Mylar");
TGeoVolume *csv = new TGeoVolume("TPC_CDRS",cs,sm7);
- v1->AddNode(csv,1,new TGeoTranslation(0.,0.,-71.));
- v1->AddNode(csv,2,new TGeoTranslation(0.,0.,71.));
+ v1->AddNode(csv,1,new TGeoTranslation(0.,0.,-71.2));
+ v1->AddNode(csv,2,new TGeoTranslation(0.,0.,71.2));
//
// seal collars
TGeoPcon *se = new TGeoPcon(0.,360.,6);
Double_t x0,y0;
x0=110.2*TMath::Cos(openingAngle);
y0=110.2*TMath::Sin(openingAngle);
- TGeoCombiTrans *combi1a = new TGeoCombiTrans("combi1",x0,y0,1.09+0.222,rot); //a-side
- TGeoCombiTrans *combi1c = new TGeoCombiTrans("combi1",x0,y0,1.09+0.195,rot); //c-side
+ TGeoCombiTrans *combi1a = new TGeoCombiTrans("combi1",x0,y0,1.09+0.195,rot); //a-side
+ TGeoCombiTrans *combi1c = new TGeoCombiTrans("combi1",x0,y0,1.09+0.222,rot); //c-side
x0=188.45*TMath::Cos(openingAngle);
y0=188.45*TMath::Sin(openingAngle);
- TGeoCombiTrans *combi2a = new TGeoCombiTrans("combi2",x0,y0,0.99+0.222,rot); //a-side
- TGeoCombiTrans *combi2c = new TGeoCombiTrans("combi2",x0,y0,0.99+0.195,rot); //c-side
+ TGeoCombiTrans *combi2a = new TGeoCombiTrans("combi2",x0,y0,0.99+0.195,rot); //a-side
+ TGeoCombiTrans *combi2c = new TGeoCombiTrans("combi2",x0,y0,0.99+0.222,rot); //c-side
//
//
// A-side
//----------------------------------------------------------
TGeoMedium *m6=gGeoManager->GetMedium("TPC_Makrolon");
TGeoMedium *m7=gGeoManager->GetMedium("TPC_Cu");
+ TGeoMedium *m10 = gGeoManager->GetMedium("TPC_Alumina");
+ TGeoMedium *m11 = gGeoManager->GetMedium("TPC_Peek");
+ TGeoMedium *m12 = gGeoManager->GetMedium("TPC_Water");
// upper and lower rods differ in length!
delete [] upar;
upar=NULL;
TGeoVolume *hvrv = new TGeoVolume("TPC_HV_Rod",hvr,m6);
TGeoVolume *hvcv = new TGeoVolume("TPC_HV_Cable",hvc,m7);
hvrv->AddNode(hvcv,1);
-
+ //
+ // resistor rods
+ //
+ TGeoTube *cri = new TGeoTube(0.,0.45,126.64); //inner
+ TGeoTube *cro = new TGeoTube(0.,0.45,126.54); //outer
+ TGeoTube *cwi = new TGeoTube(0.,0.15,126.64); // water inner
+ TGeoTube *cwo = new TGeoTube(0.,0.15,126.54); // water outer
+ //
+ TGeoVolume *criv = new TGeoVolume("TPC_CR_I",cri,m10);
+ TGeoVolume *crov = new TGeoVolume("TPC_CR_O",cro,m10);
+ TGeoVolume *cwiv = new TGeoVolume("TPC_W_I",cwi,m11);
+ TGeoVolume *cwov = new TGeoVolume("TPC_W_O",cwo,m11);
+ //
+ // ceramic rod with water
+ //
+ criv->AddNode(cwiv,1);
+ crov->AddNode(cwov,1);
+ //
+ TGeoTube *pri =new TGeoTube(0.2,0.35,126.64); //inner
+ TGeoTube *pro = new TGeoTube(0.2,0.35,126.54); //outer
+ //
+ // peek rod
+ //
+ TGeoVolume *priv = new TGeoVolume("TPC_PR_I",pri,m12);
+ TGeoVolume *prov = new TGeoVolume("TPC_PR_O",pro,m12);
+ //
+ // resistor rods assembly
+ //
+ TGeoRotation *rotr = new TGeoRotation("rotr");
+ rotr->RotateZ(-21.);
+ //
+ TGeoTube *rri = new TGeoTube(1.8,2.2,126.64);//inner
+ TGeoTube *rro = new TGeoTube(1.8,2.2,126.54);//inner
+ //
+ TGeoVolume *rriv = new TGeoVolume("TPC_RR_I",rri,m6);
+ TGeoVolume *rrov = new TGeoVolume("TPC_RR_O",rro,m6);
+ //
+ TGeoVolumeAssembly *rrin = new TGeoVolumeAssembly("TPC_RROD_I");
+ TGeoVolumeAssembly *rrou = new TGeoVolumeAssembly("TPC_RROD_O");
+ rrin->AddNode(rriv,1);
+ rrin->AddNode(criv,1,new TGeoTranslation(0.5,0.866, 0.));
+ rrin->AddNode(criv,2,new TGeoTranslation(0.5,-0.866, 0.));
+ rrin->AddNode(priv,1);
+ //
+ rrou->AddNode(rrov,1);
+ rrou->AddNode(crov,1,new TGeoTranslation(0.5,0.866, 0.));
+ rrou->AddNode(crov,2,new TGeoTranslation(0.5,-0.866, 0.));
+ rrou->AddNode(prov,1);
for(Int_t i=0;i<18;i++){
Double_t angle,x,y;
Double_t z,r;
y=r * TMath::Sin(angle);
upar[2]=126.64; //lower
z= 126.96;
- if(i==15){
- v9->AddNode(hvrv,1,new TGeoTranslation(x,y,z));
- v9->AddNode(hvrv,2,new TGeoTranslation(x,y,-z));
- }
- else{
- gGeoManager->Node("TPC_Rod",i+1,"TPC_Drift",x,y,z,0,kTRUE,upar,3);//shaft
- gGeoManager->Node("TPC_Rod",i+19,"TPC_Drift",x,y,-z,0,kTRUE,upar,3);//muon
+ //
+ if(i==3){
+ v9->AddNode(rrin,1,new TGeoCombiTrans(x,y,z,rotr)); //A
+ v9->AddNode(rrin,2,new TGeoCombiTrans(x,y,-z,rotr)); //C
+ }
+ else {
+ gGeoManager->Node("TPC_Rod",i+1,"TPC_Drift",x,y,z,0,kTRUE,upar,3);//shaft
+ gGeoManager->Node("TPC_Rod",i+19,"TPC_Drift",x,y,-z,0,kTRUE,upar,3);//muon
}
+
+
+ //
r=254.25;
x=r * TMath::Cos(angle);
y=r * TMath::Sin(angle);
upar[2]=126.54; //upper
z=127.06;
- gGeoManager->Node("TPC_Rod",i+37,"TPC_Drift",x,y,z,0,kTRUE,upar,3);
- gGeoManager->Node("TPC_Rod",i+55,"TPC_Drift",x,y,-z,0,kTRUE,upar,3);
+ if(i==15){
+ //v9->AddNode(hvrv,1,new TGeoTranslation(x,y,z));//A-side only
+ v9->AddNode(hvrv,1,new TGeoTranslation(x,y,127.14));//A-side only
+ gGeoManager->Node("TPC_Rod",i+55,"TPC_Drift",x,y,-z,0,kTRUE,upar,3);
+ }
+ else if(i==11){
+ v9->AddNode(rrou,1,new TGeoCombiTrans(x,y,z,rotr)); //A
+ v9->AddNode(rrou,2,new TGeoCombiTrans(x,y,-z,rotr)); //C
+ }
+ else{
+ //
+ gGeoManager->Node("TPC_Rod",i+37,"TPC_Drift",x,y,z,0,kTRUE,upar,3);
+ gGeoManager->Node("TPC_Rod",i+55,"TPC_Drift",x,y,-z,0,kTRUE,upar,3);
+ }
}
TGeoVolume *alice = gGeoManager->GetVolume("ALIC");
fIDrift=gMC->VolId("TPC_Drift");
fSecOld=-100; // fake number
- gMC->SetMaxNStep(30000); // max. number of steps increased
+ gMC->SetMaxNStep(-30000); // max. number of steps increased
- gMC->Gstpar(idtmed[20],"LOSS",5); // specific energy loss
+ gMC->Gstpar(idtmed[20],"LOSS",6); // specific energy loss
AliInfo("*** TPC version 4 initialized ***");
AliInfo(Form("Maximum number of steps = %d",gMC->GetMaxNStep()));
if(gMC->TrackStep() > 0){
Int_t nel = (Int_t)(((gMC->Edep())-kpoti)/kwIon) + 1;
- nel=TMath::Min(nel,300); // 300 electrons corresponds to 10 keV
+ nel=TMath::Min(nel,30); // 30 electrons corresponds to 1 keV
//
gMC->TrackPosition(p);
hits[0]=p[0];