35 lines
810 B
Tcl
35 lines
810 B
Tcl
#----- eurotherm furnace -----
|
|
|
|
proc makeEuro {tf {mode control}} {
|
|
makenv $tf euro2k
|
|
catch {
|
|
$tf makepar pb w 6 K
|
|
$tf makepar ti w time 8
|
|
$tf makepar td w time 9
|
|
$tf makepar manual w int 273
|
|
$tf makepar rate w 35 K/min
|
|
$tf makepar workset w 5 @
|
|
$tf upperLimit 800
|
|
$tf lowerLimit 0
|
|
$tf tolerance 0.05
|
|
$tf maxwait 7200
|
|
$tf settle 0
|
|
$tf position 50
|
|
}
|
|
clientput "EURO $tf"
|
|
obj_list $tf eurotherm furnace
|
|
defineTemperature $tf
|
|
if {[string equal control $mode]} {
|
|
Layout euro $tf
|
|
} else {
|
|
$tf manual
|
|
}
|
|
}
|
|
|
|
proc euroLayout {tf} {
|
|
# Input "eurotherm set T" "run $tf/[result $tf targetValue]"
|
|
Input "eurotherm set T" "run te/[result te targetValue]"
|
|
Input "ramp rate K/min" "te rate"
|
|
Label "more parameters available: see 'te list'"
|
|
}
|