]>
Commit | Line | Data |
---|---|---|
1209231c | 1 | /************************************************************************** |
2 | * Copyright(c) 2006-07, 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 | ||
7d855b04 | 17 | /// \class AliTPCCalibVdrift |
18 | /// | |
19 | /// Class describing the Vdrift dependencies on E,T,P and GasComposition | |
20 | /// | |
21 | /// \author Stefan Rossegger, Haavard Helstrup | |
1209231c | 22 | |
23 | #include "TSystem.h" | |
24 | #include "TObject.h" | |
25 | #include "TMath.h" | |
26 | #include "AliTPCTempMap.h" | |
27 | #include "AliTPCSensorTempArray.h" | |
28 | ||
29 | #include "AliTPCCalibVdrift.h" | |
30 | ||
7d855b04 | 31 | /// \cond CLASSIMP |
1209231c | 32 | ClassImp(AliTPCCalibVdrift) |
7d855b04 | 33 | /// \endcond |
1209231c | 34 | |
da6c0bc9 | 35 | namespace paramDefinitions { |
1209231c | 36 | |
f1ea1647 | 37 | // Standard Conditions used as origin in the Magbolz simulations |
38 | // Dimesions E [kV/cm], T [K], P [TORR], Cco2 [%], Cn2 [%] | |
39 | const Double_t kstdE = 400; | |
40 | const Double_t kstdT = 293; | |
41 | const Double_t kstdP = 744; | |
42 | const Double_t kstdCco2 = 9.52; | |
43 | const Double_t kstdCn2 = 4.76; | |
44 | // Driftvelocity at Standardcontitions [cm/microSec] | |
45 | const Double_t kstdVdrift = 2.57563; | |
1209231c | 46 | |
f1ea1647 | 47 | // Vdrift dependencies simulated with Magbolz [%(Vdrift)/[unit]] |
48 | const Double_t kdvdE = 0.24; | |
49 | const Double_t kdvdT = 0.30; | |
50 | const Double_t kdvdP = -0.13; | |
51 | const Double_t kdvdCco2 = -6.60; | |
52 | const Double_t kdvdCn2 = -1.74; | |
53 | // 2nd order effect Taylor expansion | |
54 | const Double_t kdvdE2nd = -0.00107628; | |
55 | const Double_t kdvdT2nd = -0.00134441; | |
56 | const Double_t kdvdP2nd = 0.000135325; | |
57 | const Double_t kdvdCco22nd = 0.328761; | |
58 | const Double_t kdvdCn22nd = 0.151605; | |
59 | ||
60 | const Double_t torrTokPascal = 0.750061683; | |
61 | ||
62 | Double_t krho = 0.934246; // density of TPC-Gas [kg/m^3] | |
63 | // method of calculation: weighted average | |
64 | Double_t kg = 9.81; | |
9430b11a | 65 | |
66 | // | |
67 | // Nominal value obtained from 2008 data | |
68 | // | |
69 | const Double_t kKelvin =273.15; // degree to Kelvin | |
70 | const Double_t kNominalTemp =19.03; // mean between A and C side in degree | |
71 | const Double_t kNominalPress =973.9; // pressure sensor - in mbar- | |
72 | // calibDB->GetPressure(tstamp,irun,1) | |
1209231c | 73 | } |
74 | ||
f1ea1647 | 75 | |
1209231c | 76 | using namespace paramDefinitions; |
77 | ||
d8819a18 | 78 | AliTPCCalibVdrift::AliTPCCalibVdrift(): |
79 | TNamed(), | |
80 | fSensTemp(0), | |
81 | fSensPres(0), | |
82 | fTempMap(0), | |
83 | fSensGasComp(0), | |
84 | fNominalTemp(0), // nominal temperature in Kelvin | |
85 | fNominalPress(0) // nominal pressure in mbar | |
86 | { | |
7d855b04 | 87 | /// default constructor |
88 | ||
d8819a18 | 89 | } |
90 | ||
da6c0bc9 | 91 | AliTPCCalibVdrift::AliTPCCalibVdrift(AliTPCSensorTempArray *SensTemp, AliDCSSensor *SensPres, TObject *SensGasComp): |
1209231c | 92 | TNamed(), |
93 | fSensTemp(0), | |
94 | fSensPres(0), | |
da6c0bc9 | 95 | fTempMap(0), |
9430b11a | 96 | fSensGasComp(0), |
97 | fNominalTemp(0), // nominal temperature in Kelvin | |
98 | fNominalPress(0) // nominal pressure in mbar | |
1209231c | 99 | { |
7d855b04 | 100 | /// Standard constructor |
1209231c | 101 | |
102 | fSensTemp = SensTemp; | |
103 | fSensPres = SensPres; | |
f1ea1647 | 104 | if (fSensTemp) { |
105 | fTempMap = new AliTPCTempMap(fSensTemp); | |
106 | } else { | |
107 | fTempMap = 0; | |
108 | } | |
1209231c | 109 | fSensGasComp = SensGasComp; |
9430b11a | 110 | fNominalTemp = kNominalTemp; |
111 | fNominalPress= kNominalPress; | |
1209231c | 112 | } |
113 | ||
f1ea1647 | 114 | //_____________________________________________________________________________ |
1209231c | 115 | AliTPCCalibVdrift::AliTPCCalibVdrift(const AliTPCCalibVdrift& source) : |
116 | TNamed(source), | |
117 | fSensTemp(source.fSensTemp), | |
118 | fSensPres(source.fSensPres), | |
da6c0bc9 | 119 | fTempMap(source.fTempMap), |
9430b11a | 120 | fSensGasComp(source.fSensGasComp), |
121 | fNominalTemp(source.fNominalTemp), // nominal temperature in Kelvin | |
122 | fNominalPress(source.fNominalPress) // nominal pressure in mbar | |
123 | ||
1209231c | 124 | { |
7d855b04 | 125 | /// Copy constructor |
126 | ||
1209231c | 127 | } |
128 | ||
129 | //_____________________________________________________________________________ | |
1209231c | 130 | AliTPCCalibVdrift& AliTPCCalibVdrift::operator=(const AliTPCCalibVdrift& source){ |
7d855b04 | 131 | /// assignment operator |
132 | ||
1209231c | 133 | if (&source == this) return *this; |
134 | new (this) AliTPCCalibVdrift(source); | |
135 | ||
136 | return *this; | |
137 | } | |
138 | ||
139 | //_____________________________________________________________________________ | |
140 | AliTPCCalibVdrift::~AliTPCCalibVdrift() | |
141 | { | |
7d855b04 | 142 | /// AliTPCCalibVdrift destructor |
da6c0bc9 | 143 | |
144 | } | |
145 | ||
f1ea1647 | 146 | //_____________________________________________________________________________ |
147 | Double_t AliTPCCalibVdrift::GetPTRelative(UInt_t absTimeSec, Int_t side){ | |
7d855b04 | 148 | /// Get Relative difference of p/T for given time stamp |
149 | /// absTimeSec - absolute time in secounds | |
150 | /// side: 0 - A side | 1 - C side | |
f1ea1647 | 151 | |
152 | TTimeStamp tstamp(absTimeSec); | |
153 | ||
154 | if (!fSensPres||!fSensTemp) return 0; | |
155 | Double_t pressure = fSensPres->GetValue(tstamp); | |
da6c0bc9 | 156 | TLinearFitter * fitter = fTempMap->GetLinearFitter(3,side,tstamp); |
157 | if (!fitter) return 0; | |
158 | TVectorD vec; | |
159 | fitter->GetParameters(vec); | |
160 | delete fitter; | |
161 | if (vec[0]<10) return 0; | |
9430b11a | 162 | // |
163 | // | |
164 | // | |
165 | Double_t temperature = vec[0]; //vec[0] temeperature | |
166 | Double_t tpnom = (fNominalTemp+kKelvin)/(fNominalPress); | |
167 | Double_t tpmeasured = (temperature+kKelvin)/(pressure); | |
168 | Double_t result = (tpmeasured-tpnom)/tpnom; | |
f1ea1647 | 169 | |
9430b11a | 170 | return result; |
f1ea1647 | 171 | |
1209231c | 172 | } |
173 | ||
da6c0bc9 | 174 | |
1209231c | 175 | //_____________________________________________________________________________ |
176 | Double_t AliTPCCalibVdrift::VdriftLinearHyperplaneApprox(Double_t dE, Double_t dT, Double_t dP, Double_t dCco2, Double_t dCn2) | |
177 | { | |
7d855b04 | 178 | /// Returns approximated value for the driftvelocity change (in percent) |
179 | /// based on a Hyperplane approximation (~ Taylorapproximation of 2nd order) | |
1209231c | 180 | |
f1ea1647 | 181 | Double_t termE = dE*kdvdE + TMath::Power(dE,2)*kdvdE2nd; |
182 | Double_t termT = dT*kdvdT + TMath::Power(dT,2)*kdvdT2nd; | |
183 | Double_t termP = dP*kdvdP + TMath::Power(dP,2)*kdvdP2nd; | |
184 | Double_t termCo2 = dCco2*kdvdCco2 + TMath::Power(dCco2,2)*kdvdCco22nd; | |
185 | Double_t termN2 = dCn2*kdvdCn2 + TMath::Power(dCn2,2)*kdvdCn22nd; | |
186 | ||
187 | Double_t vdChange = termE+termT+termP+termCo2+termN2; | |
188 | ||
189 | return vdChange; | |
1209231c | 190 | |
191 | } | |
f1ea1647 | 192 | |
1209231c | 193 | //_____________________________________________________________________________ |
194 | ||
195 | Double_t AliTPCCalibVdrift::GetVdriftNominal() | |
196 | { | |
7d855b04 | 197 | /// returns nominal Driftvelocity at StandardConditions |
198 | ||
1209231c | 199 | return kstdVdrift; |
200 | } | |
201 | ||
202 | //_____________________________________________________________________________ | |
203 | ||
f1ea1647 | 204 | Double_t AliTPCCalibVdrift::GetVdriftChange(Double_t x, Double_t y, Double_t z, UInt_t absTimeSec) |
1209231c | 205 | { |
7d855b04 | 206 | /// Calculates Vdrift change in percent of Vdrift_nominal |
207 | /// (under nominal conditions) at x,y,z at absolute time (in sec) | |
1209231c | 208 | |
f1ea1647 | 209 | TTimeStamp tstamp(absTimeSec); |
210 | ||
1209231c | 211 | // Get E-field Value -------------------------- |
f1ea1647 | 212 | Double_t dE = 0.23; // StandardOffset if CE is set to 100kV |
1209231c | 213 | |
214 | // Get Temperature Value ---------------------- | |
da6c0bc9 | 215 | AliTPCTempMap *tempMap = fTempMap; |
f1ea1647 | 216 | Double_t dT = 0; |
217 | if (fTempMap) { | |
218 | Double_t tempValue = tempMap->GetTemperature(x, y, z, tstamp); | |
219 | dT = tempValue + 273.15 - kstdT; | |
220 | } | |
221 | ||
1209231c | 222 | // Get Main Pressure Value --------------------- |
f1ea1647 | 223 | Double_t dP = 0; |
224 | if (fSensPres==0) { | |
225 | // Just the pressure drop over the TPC height | |
226 | dP = - krho*kg*y/10000*torrTokPascal; | |
227 | } else { | |
228 | // pressure sensors plus additional 0.4mbar overpressure within the TPC | |
229 | Double_t pressure = fSensPres->GetValue(tstamp) + 0.4; | |
230 | // calculate pressure drop according to height in TPC and transform to | |
231 | // TORR (with simplified hydrostatic formula) | |
232 | dP = (pressure - krho*kg*y/10000) * torrTokPascal - kstdP; | |
233 | } | |
234 | ||
1209231c | 235 | // Get GasComposition |
f1ea1647 | 236 | // FIXME: include Goofy values for CO2 and N2 conzentration out of OCDB |
237 | // Goofy not yet reliable ... | |
1209231c | 238 | Double_t dCco2 = 0; |
239 | Double_t dCn2 = 0; | |
240 | ||
241 | // Calculate change in drift velocity in terms of Vdrift_nominal | |
f1ea1647 | 242 | Double_t vdChange = VdriftLinearHyperplaneApprox(dE, dT, dP, dCco2, dCn2); |
1209231c | 243 | |
f1ea1647 | 244 | return vdChange; |
245 | ||
1209231c | 246 | } |
247 | ||
248 | //_____________________________________________________________________________ | |
249 | ||
f1ea1647 | 250 | Double_t AliTPCCalibVdrift::GetMeanZVdriftChange(Double_t x, Double_t y, UInt_t absTimeSec) |
1209231c | 251 | { |
7d855b04 | 252 | /// Calculates Meanvalue in z direction of Vdrift change in percent |
253 | /// of Vdrift_nominal (under standard conditions) at position x,y,absTimeSec | |
254 | /// with help of 'nPopints' base points | |
255 | ||
1209231c | 256 | Int_t nPoints = 5; |
257 | ||
2aaa30ef | 258 | Double_t vdriftSum = 0; |
1209231c | 259 | |
260 | for (Int_t i = 0; i<nPoints; i++) { | |
261 | Double_t z = (Double_t)i/(nPoints-1)*500-250; | |
f1ea1647 | 262 | vdriftSum = vdriftSum + GetVdriftChange(x, y, z, absTimeSec); |
1209231c | 263 | } |
264 | ||
2aaa30ef | 265 | Double_t meanZVdrift = vdriftSum/nPoints; |
1209231c | 266 | |
2aaa30ef | 267 | return meanZVdrift; |
1209231c | 268 | |
269 | } | |
270 | ||
271 | //_____________________________________________________________________________ | |
272 | ||
273 | TGraph *AliTPCCalibVdrift::MakeGraphMeanZVdriftChange(Double_t x, Double_t y, Int_t nPoints) | |
274 | { | |
7d855b04 | 275 | /// Make graph from start time to end time of Mean Drift Velocity in |
276 | /// Z direction at given x and y position | |
1209231c | 277 | |
2aaa30ef | 278 | UInt_t startTime = fSensTemp->GetStartTime(); |
279 | UInt_t endTime = fSensTemp->GetEndTime(); | |
1209231c | 280 | |
2aaa30ef | 281 | UInt_t stepTime = (endTime - startTime)/nPoints; |
1209231c | 282 | |
283 | ||
284 | Double_t *xvec = new Double_t[nPoints]; | |
285 | Double_t *yvec = new Double_t[nPoints]; | |
286 | ||
287 | for (Int_t ip=0; ip<nPoints; ip++) { | |
2aaa30ef | 288 | xvec[ip] = startTime+ip*stepTime; |
f1ea1647 | 289 | yvec[ip] = GetMeanZVdriftChange(x, y, fSensTemp->GetStartTime().GetSec() + ip*stepTime); |
1209231c | 290 | } |
291 | ||
292 | TGraph *graph = new TGraph(nPoints,xvec,yvec); | |
293 | ||
294 | delete [] xvec; | |
295 | delete [] yvec; | |
296 | ||
297 | graph->GetXaxis()->SetTimeDisplay(1); | |
298 | graph->GetXaxis()->SetLabelOffset(0.02); | |
299 | graph->GetXaxis()->SetTimeFormat("#splitline{%d/%m}{%H:%M}"); | |
300 | ||
301 | return graph; | |
302 | } |