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

heliux: improve condense deadline (soft_dealine)

Browse Source
This commit is contained in:
zolliker
2024-10-22 10:37:03 +02:00
parent 10de483a52
commit 35c5b225b6
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
tcl/drivers/heliox.tcl
View File

@ -115,6 +115,7 @@ proc heliox::check_set {} {
th mainloop setsorb
tt dblctrl 0
tt set 1.25
catch {hdelprop /ts/mode soft_deadline}
}
default {
error "bad mode"
@ -190,6 +191,7 @@ proc heliox::check_mode {} {
set state "-> condense"
hsetprop /th target 0.25
hsetprop /ts target 0.25
catch {hdelprop /ts/mode soft_deadline}
}
}
setmainsensor $mainsensor
@ -230,7 +232,8 @@ proc heliox::read {} {
set ts [result th pot]
set tsorb [result th sorb]
sct lasttime $now
if {$ts > 3 && $tsorb < 10} {
set mode [hvali [sct]]
if {(($mode == 3 && $ts > 2) || ($ts > 3)) && $tsorb < 10} {
if {$lasts_until} {
clientput "3He pot went empty"
}
@ -246,12 +249,12 @@ proc heliox::read {} {
set lasts_until 0
}
}
if {[hvali [sct]] == 4} {
if {$mode == 4} {
if {$ts > 3} {
# above 3 K: set deadline
nv set [hvali [sct parent]/condenseflow]
set lasts_until 0
sct condense_deadline [expr $now + 3600] # timeout 1 hour
sct condense_deadline [expr $now + 3600]
} elseif {[result th sorb] > 39} {
nv set [hvali [sct parent]/condenseflow]
# 3He vapor pressure: 200 mbar at 2 K, power law
@ -271,7 +274,7 @@ proc heliox::read {} {
set sdl [silent $dl sct soft_deadline]
if {$dl <= $sdl} {
sct soft_deadline $dl
} elseif {$now > $sdl + 600} {
} elseif {$now > $sdl + 300} {
clientput "stop condensing - target_hours is probably too high - expect only [expr round($hours)] h hold time"
set target_hours $hours
}