initial commit

tcl/dil4.stick

@@ -0,0 +1,77 @@
+stickDesc = dilution insert
+
+stick_sensors undefined undefined
+
+set diln dil4
+
+makenv ts -driver dil12 -reg370 /treg -mon370 /tmon -hasturbo 1
+
+# 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 cx078 -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 rx078 -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
+
+# the following may be removed as soon as the semi rigid cables are better anchored
+ts auto/cool_crit vti<4 && onek<4 && sorb<6 && still<14
+
+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
+
+