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

Merge branch 'master' of gitlab.psi.ch-samenv:samenv/sea

Browse Source
This commit is contained in:
zolliker
2022-11-25 15:14:01 +01:00
parent b3971b706b 465755ff00
commit 8c996a108d
14 changed files with 97 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tcl/calcurves/U08127.340
View File

@ -2,7 +2,7 @@ Comment: 30.07.2021, FP and CMN, 16mK--2.3K extrapolated elsewhere
Sensor Model: RX-1000-BF0.007
Serial Number: U08127
Data Format: 4 (Log Ohms/Kelvin)
SetPoint Limit: 0.0282 (Kelvin)
SetPoint Limit: 20 (Kelvin)
Temperature coefficient: 1 (Negative)
Number of Breakpoints: 198

2
tcl/calcurves/U08130.340
View File

@ -1,7 +1,7 @@
Sensor Model: RX-1000-BF0.007
Serial Number: U08130
Data Format: 4 (Log Ohms/Kelvin)
SetPoint Limit: 0.0167 (Kelvin)
SetPoint Limit: 10 (Kelvin)
Temperature coefficient: 1 (Negative)
Number of Breakpoints: 198

0
tcl/calcurves/X145791.340 Executable file → Normal file
View File

4
tcl/dil3.stick
View File

@ -75,6 +75,6 @@ dil extVersion 1
catch {default ts control}
catch {default ts heaterselect}
#makeMotorValve vb ${dilts}:3004
#makeMotorValve vm ${dilts}:3006
makeMotorValve vb ${dilts}:3004
makeMotorValve vm ${dilts}:3006

10
tcl/drivers/ccu4.tcl
View File

