* about the suitability of this software for any purpose. It is *
* provided "as is" without express or implied warranty. *
**************************************************************************/
-
/* $Id$ */
//_________________________________________________________________________
//*-- Author: Laurent Aphecetche & Yves Schutz (SUBATECH)
//////////////////////////////////////////////////////////////////////////////
+
// --- ROOT system ---
class TFile;
#include "TROOT.h"
// --- Standard library ---
-#include <strstream.h>
// --- AliRoot header files ---
-
#include "AliPHOS.h"
#include "AliMC.h"
#include "AliRun.h"
//____________________________________________________________________________
AliPHOS:: AliPHOS() : AliDetector()
{
- // Create folder and task hierarchy
+ // Default ctor
fName="PHOS";
- CreatePHOSFolders();
+ fQATask = 0;
+ fTreeQA = 0;
}
+
//____________________________________________________________________________
-AliPHOS:: AliPHOS(const char* name, const char* title=""): AliDetector(name, title)
+AliPHOS::AliPHOS(const char* name, const char* title): AliDetector(name, title)
{
- // Create folder and task hierarchy
- CreatePHOSFolders();
+ // ctor : title is used to identify the layout
+
+ fQATask = 0;
+ fTreeQA = 0;
}
-//____________________________________________________________________________
-void AliPHOS::CreatePHOSFolders()
-{
- // create the ALICE TFolder
- // create the ALICE TTasks
- // add the Alice QA TTAsks
- // create the ALICE main TFolder
- // add the Alice QA Alarms
- // this should be done of course by AliRun
-
- TFolder * alice = new TFolder();
- alice->SetNameTitle("YSAlice", "Alice Folder") ;
- gROOT->GetListOfBrowsables()->Add(alice) ;
-
- TFolder * aliceF = alice->AddFolder("folders", "Alice memory Folder") ;
- // make it the owner of the objects that it contains
- aliceF->SetOwner() ;
- TFolder * alarmsF = aliceF->AddFolder("QAAlarms", "Alarms raised by QA check") ;
- // make it the owner of the objects that it contains
- alarmsF->SetOwner() ;
- TFolder * aliceT = alice->AddFolder("tasks", "Alice tasks Folder") ;
- // make it the owner of the objects that it contains
- aliceT->SetOwner() ;
-
- TTask * aliceQA = new TTask("QA", "Alice QA tasks") ;
- aliceT->Add(aliceQA);
-
- TTask * aliceDi = new TTask("(S)Digitizer", "Alice SDigitizer & Digitizer") ;
- aliceT->Add(aliceDi);
-
- TTask * aliceRe = new TTask("Reconstructioner", "Alice Reconstructioner") ;
- aliceT->Add(aliceRe);
-
- char * tempo = new char[80] ;
-
- // creates the PHOSQA and adds it to alice main QA task
- sprintf(tempo, "%sCheckers container",GetName() ) ;
- fQATask = new AliPHOSQAChecker(GetName(), tempo);
- aliceQA->Add(fQATask) ;
- // creates the PHOS(S)Digitizer and adds it to alice main (S)Digitizer task
- sprintf(tempo, "%sDigitizers container",GetName() ) ;
- fSDTask = new AliPHOSQAChecker(GetName(), tempo);
- aliceDi->Add(fSDTask) ;
- // creates the PHOS reconstructioner and adds it to alice main Reconstructioner task
- sprintf(tempo, "%sReconstructioner container",GetName() ) ;
- fReTask = new AliPHOSQAChecker(GetName(), tempo);
- aliceRe->Add(fReTask) ;
-
- delete tempo ;
-
- // creates the PHOSQA alarm folder
- alarmsF->AddFolder("PHOS", "QA alarms from PHOS") ;
-}
//____________________________________________________________________________
AliPHOS::~AliPHOS()
{
- // remove the alice folder and alice QA task that PHOS creates instead of AliRun
- // remove and delete the PHOS QA tasks
- TFolder * alice = (TFolder*)gROOT->GetListOfBrowsables()->FindObject("YSAlice") ;
- TTask * aliceQA = (TTask*)alice->FindObject("tasks/QA") ;
- fQATask->GetListOfTasks()->Delete() ;
- aliceQA->GetListOfTasks()->Remove(fQATask) ;
- delete fQATask ;
-
- // remove and delete aliceQA (should be done by AliRun)
}
//____________________________________________________________________________
Float_t aTI[2] = {12.011, 1.00794} ;
Float_t zTI[2] = {6.0, 1.0} ;
Float_t wTI[2] = {1.0, 1.0} ;
- Float_t dTI = 0.1 ;
+ Float_t dTI = 0.04 ;
AliMixture(7, "Thermo Insul.$", aTI, zTI, dTI, -2, wTI) ;
// --- Stainless steel (let it be pure iron) ---
AliMaterial(17, "Steel$", 55.845, 26, 7.87, 1.76, 0., 0, 0) ;
+
+
+ // --- Fiberglass ---
+ Float_t aFG[4] = {16.0, 28.09, 12.011, 1.00794} ;
+ Float_t zFG[4] = {8.0, 14.0, 6.0, 1.0} ;
+ Float_t wFG[4] = {292.0, 68.0, 462.0, 736.0} ;
+ Float_t dFG = 1.9 ;
+
+ AliMixture(18, "Fibergla$", aFG, zFG, dFG, -4, wFG) ;
+
+ // --- Cables in Air box ---
+ // SERVICES
+
+ Float_t aCA[4] = { 1.,12.,55.8,63.5 };
+ Float_t zCA[4] = { 1.,6.,26.,29. };
+ Float_t wCA[4] = { .014,.086,.42,.48 };
+ Float_t dCA = 0.8 ; //this density is raw estimation, if you know better - correct
+
+ AliMixture(19, "Cables $", aCA, zCA, dCA, -4, wCA) ;
+
+
+
// --- Air ---
AliMaterial(99, "Air$", 14.61, 7.3, 0.001205, 30420., 67500., 0, 0) ;
AliMedium(17, "Steel $", 17, 0,
isxfld, sxmgmx, 10.0, 0.1, 0.1, 0.1, 0.0001, 0, 0) ;
+ // Fibergalss -> idtmed[717]
+ AliMedium(18, "Fiberglass$", 18, 0,
+ isxfld, sxmgmx, 10.0, 0.1, 0.1, 0.1, 0.1, 0, 0) ;
+
+ // Cables in air -> idtmed[718]
+ AliMedium(19, "Cables $", 19, 0,
+ isxfld, sxmgmx, 10.0, 0.1, 0.1, 0.1, 0.1, 0, 0) ;
+
// Air -> idtmed[798]
AliMedium(99, "Air $", 99, 0,
isxfld, sxmgmx, 10.0, 1.0, 0.1, 0.1, 10.0, 0, 0) ;
gMC->Gstpar(idtmed[715], "STRA",2.) ;
}
+
//____________________________________________________________________________
-void AliPHOS::SetTreeAddress()
-{
+AliPHOSGeometry * AliPHOS::GetGeometry() const
+{
+ // gets the pointer to the AliPHOSGeometry unique instance
+
+ return AliPHOSGeometry::GetInstance(GetTitle(),"") ;
+}
- // TBranch *branch;
- // AliDetector::SetTreeAddress();
+//____________________________________________________________________________
+void AliPHOS::SetTreeAddress()
+{
TBranch *branch;
char branchname[20];
}
}
+//____________________________________________________________________________
+void AliPHOS::WriteQA()
+{
+
+ // Make TreeQA in the output file.
+
+ if(fTreeQA == 0)
+ fTreeQA = new TTree("TreeQA", "QA Alarms") ;
+ // Create Alarms branches
+ Int_t bufferSize = 32000 ;
+ Int_t splitlevel = 0 ;
+ TFolder * alarmsF = (TFolder*)gROOT->FindObjectAny("Folders/Run/Conditions/QA/PHOS") ;
+ TString branchName(alarmsF->GetName());
+ TBranch * alarmsBranch = fTreeQA->Branch(branchName,"TFolder", &alarmsF, bufferSize, splitlevel);
+ TString branchTitle = branchName + " QA alarms" ;
+ alarmsBranch->SetTitle(branchTitle);
+ alarmsBranch->Fill() ;
+
+ //fTreeQA->Fill() ;
+}