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

dirvers/nvstep: fixes

Browse Source
This commit is contained in:
l_samenv
2023-10-26 10:05:26 +02:00
parent 2c13e9b091
commit 4d1858560b
1 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tcl/drivers/nvstep.tcl
View File

@ -330,22 +330,14 @@ proc nvstep::updateflow {value} {
} }
sct filtered $flow sct filtered $flow
if {$source eq "flow"} { if {$source eq "flow"} {
if {$flow < 1} {
# avoid negative flow values, but it smooth]
set flow [expr exp($flow - 1)]
}
updateval [sct nvpath]/flow $flow updateval [sct nvpath]/flow $flow
} elseif {$source eq "pressure" { } elseif {$source eq "pressure"} {
if {$flow < -50} { if {$flow < -50} {
set flow -62.5 set flow -62.5
} else { } else {
set off [hval [sct nvpath]/calib/mbar_offset] set off [hval [sct nvpath]/calib/mbar_offset]
set fpm [hval [sct nvpath]/calib/ln_per_min_per_mbar] set fpm [hval [sct nvpath]/calib/ln_per_min_per_mbar]
set flow [expr ($flow - $off) * $fpm] set flow [expr ($flow - $off) * $fpm]
if {$flow < 1} {
# avoid negative flow values, but keep it smooth]
set flow [expr exp($flow - 1)]
}
} }
updateval_e [sct nvpath]/flowp $flow -62.5 no_sensor updateval_e [sct nvpath]/flowp $flow -62.5 no_sensor
} else { } else {