| Trigger Cfg |
Magnet Polarity |
Total Events Written |
Analysed |
PN.PP narrow |
PN(2).PP(2) narrow |
IsCollision |
IsCollision && GoodVertex |
<%
DV_disp="![]()
"
Dim trig_config, old_trig_config
old_trig_config = ""
last_run = CInt(RSz("last_run"))
MinHallNeg = 0.08
Do While Not RS.EoF
bpolarity = -999
If Not IsNull(RS("trigger_config")) Then
trig_config = CStr(RS("trigger_config"))
If trig_config <> old_trig_config Then
If old_trig_config <> "" Then
%>
<%= old_trig_config %>
|
BZERO
|
<%= BZERO_total_events %>
|
<%= BZERO_total_analysed %>
(<%If BZERO_total_events>0 Then response.Write(Round(BZERO_total_analysed/BZERO_total_events*100,1)) End If %> %) |
<%= BZERO_total_pnppnarrow %>
(<%If BZERO_total_events>0 Then response.Write(Round(BZERO_total_pnppnarrow/BZERO_total_events*100,1)) End If %> %) |
<%= BZERO_total_pn2pp2narrow %>
(<%If BZERO_total_events>0 Then response.Write(Round(BZERO_total_pn2pp2narrow/BZERO_total_events*100,1)) End If %> %) |
<%= BZERO_total_iscol %>
(<%If BZERO_total_events>0 Then response.Write(Round(BZERO_total_iscol/BZERO_total_events*100,1)) End If %> %) |
<%= BZERO_total_iscolvtx %>
(<%If BZERO_total_events>0 Then response.Write(Round(BZERO_total_iscolvtx/BZERO_total_events*100,1)) End If %> %) |
<%= old_trig_config %>
|
BPLUS : B
|
<%= BPLUS_total_events %>
|
<%= BPLUS_total_analysed %>
(<%If BPLUS_total_events>0 Then response.Write(Round(BPLUS_total_analysed/BPLUS_total_events*100,1)) End If %> %) |
<%= BPLUS_total_pnppnarrow %>
(<%If BPLUS_total_events>0 Then response.Write(Round(BPLUS_total_pnppnarrow/BPLUS_total_events*100,1)) End If %> %) |
<%= BPLUS_total_pn2pp2narrow %>
(<%If BPLUS_total_events>0 Then response.Write(Round(BPLUS_total_pn2pp2narrow/BPLUS_total_events*100,1)) End If %> %) |
<%= BPLUS_total_iscol %>
(<%If BPLUS_total_events>0 Then response.Write(Round(BPLUS_total_iscol/BPLUS_total_events*100,1)) End If %> %) |
<%= BPLUS_total_iscolvtx %>
(<%If BPLUS_total_events>0 Then response.Write(Round(BPLUS_total_iscolvtx/BPLUS_total_events*100,1)) End If %> %) |
<%= old_trig_config %>
|
BMINUS : A
|
<%= BMINUS_total_events %>
|
<%= BMINUS_total_analysed %>
(<%If BMINUS_total_events>0 Then response.Write(Round(BMINUS_total_analysed/BMINUS_total_events*100,1)) End If %> %) |
<%= BMINUS_total_pnppnarrow %>
(<%If BMINUS_total_events>0 Then response.Write(Round(BMINUS_total_pnppnarrow/BMINUS_total_events*100,1)) End If %> %) |
<%= BMINUS_total_pn2pp2narrow %>
(<%If BMINUS_total_events>0 Then response.Write(Round(BMINUS_total_pn2pp2narrow/BMINUS_total_events*100,1)) End If %> %) |
<%= BMINUS_total_iscol %>
(<%If BMINUS_total_events>0 Then response.Write(Round(BMINUS_total_iscol/BMINUS_total_events*100,1)) End If %> %) |
<%= BMINUS_total_iscolvtx %>
(<%If BMINUS_total_events>0 Then response.Write(Round(BMINUS_total_iscolvtx/BMINUS_total_events*100,1)) End If %> %) |
|
|
|
<%
End If
BPLUS_total_events = 0
BPLUS_total_analysed = 0
BPLUS_total_pnppnarrow = 0
BPLUS_total_pn2pp2narrow = 0
BPLUS_total_iscol = 0
BPLUS_total_iscolvtx = 0
BMINUS_total_events = 0
BMINUS_total_analysed = 0
BMINUS_total_pnppnarrow = 0
BMINUS_total_pn2pp2narrow = 0
BMINUS_total_iscol = 0
BMINUS_total_iscolvtx = 0
BZERO_total_events = 0
BZERO_total_analysed = 0
BZERO_total_pnppnarrow = 0
BZERO_total_pn2pp2narrow = 0
BZERO_total_iscol = 0
BZERO_total_iscolvtx = 0
old_trig_config = trig_config
End If
'
' Check what is known about magnetic field
'
' This is Boleks way of determing the magnetic field. it relies on Imag, which comes from CDEV
' Since magmon crashes due to CDEV problems, we are running sometimes with CDEV reading turned off(which btw also means rhic beam paramters are unavailable)
' so should rather rely on hall_neg which is read straight from the IR using a voltmeter,
' If Not IsNull(RS("imag_c")) Then
'
' imag_min=Abs(CDbl(RS("imag_min")))
' imag_max=Abs(CDbl(RS("imag_max")))
' hneg_min=CDbl(RS("hneg_min"))
' hneg_max=CDbl(RS("hneg_max"))
' If abs(hneg_min)>abs(hneg_max) Then
' hneg_sign=Round(hneg_min,1)
' Else
' hneg_sign=Round(hneg_max,1)
' End If
' imag_diff=imag_max-imag_min
' If imag_diff>10 Then
' bfield="CHG "
' Else
' If imag_max>3580 Then
'
' If hneg_sign<0 Then
' bfield="B : BPLUS "
' bpolarity = +1
' Else
' bfield="A : BMINUS"
' bpolarity = -1
' End If
' Elseif imag_max>50 Then
' bfield="???? "
' Else
' bfield=" BZERO "
' bpolarity = 0
' End If
' End If
' the following is the logic implemented by patrick in phat to determine magnet polarity
If Not IsNull(RS("hneg_max")) and Not IsNull(RS("hneg_min")) Then
hneg_min=CDbl(RS("hneg_min"))
hneg_max=CDbl(RS("hneg_max"))
If abs(hneg_min)>abs(hneg_max) Then
hneg_sign=Round(hneg_min,1)
Else
hneg_sign=Round(hneg_max,1)
End If
bfield = "???? "
If hneg_max > MinHallNeg Then
bfield="A : BMINUS"
bpolarity = -1
End If
If hneg_max < -MinHallNeg Then
bfield="B : BPLUS "
bpolarity = +1
End If
If hneg_max > -MinHallNeg and hneg_max < MinHallNeg Then
bfield=" BZERO "
bpolarity = 0
End If
If CInt(RS("run")) = last_run Then
this_is_last_run = 1
Else
this_is_last_run = 0
End If
If CInt(RS("run")) = CInt(RSz("last_run")) Then
last_run_bfield = bfield
End If
If Not IsNull(RS("nevents")) Then
te =CDbl(RS("nevents"))
Else
te = 0
End If
If Not IsNull(RS("nevents_s")) Then
ta =CDbl(RS("nevents_s"))
Else
ta =0
End If
If Not IsNull(RS("nback_s")) Then
tpnpp = CDbl(RS("nback_s"))
Else
tnpp = 0
End If
If Not IsNull(RS("ncoll_s")) Then
tpn2pp2 = CDbl(RS("ncoll_s"))
Else
tpn2pp2 = 0
End If
If Not IsNull(RS("niscol")) Then
tiscol = CDbl(RS("niscol"))
Else
tiscol = 0
End If
If Not IsNull(RS("niscolvtx")) Then
tiscolvtx = CDbl(RS("niscolvtx"))
Else
tiscolvtx = 0
End If
If bpolarity = 0 Then
BZERO_total_events = BZERO_total_events + te
BZERO_total_analysed = BZERO_total_analysed + ta
BZERO_total_pnppnarrow = BZERO_total_pnppnarrow + tpnpp
BZERO_total_pn2pp2narrow = BZERO_total_pn2pp2narrow + tpn2pp2
BZERO_total_iscol = BZERO_total_iscol + tiscol
BZERO_total_iscolvtx = BZERO_total_iscolvtx + tiscolvtx
End If
If bpolarity = 1 Then
BPLUS_total_events = BPLUS_total_events + te
BPLUS_total_analysed = BPLUS_total_analysed + ta
BPLUS_total_pnppnarrow = BPLUS_total_pnppnarrow + tpnpp
BPLUS_total_pn2pp2narrow = BPLUS_total_pn2pp2narrow + tpn2pp2
BPLUS_total_iscol = BPLUS_total_iscol + tiscol
BPLUS_total_iscolvtx = BPLUS_total_iscolvtx + tiscolvtx
End If
If bpolarity = -1 Then
BMINUS_total_events = BMINUS_total_events + te
BMINUS_total_analysed = BMINUS_total_analysed + ta
BMINUS_total_pnppnarrow = BMINUS_total_pnppnarrow + tpnpp
BMINUS_total_pn2pp2narrow = BMINUS_total_pn2pp2narrow + tpn2pp2
BMINUS_total_iscol = BMINUS_total_iscol + tiscol
BMINUS_total_iscolvtx = BMINUS_total_iscolvtx + tiscolvtx
End If
Else
bfield="???? "
End If
runentry = CStr(RS("run")) & " " & bfield & " " & trig_config
If bfield <> "???? " Then
runentry = runentry & " " & CStr(te) & "/" & CStr(ta) & "/" & CStr(tiscolvtx)
End If
DataFile.WriteLine(runentry)
End If
RS.MoveNext
Loop
DataFile.Close
%>
<%
' Must display the last trig_config
%>
<%= trig_config %>
|
BZERO
|
<%= BZERO_total_events %>
|
<%= BZERO_total_analysed %>
(<%If BZERO_total_events>0 Then response.Write(Round(BZERO_total_analysed/BZERO_total_events*100,1)) End If %> %) |
<%= BZERO_total_pnppnarrow %>
(<%If BZERO_total_events>0 Then response.Write(Round(BZERO_total_pnppnarrow/BZERO_total_events*100,1)) End If %> %) |
<%= BZERO_total_pn2pp2narrow %>
(<%If BZERO_total_events>0 Then response.Write(Round(BZERO_total_pn2pp2narrow/BZERO_total_events*100,1)) End If %> %) |
<%= BZERO_total_iscol %>
(<%If BZERO_total_events>0 Then response.Write(Round(BZERO_total_iscol/BZERO_total_events*100,1)) End If %> %) |
<%= BZERO_total_iscolvtx %>
(<%If BZERO_total_events>0 Then response.Write(Round(BZERO_total_iscolvtx/BZERO_total_events*100,1)) End If %> %) |
<%= trig_config %>
|
BPLUS : B
|
<%= BPLUS_total_events %>
|
<%= BPLUS_total_analysed %>
(<%If BPLUS_total_events>0 Then response.Write(Round(BPLUS_total_analysed/BPLUS_total_events*100,1)) End If %> %) |
<%= BPLUS_total_pnppnarrow %>
(<%If BPLUS_total_events>0 Then response.Write(Round(BPLUS_total_pnppnarrow/BPLUS_total_events*100,1)) End If %> %) |
<%= BPLUS_total_pn2pp2narrow %>
(<%If BPLUS_total_events>0 Then response.Write(Round(BPLUS_total_pn2pp2narrow/BPLUS_total_events*100,1)) End If %> %) |
<%= BPLUS_total_iscol %>
(<%If BPLUS_total_events>0 Then response.Write(Round(BPLUS_total_iscol/BPLUS_total_events*100,1)) End If %> %) |
<%= BPLUS_total_iscolvtx %>
(<%If BPLUS_total_events>0 Then response.Write(Round(BPLUS_total_iscolvtx/BPLUS_total_events*100,1)) End If %> %) |
<%= trig_config %>
|
BMINUS : A
|
<%= BMINUS_total_events %>
|
<%= BMINUS_total_analysed %>
(<%If BMINUS_total_events>0 Then response.Write(Round(BMINUS_total_analysed/BMINUS_total_events*100,1)) End If %> %) |
<%= BMINUS_total_pnppnarrow %>
(<%If BMINUS_total_events>0 Then response.Write(Round(BMINUS_total_pnppnarrow/BMINUS_total_events*100,1)) End If %> %) |
<%= BMINUS_total_pn2pp2narrow %>
(<%If BMINUS_total_events>0 Then response.Write(Round(BMINUS_total_pn2pp2narrow/BMINUS_total_events*100,1)) End If %> %) |
<%= BMINUS_total_iscol %>
(<%If BMINUS_total_events>0 Then response.Write(Round(BMINUS_total_iscol/BMINUS_total_events*100,1)) End If %> %) |
<%= BMINUS_total_iscolvtx %>
(<%If BMINUS_total_events>0 Then response.Write(Round(BMINUS_total_iscolvtx/BMINUS_total_events*100,1)) End If %> %) |