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

improve neodry hepump

Browse Source
This commit is contained in:
zolliker
2023-05-23 18:41:12 +02:00
parent 010a5e1bbf
commit 58e9caed8b
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tcl/drivers/hepump.tcl
View File

@ -10,7 +10,7 @@ proc stdConfig::hepump {{motname hemot}} {
obj HePump -int wr
default 0
prop enum xds35_auto,xds35_manual,sv65,other,neodry=8,no=-1
prop enum neodry=8,xds35_auto=0,xds35_manual=1,sv65=2,other=3,no=-1
prop help "xds35: scroll pump, sv65: leybold"
prop read hepump::read
prop write hepump::set_type
@ -69,7 +69,7 @@ proc hepump::visible {pumpcode} {
}
set runv true
} elseif {$pumpcode == 8} {
set rv true
set rv false
set runv true
set v true
} else {
@ -146,7 +146,7 @@ proc hepump::set_calib {} {
} else {
hsetprop [sct]/[sct @motname] group "hepump valve motor"
}
set f 0.6
set f 0.5
} elseif {$pumpcode == 3} { # other
hsetprop [sct]/[sct @motname] group "hepump valve motor"
set f [hval [sct]/calib]
@ -164,10 +164,10 @@ proc hepump::set_calib {} {
}
proc hepump::read {} {
set p [silent 0 result cc f]
set p [expr [silent 0 result cc f] * [silent 0.6 hvali /nv/calib/ln_per_min_per_mbar]]
set f [silent 0 result nvflow]
if {[hvali [sct]/eco] == 0 && $p > 1 && $f > 0.5 && $f < 25} {
set health [expr 100 * $f / ($p * 0.5 - 0.5)]
set health [expr 100 * $f / ($p / 1.2 - 0.5)]
set health [expr [silent $health sct health] * 0.95 + 0.05 * $health]
sct health $health
if {abs($health - [silent 0 hval [sct]/health]) > 1} {