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

CCR2,CCR2HT: exchange loops

Browse Source 
this is needed to achieve 650 K on the hot stage
This commit is contained in:
l_samenv
2024-10-28 14:13:39 +01:00
parent bdd25b4ec7
commit 2f4868c7c7
2 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tcl/ccr2.config
View File

@ -5,13 +5,17 @@ defineTemperature tt
makenv tt -driver [lsdriver] {
lsc_sensor tm B -sensor x31319 -sensorname main
lsc_sensor te A -sensor x31318 -sensorname screen
lsc_loop set -loop 2 -channel C -maxheater 100W -resist 25Ohm
if {[lsdriver] eq "336_lsc"} {
lsc_loop set -loop 2 -channel A -maxheater 100W -resist 25Ohm
}
}
if {[catch {
tt set/limit 310
tt set/prop 10
tt set/integ 2
}]} {
error "CCR2 does not work with a LakeShore 340"
} else {
appendVars tt.te/K/Screen_T/7 tt.p/W/Power/1
makeCCU4 ccr2ht
}

4
tcl/ccr2ht.config
View File

@ -6,10 +6,10 @@ makenv tt -driver [lsdriver] {
lsc_sensor tm C -sensor pt1000e -sensorname main -alarm 650
lsc_sensor te B -sensor x31318 -sensorname screen
lsc_sensor tk A -sensor x31319 -sensorname coldfinger -alarm 310
lsc_loop set -loop 1 -channel C -maxheater 100W -resist 25Ohm
if {[lsdriver] eq "336_lsc"} {
lsc_loop set -loop 2 -channel C -maxheater 100W -resist 25Ohm
lsc_loop setcf -loop 2 -channel A -maxheater 50W -resist 25Ohm -loopname cf
}
lsc_loop setcf -loop 1 -channel B -maxheater 100W -resist 25Ohm -loopname cf
}
tt set/limit 650