@ -228,7 +228,7 @@ proc stdConfig::ccu4 {{title CCU4} args} {
node hea out
prop label "add. He channels"
prop enum 0,1,6
prop enum 0,1,6=6
node hch out -int
prop label "LHe channel"
@ -539,7 +539,13 @@ proc ccu4::update {} {
set errvar [silent "" hgetpropval [sct]/$name errvar]
if {$errvar ne ""} {
set errval [hvali [sct]/$errvar]
if {$errval > 0} {
if {$errval == 1} {
# sens warm
updateval [sct]/$name -11
} elseif {$errval == 3} {
# timeout
updateval [sct]/$name 111
} elseif {$errval > 0} {
hsetprop [sct]/$name geterror [lindex [split [hgetpropval [sct]/$errvar enum] ,] $errval]
hupdate [sct]/$name $value
} else {

4
tcl/drivers/dil12.tcl
View File

@ -798,13 +798,13 @@ proc dil12::autostep {phase init} {
}
dil12::check_cool_button
if {[result dil p1] < [hvali [sct]/p1low] && [result dil g1] < 5 &&
[result dil p2] < [hvali [sct]/p2low] && [result dil v6pos] > 99} {
[result dil p2] < [hvali [sct]/p2low] && [result dil v6pos] > 50} {
if {[sct pumptime] == 0} {
dil12::openvalves v5a v2a v7 v2 v1 v6 v5 v3 vb_open
dil v4a 1
sct pumptime [expr [DoubleTime] + 105]
dil12::msg "pump for 2 more minutes"
} elseif {[DoubleTime] > [sct pumptime]} {
} elseif {[DoubleTime] > [sct pumptime] && [result dil v6pos] > 99} {
# do not check for vb/vm here, as the user already might manipulate the valves
dil12::openvalves v1 v6 v3 v5
dil v4a 0

68
tcl/drivers/heliox.tcl
View File

@ -27,16 +27,30 @@ proc stdConfig::heliox {} {
node pot_state -text upd
node target_hours par 60
node target_hours par 48
prop help "how many hours the pot should last (< 75)"
node holdflow out
default 1.5
prop check heliox::check_holdflow
prop help "flow for holding pressure"
prop write stdSct::complete
node condenseflow out
default 3
prop check heliox::check_condenseflow
prop help "flow for condensing"
prop write stdSct::complete
}
catch {
hsetprop /tt getsample hvali /ts/pot
hsetprop /tt getsample hvali /th/pot
} msg
clientput $msg
}
proc heliox::check_set {} {
# save for later
sct goto [sct target]
if {[sct target] < 1.6} {
set condense_text ""
if {[hvali [sct]/lasts_until] > [DoubleTime]} {
@ -49,7 +63,7 @@ proc heliox::check_set {} {
hupdate [sct]/mode 4
set condense_text "started"
}
sct goto [sct target]
# sct goto [sct target]
if {$condense_text ne ""} {
sct print "going to [sct target] K might take a while - condense process is $condense_text"
}
@ -65,7 +79,7 @@ proc heliox::check_set {} {
set mainsensor /th/pot
switch [sctval [sct]/mode] {
1 {
nv set 2.5
nv set [hvali [sct]/holdflow]
th setsorb/channel C
th setsorb 20
th mainloop set
@ -73,7 +87,7 @@ proc heliox::check_set {} {
run tt [sct target]
}
2 {
nv set 2.5
nv set [hvali [sct]/holdflow]
th setsorb/channel C
th setsorb 20
th mainloop set
@ -82,7 +96,7 @@ proc heliox::check_set {} {
th set [sct target]
}
3 {
nv set 2.5
nv set [hvali [sct]/holdflow]
th setsorb/channel B
th mainloop setsorb
th set 0
@ -111,13 +125,14 @@ proc heliox::check_set {} {
}
proc heliox::setmainsensor {mainsensor} {
set old [silent "" hgetpropval [sct objectPath] mainsensor]
if {$mainsensor ne $old} {
if {$old ne ""} {
catch {[sct controller] killupdatescript $old "updateval [sct objectPath]"}
}
[sct controller] updatescript $mainsensor "updateval [sct objectPath]"
if {$mainsensor eq "/th/low"} {
set old /th/pot
} else {
set old /th/low
}
catch {[sct controller] killupdatescript $old "updateval [sct objectPath]"}
[sct controller] updatescript $mainsensor "updateval [sct objectPath]"
hsetprop [sct objectPath] mainsensor $mainsensor
}
proc heliox::check_mode {} {
@ -126,7 +141,7 @@ proc heliox::check_mode {} {
0 {
}
1 {
nv set 2.5
nv set [hvali [sct parent]/holdflow]
if {[sct target] != [hvali [sct]]} {
th set [hvali /th/target]
}
@ -136,7 +151,7 @@ proc heliox::check_mode {} {
set state "hi-T mode"
}
2 {
nv set 2.5
nv set [hvali [sct parent]/holdflow]
if {[sct target] != [hvali [sct]]} {
th set [hvali /th/target]
}
@ -146,7 +161,7 @@ proc heliox::check_mode {} {
set state "mid-T mode"
}
3 {
nv set 2.5
nv set [hvali [sct parent]/holdflow]
if {[hvali [sct parent]/lasts_until] > [DoubleTime]} {
th set 0
th setsorb/channel B
@ -178,6 +193,20 @@ proc heliox::check_mode {} {
sct update [sct target]
}
proc heliox::check_condenseflow {} {
if {[sctval [sct parent]/mode] == 4} {
nv set [sct target]
}
sct update [sct target]
}
proc heliox::check_holdflow {} {
if {[sctval [sct parent]/mode] != 4} {
nv set [sct target]
}
sct update [sct target]
}
proc heliox::complete {} {
sct print [lindex {undefined "hi-T mode" "mid-T mode" "low-T mode" "-> condense"} [sct target]]
return idle
@ -215,11 +244,11 @@ proc heliox::read {} {
}
if {[hvali [sct]] == 4} {
if {$ts > 3} {
nv set 4
nv set [hvali [sct parent]/condenseflow]
set lasts_until 0
sct condense_deadline [expr $now + 36000] # timeout: should be 3600
} elseif {[result th sorb] > 39} {
nv set 4
nv set [hvali [sct parent]/condenseflow]
# 3He vapor pressure: 200 mbar at 2 K, power law
set p [expr 200 * ($ts / 2.0) ** 3.5]
# dump pressure at condensation start
@ -241,8 +270,9 @@ proc heliox::read {} {
th setsorb/channel B
th mainloop setsorb
th setsorb [silent 0.25 hgetpropval [sct parent] goto]
sct update 3
nv set 2.5
# switch to lowT and trigger check_mode
hset [sct] 3
nv set [hvali [sct parent]/holdflow]
clientput "the 3He pot [hvali [sct parent]/pot_state]"
}
}

2
tcl/drivers/ipsmag.tcl
View File

@ -303,7 +303,7 @@ proc ipsmag::update_leads {{n_of_slaves 3}} {
set msg "slave currents ($currents) are not within $mincur .. $maxcur"
hupdate [sct objectPath]/status $msg
if {$status eq ""} {
# clientlog "ERROR: $msg"
clientlog "WARNING: $msg"
}
} elseif {[string match {slave currents *} $status]} {
hupdate [sct objectPath]/status ""

4
tcl/drivers/luft.tcl
View File

@ -45,8 +45,8 @@ proc luft::writeCf {} {
} else {
luft::set_error "epics error: $val $errtxt"
}
if {[scan [lindex [sct target] 0] %d period]} {
sct timeout [expr [clock seconds] + $period + 10]
catch {
sct timeout [expr [clock seconds] + $timeout + 10]
}
return idle
}

1
tcl/instconfig/dmc.tcl
View File

@ -3,3 +3,4 @@ instconfig makeitem n2fill 1
instconfig makeitem hefill 1
# he vessel with RS232
instconfig makeitem hevessel 1
instconfig makeitem sensirion 1

25
tcl/luft.tclsh
View File

@ -16,6 +16,7 @@ proc readpipe {} {
puts stdout "> $line"
}
if {[eof $sea(pipe)]} {
puts stdout EOF
exit
}
lassign $line adr date time value
@ -65,7 +66,12 @@ set env(EPICS_CA_AUTO_ADDR_LIST) NO
set env(PATH) $env(PATH):/afs/psi.ch/project/sinq/rhel7/stow/base-3.15.5/bin/linux-x86_64-debug/
set sea(debug) [lindex "$argv 0" 0]
set sea(heartbeat) 300
if {$sea(debug) eq "1"} {
set sea(heartbeat) 20
} else {
set sea(heartbeat) 300
set sea(debug) 0
}
# connect to sea server prep0
set sea(sock) [socket samenv.psi.ch 8640]
@ -78,15 +84,14 @@ if {$sea(debug)} {
set cmd "/afs/psi.ch/project/sinq/rhel7/stow/base-3.15.5/bin/linux-x86_64-debug/camonitor [array names values]"
set ret [catch {set proc [exec ps ax -o pid,args | grep $cmd]} msg]
set killed [list]
if {$ret == 0} {
foreach line [split $proc "\n"] {
set l [split [string trim $line]]
set c [lrange $l 1 end]
if {"$c" eq "$cmd"} {
# process was still running
if {$sea(debug)} {
puts stdout "kill $proc ($c)"
}
lappend killed [lindex $l 0]
exec kill -9 [lindex $l 0]
}
}
@ -95,5 +100,15 @@ if {$ret == 0} {
set sea(pipe) [open "|$cmd" r]
fileevent $sea(pipe) readable readpipe
puts stdout [pid $sea(pipe)]
set mypid [pid $sea(pipe)]
set f [open $env(HOME)/monitfiles/luft_camonitor.pid w]
puts $f $mypid
close $f
puts stdout $mypid
if {[llength $killed] > 0 && $sea(debug)} {
puts stdout "killed $killed"
}
seacom "clientlog luft started"
vwait forever

2
tcl/ma6.config
View File

@ -16,7 +16,7 @@ makenv tt -driver [lsdriver] {
#tt set/limit 310
makeCCU4 ma6 nv
makeCCU4 ma6 nv he_ilm
hupdate /nv/set 1.2
makeN2Fill ccu4ilm {
ln2fill lowlevel 10

2
tcl/ma6.stick
View File

@ -1,3 +1,3 @@
stickDesc = standard MA6 stick
stick_sensors x63161 x63163
stick_sensors x63161 undefined

8
tcl/startup/ccu4make.tcl
View File

@ -81,12 +81,20 @@ proc makeCCU4 {args} {
helium_register _cc /cc/h0 vessel
if {$vessel ne "0"} {
catch {cc hea 1}
catch {cc hem0 475}
catch {cc hfu0 0}
}
}
helium_register _cc /cc/h
}
he_ilm {
makenv hefill -driver ccu4ext he lev
set vessel [silent 0 result instconfig hevessel]
if {$vessel ne "0"} {
catch {cc hea 1}
catch {cc hem0 475}
catch {cc hfu0 0}
}
GraphAdd lev % He_Level brown
GraphAdd cc.h0 % HeVessel blue
hsetprop /hefill fast_cmd "lev mode 1\ncc hf 1"