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

Separate out the PID related code into pid_function blocks

Browse Source
This commit is contained in:
Douglas Clowes
2014-03-19 09:44:16 +11:00
parent f257de6c34
commit 957ca1db19
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
site_ansto/instrument/config/environment/hiden_xcs.sct
View File

@ -188,10 +188,14 @@ driver hiden_xcs = {
@ }
@ if { [hpropexists [sct] target] } {
@ set pid [pid_humidity ${tc_root} [sct target] ${data}]
}
code pid_function pid_humidity = {
@ set path [pathname [sct]]
@ set sign 1
@ foreach node [list analog/sp1 analog/sp2] {
@ set pid [expr -${pid}]
@ hsetprop ${path}/${node} bias_humidity ${pid}
@ set sign [expr -${sign}]
@ set signed_pid [expr ${sign} * ${pid}]
@ hsetprop ${path}/${node} bias_humidity ${signed_pid}
@ if { [hpropexists ${path}/${node} target] } {
@ hset ${path}/${node} [hgetpropval ${path}/${node} target]
@ } else {
@ -214,6 +218,11 @@ driver hiden_xcs = {
@ sct targets ${targets}
@ if { [hpropexists [sct] target] } {
@ set pid [pid_flow ${tc_root} [sct target] ${data}]
@# cut this function short
@ return ${nextState}
}
code pid_function pid_flow = {
@ set path [pathname [sct]]
@ foreach node [list analog/sp1 analog/sp2] {
@ hsetprop ${path}/${node} bias_flow ${pid}
@ if { [hpropexists ${path}/${node} target] } {
@ -223,7 +232,6 @@ driver hiden_xcs = {
@ }
@ }
@ }
@ return ${nextState}
}
code write_function write_digital = {
}