464dbfdf64
to here and added the lakeshore temperature readings. r3365 | ffr | 2012-02-12 19:03:15 +1100 (Sun, 12 Feb 2012) | 3 lines
113 lines
4.2 KiB
Tcl
113 lines
4.2 KiB
Tcl
proc select_environment_controller {envtemp} {
|
|
if [ catch {
|
|
puts "selecting $envtemp for environment control"
|
|
switch [string tolower $envtemp] {
|
|
"lh45" {
|
|
add_lh45 tc1 137.157.202.78 4003 0.5
|
|
proc ::histogram_memory::pre_count {} {
|
|
catch {
|
|
hset /sample/tc1/sensor/start_temperature [hval /sample/tc1/sensor/value]
|
|
hset /sample/tc1/sensor/end_temperature [hval /sample/tc1/sensor/value]
|
|
}
|
|
}
|
|
proc ::histogram_memory::post_count {} {
|
|
catch {
|
|
hset /sample/tc1/sensor/end_temperature [hval /sample/tc1/sensor/value]
|
|
}
|
|
}
|
|
}
|
|
"rhqc" {
|
|
puts "Configuring RHQC"
|
|
# 9600 8 1 None None Enable
|
|
add_sct_ls340 tc1 137.157.202.78 4001 "\r" 0.5 5.0
|
|
# TODO Set controlsensor
|
|
# if { [SplitReply [environment_simulation]] == "false"} {
|
|
# tc1 controlsensor sensorB
|
|
# }
|
|
# puts "Added tc1 with [tc1 controlsensor]"
|
|
# 9600 8 1 None None Enable
|
|
add_sct_ls340 tc2 137.157.202.78 4002 "\r" 0.5 5.0
|
|
# TODO Set controlsensor
|
|
# if { [SplitReply [environment_simulation]] == "false"} {
|
|
# tc2 controlsensor sensorD
|
|
# }
|
|
# puts "Added tc2 with [tc2 controlsensor]"
|
|
}
|
|
"11tmagnet" {
|
|
puts "Configuring 11TMagnet"
|
|
add_sct_ls340 tc2 137.157.202.78 4001 "\r" 0.5 5.0
|
|
if { [SplitReply [environment_simulation]] == "false"} {
|
|
::utility::macro::getset float temperature {} {
|
|
return [sicsmsgfmt [hval /sample/tc2/sensor/ctrlLp1_value]]
|
|
}
|
|
sicslist setatt temperature long_name temperature
|
|
sicslist setatt temperature klass sample
|
|
sicslist setatt temperature units K
|
|
# TODO Set controlsensor
|
|
# tc1 controlsensor sensorA
|
|
}
|
|
#add_ips120 ips120 137.157.202.78 4004 0.001
|
|
|
|
# make sure to lodge "fileeval $cfPath(environment)/magneticField/sct_oxford_labview.tcl" before calling below
|
|
::scobj::magnetic::mkMagnetic {
|
|
name "magnetic"
|
|
IP 137.157.202.80
|
|
PORT 22
|
|
tuning 0
|
|
interval 10
|
|
}
|
|
}
|
|
"11tmagnetvti" {
|
|
puts "Configuring 11TMagnet with VTI"
|
|
add_sct_ls340 tc2 137.157.202.78 4001 "\r" 0.5 5.0
|
|
if { [SplitReply [environment_simulation]] == "false"} {
|
|
::utility::macro::getset float temperature {} {
|
|
return [sicsmsgfmt [hval /sample/tc2/sensor/ctrlLp1_value]]
|
|
}
|
|
sicslist setatt temperature long_name temperature
|
|
sicslist setatt temperature klass sample
|
|
sicslist setatt temperature units K
|
|
# TODO Set controlsensor
|
|
# tc1 controlsensor sensorA
|
|
}
|
|
add_ips120 ips120 137.157.202.78 4004 0.001
|
|
add_itc500 itc500 137.157.202.78 4003 5
|
|
proc VTIMagnet11TLog "{date [clock format [clock seconds] -format %G-%m-%dT%T]}" {
|
|
set fd [open "/usr/local/sics/log/11TMagnetVTI_$date.log" a]
|
|
puts $fd "[clock format [clock seconds] -format %T]: Btarget=[hval /sample/ips120/setpoint] Bval=[hval /sample/ips120/sensor/value] T2=[hval /sample/itc500/sensor2/value] T3=[hval /sample/itc500/sensor3/value] Tlakeshore=[hval /sample/tc2/sensor/ctrlLp1_value]"
|
|
close $fd
|
|
}
|
|
sicspoll add VTIMagnet11TLog script 60 VTIMagnet11TLog
|
|
foreach {path val} {ips120/sensor magfield itc500/sensor2 temperature itc500/sensor3 temperature tc2/sensor temperature} {
|
|
hfactory /sics/$path/start_$val plain user float
|
|
hfactory /sics/$path/end_$val plain user float
|
|
# ::scobj::hinitprops /sics/$path/start_$val /sics/$path/end_$val
|
|
hsetprop /sics/$path/start_$val mutable false
|
|
hsetprop /sics/$path/end_$val mutable false
|
|
}
|
|
|
|
proc ::histogram_memory::pre_count {} {
|
|
catch {
|
|
foreach {path name val} {ips120/sensor magfield value itc500/sensor2 temperature value itc500/sensor3 temperature value tc2/sensor temperature ctrlLp1_value} {
|
|
hset /sample/$path/start_$name [hval /sample/$path/$val]
|
|
hset /sample/$path/end_$name [hval /sample/$path/$val]
|
|
}
|
|
}
|
|
}
|
|
proc ::histogram_memory::post_count {} {
|
|
catch {
|
|
foreach {path name val} {ips120/sensor magfield value itc500/sensor2 temperature value itc500/sensor3 temperature value tc2/sensor temperature ctrlLp1_value} {
|
|
hset /sample/$path/end_$name [hval /sample/$path/$val]
|
|
}
|
|
}
|
|
}
|
|
}
|
|
default {
|
|
clientput "Unknown environment controller $envtemp"
|
|
}
|
|
}
|
|
} msg ] {
|
|
puts "Failed to configure $envtemp: $msg"
|
|
}
|
|
}
|