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

fictrl: remove feedback check for test purposes

Browse Source
This commit is contained in:
l_samenv
2023-03-31 10:34:30 +02:00
parent 2223077cf0
commit e044ddc744
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
tcl/drivers/fictrl.tcl
View File

@ -180,9 +180,10 @@ proc fictrl::update_power {} {
set vout [expr $keyval(h) * 0.01 * [sct @voltscale]]
# set vpercent [expr $v * 100.0 / [sct @voltscale]]
# difference output voltage % - read voltage %
clientput "v $v vout $vout last [silent None sct last_v]"
if {abs($v - $vout) > 0.5} {
clientput "v $v vout $vout last [silent "" sct last_v]"
if {abs($v - [silent 100 sct last_v]) < 0.02} {
if {abs($v - [silent 100 sct last_v]) > 100.02} {
clientput "power supply feedback does not follow"
enum_decode [sct parent]/ctrlmode power_supply_off new
sct @power_supply_off 1
if {$new != [sctval [sct parent]/ctrlmode]} {