Files
sea/tcl/dil2.stick

76 lines
2.1 KiB
Plaintext

stickDesc = dilution insert
stick_sensors undefined undefined
set diln dil2
makenv ts -driver dil12 -reg370 /treg -mon370 /tmon -hasturbo 1
ts auto/pumptime1 3600
# lakeshore 370 ctrl
makenv treg -driver 370_lsc -port ${diln}-ts:3001 {
# curves for sample:
# u02045 normal dil2 holder
# m59 old dil2 weak link
# ruoxben1k weak link with test ring heater
# ruox5k weak link with test ring heater
# standard ch6 cx198/cx262/cx078 (new sensors DIL2/3/4 from Sep2014)
# heater/thermo ch8 rx198/rx262/rx078 (new field insensitive sensors DIL2/3/4 Sep2014)
lsc_sensor sample -channel 6 -sensor cx198 -active 0 -excitation 20uV \
-color blue
lsc_sensor mix -channel 5 -sensor ruoxm0 -active 1 -excitation 20uV \
-color cyan
lsc_sensor samplehtr -channel 8 -sensor rx198 -active 0 -excitation 20uV \
-color black
# weaklink heater
lsc_loop set -channel 5 -maxheater 31mA -resist 316 -linearpower 0.2e-3
GraphAdd treg.set.reg K T_set dark_green
GraphAdd treg.set.power W Htr_Power dark_green
}
# fix a bug (in the 370?): set the HRTRNG to 7 (31mA) when needed
hsetprop /treg/set fix_range 7
# lakeshore 370 monitor
makenv tmon -driver 370_lsc -port ${diln}-ts:3003 {
lsc_sensor sorb -channel 12 -sensor c270 -excitation 2mV -color dark_violet
lsc_sensor onek -channel 11 -sensor ruoxm0 -excitation 2mV -color yellow
lsc_sensor stillt -channel 10 -sensor ruoxm0 -excitation 200uV -color orange
lsc_sensor sample 3 clone
lsc_sensor samplehtr 1 clone
lsc_sensor mix 4 clone
}
proc graphvti {} {
GraphItem shown tt.ts 0
GraphItem label tt.set.reg VTI_reg
GraphItem label tt.set.power VTI_power
}
dolater 0 graphvti
tt ts/curve undefined
hsetprop /tt group "VTI temperature"
makeDil -port ${diln}-ts:3005
makenv sorb -driver piloop -invar "/tmon/sorb" -outvar "dil psorb" \
-prop 200 -int 15
# control on mix by default (todo: check for unknown first/check default mechanism)
ts control 6
treg set/deriv 0
defineTemperature ts
dil extVersion 1
# take last selected values when doing samenv reload
catch {default ts control}
catch {default ts heaterselect}
#makeMotorValve vb ${diln}-ts:3004
#makeMotorValve vm ${diln}-ts:3006