initial commit
This commit is contained in:
34
tcl/startup/euroFurnace.tcl
Normal file
34
tcl/startup/euroFurnace.tcl
Normal file
@ -0,0 +1,34 @@
|
||||
#----- 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'"
|
||||
}
|
Reference in New Issue
Block a user