linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hmm_configuration.tcl

Browse Source 
Added time of flight channel width (tofw) and elastic peak index (elpk)

r3750 | ffr | 2012-09-26 10:05:40 +1000 (Wed, 26 Sep 2012) | 3 lines
This commit is contained in:
Ferdi Franceschini
2012-09-26 10:05:40 +10:00
committed by Douglas Clowes
parent 99c3c397d3
commit a0eee42022
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
site_ansto/instrument/pelican/config/hmm/hmm_configuration.tcl
View File

@@ -5,9 +5,17 @@ source $cfPath(hmm)/hmm_configuration_common_1.tcl
source $cfPath(hmm)/hmm_cylindrical_detector_configuration.tcl
set sim_mode [SplitReply [hmm_simulation]]
# Elastic peak index and time of flight channel width
::utility::mkVar elpk int user elpk true detector true true
sicslist setatt elpk link data_set
::utility::mkVar tofw int user tofw true detector true true
sicslist setatt tofw link data_set
sicslist setatt tofw units [::histogram_memory::clock_scale units]
proc ::histogram_memory::init_OAT_TABLE {} {
if [ catch {
set twidth 3333
OAT_TABLE X -setdata MAX_CHAN 200
OAT_TABLE Y -setdata MAX_CHAN 1024
OAT_TABLE X -setdata BMIN -0.5
@@ -15,6 +23,7 @@ proc ::histogram_memory::init_OAT_TABLE {} {
OAT_TABLE Y -setdata BMIN -0.5
OAT_TABLE Y -setdata BMAX 1023.5
OAT_TABLE -set X { 199.5 198.5 } NXC 200 Y { -0.5 0.5 } NYC 64 T " 0 $twidth " NTC 1024
OAT_TABLE -set X { 199.5 198.5 } NXC 200 Y { -0.5 0.5 } NYC 1024 T { 0 3333 } NTC 1
} message ] {
if {$::errorCode=="NONE"} {return $message}
@@ -148,8 +157,8 @@ proc ::histogram_memory::isc_initialize {} {
if [ catch {
::histogram_memory::init_hmm_objs
if {$::sim_mode == "true"} {
hmm configure oat_ntc_eff 1
hmm configure $INST_NYC 1024
hmm configure oat_ntc_eff 1024
hmm configure $INST_NYC 64
hmm configure $INST_NXC 200
}
BAT_TABLE -init