from sans: sampleheat,thermalcond,piezo

tcl/ma6_sampleheat.stick

@@ -0,0 +1,3 @@
+\stickDesc = MA6 stick with heater and pt-1000 sensor
+
+stick_sensors x63161 pt-1000

tcl/ma7_piezo.config

@@ -0,0 +1,58 @@
+deviceDesc = 6.8 Tesla horizontal cryomagnet
+
+defineTemperature tt
+device stick_menu "ma7 dil2 dil3 dil4 coil"
+
+makenv tt -driver [lsdriver] {
+  lsc_sensor tm A -sensor x64682 -sensorname VTI
+  lsc_sensor ts C -sensorname sample
+  lsc_sensor ts_2 D -sensor code -sensorname sample2
+#  lsc_sensor ts_2 D -sensor x63881 -sensorname sample2
+  lsc_loop set -loop 1 -channel A -maxheater 32W -resist 80Ohm -color green
+  if {[lsdriver] eq "336_lsc"} {
+    lsc_loop setsamp -loop 2 -channel C -maxheater 62.5W -resist 40Ohm -loopname sample -color dark_green
+    lsc_loop voltage -loop 3 -channel D -loopname voltage -maxheater 10W -resist 100 -linearpower 360
+  }
+}
+
+GraphAdd tt.voltage.power V Voltage
+tt set/limit 310
+
+makeCCU4 ma7 nv_release_blocked he_ilm
+
+hupdate /nv/set 1.2
+# increase n.v. motor current
+cc mc 75
+nv ctrl/openpulse 2
+
+makeN2Fill ccu4ilm {
+  ln2fill lowlevel 30
+  ln2fill highlevel 80
+  ln2fill minfillminutes 8
+  ln2fill maxfillminutes 40
+  ln2fill minholdhours 24
+  ln2fill maxholdhours 96
+#  appendVars ln2fill.smooth/%/N2smooth/13
+}
+
+makeIps -limit 6.8 -startRamp 0.25 -port ma7-ts:3001 -startScript checkMA7 6.2
+if {[result instrument] eq "rita2"} {
+  mf limit 4.0
+}
+
+makeIlm -channels 2 -port ma7-ts:3002
+
+makenv tcoil -driver mom -port ma7-ts:3003 {
+  mom_sensor ta -label T_Coil1 -curve c_ab270 -adjust {371 293 456 77.4 5400 4.22}
+  mom_sensor tb -label T_Coil2 -curve c_ab270 -adjust {367 293 456 77.4 5400 4.22}
+}
+
+makenv table -driver table /tt/tm {
+  "tt set/prop" "50:10 300:5"
+  "tt set/integ" "10:10 50:5 300:2"
+  "tt dblctrl/int2" "10:10 50:100 300:600"
+  "tt dblctrl/prop_up" "20:0.1 50:0.4"
+  "tt dblctrl/prop_lo" "20:0.1 50:0.8"
+}
+
+setstickrot ma7-ts:3007

tcl/ma7_piezo.stick

@@ -0,0 +1,4 @@
+stickDesc = high curr stick for MA7 (using piezo)
+
+stick_sensors x88935 undefined
+

tcl/ma7_sampleheat.config

@@ -0,0 +1,56 @@
+deviceDesc = 6.8 Tesla horizontal cryomagnet
+
+defineTemperature tt
+device stick_menu "ma6_sampleheat"
+
+makenv tt -driver [lsdriver] {
+  lsc_sensor tm A -sensor x64682 -sensorname VTI
+  lsc_sensor ts C -sensor x63161 -sensorname sample
+  lsc_sensor ts_2 D -sensor pt-1000 -sensorname sample2
+  lsc_loop set -loop 1 -channel A -maxheater 32W -resist 80Ohm -color green
+  if {[lsdriver] eq "336_lsc"} {
+    lsc_loop setsamp -loop 2 -channel D -maxheater 10W -resist 10Ohm -loopname sample -color dark_green
+  }
+}
+tt set/limit 310
+tt setsamp/prop 5
+tt setsamp/integ 200
+
+makeCCU4 ma7 nv_release_blocked he_ilm
+
+hupdate /nv/set 1.2
+# increase n.v. motor current
+cc mc 75
+nv ctrl/openpulse 2
+
+makeN2Fill ccu4ilm {
+  ln2fill lowlevel 30
+  ln2fill highlevel 80
+  ln2fill minfillminutes 8
+  ln2fill maxfillminutes 40
+  ln2fill minholdhours 24
+  ln2fill maxholdhours 96
+#  appendVars ln2fill.smooth/%/N2smooth/13
+}
+
+makeIps -limit 6.8 -startRamp 0.25 -port ma7-ts:3001 -startScript checkMA7 6.2
+if {[result instrument] eq "rita2"} {
+  mf limit 4.0
+}
+
+makeIlm -channels 2 -port ma7-ts:3002
+
+makenv tcoil -driver mom -port ma7-ts:3003 {
+  mom_sensor ta -label T_Coil1 -curve c_ab270 -adjust {371 293 456 77.4 5400 4.22}
+  mom_sensor tb -label T_Coil2 -curve c_ab270 -adjust {367 293 456 77.4 5400 4.22}
+}
+
+makenv table -driver table /tt/tm {
+  "tt set/prop" "50:10 300:5"
+  "tt set/integ" "10:10 50:5 300:2"
+  "tt dblctrl/int2" "10:10 50:100 300:600"
+  "tt dblctrl/prop_up" "20:0.1 50:0.4"
+  "tt dblctrl/prop_lo" "20:0.1 50:0.8"
+}
+
+setstickrot ma7-ts:3007

tcl/ma7_thermalc.config

@@ -0,0 +1,55 @@
+deviceDesc = 6.8 Tesla horizontal cryomagnet for thrermalcond
+
+defineTemperature tt
+device stick_menu "thermalcond"
+
+makenv tt -driver [lsdriver] {
+  lsc_sensor tm A -sensor x64682 -sensorname VTI
+  lsc_sensor ts C -sensor x200047 -sensorname sample
+  lsc_loop set -loop 1 -channel A -maxheater 32W -resist 80Ohm -color green
+  if {[lsdriver] eq "336_lsc"} {
+    lsc_loop setsamp -loop 2 -channel C -maxheater 0.1W -resist 82Ohm -loopname sample -color dark_green
+  }
+}
+tt set/limit 310
+tt setsamp/prop 5
+tt setsamp/integ 200
+
+makeCCU4 ma7 nv_release_blocked he_ilm
+
+hupdate /nv/set 1.2
+# increase n.v. motor current
+cc mc 75
+nv ctrl/openpulse 2
+
+makeN2Fill ccu4ilm {
+  ln2fill lowlevel 30
+  ln2fill highlevel 80
+  ln2fill minfillminutes 8
+  ln2fill maxfillminutes 40
+  ln2fill minholdhours 24
+  ln2fill maxholdhours 96
+#  appendVars ln2fill.smooth/%/N2smooth/13
+}
+
+makeIps -limit 6.8 -startRamp 0.25 -port ma7-ts:3001 -startScript checkMA7 6.2
+if {[result instrument] eq "rita2"} {
+  mf limit 4.0
+}
+
+makeIlm -channels 2 -port ma7-ts:3002
+
+makenv tcoil -driver mom -port ma7-ts:3003 {
+  mom_sensor ta -label T_Coil1 -curve c_ab270 -adjust {371 293 456 77.4 5400 4.22}
+  mom_sensor tb -label T_Coil2 -curve c_ab270 -adjust {367 293 456 77.4 5400 4.22}
+}
+
+makenv table -driver table /tt/tm {
+  "tt set/prop" "50:10 300:5"
+  "tt set/integ" "10:10 50:5 300:2"
+  "tt dblctrl/int2" "10:10 50:100 300:600"
+  "tt dblctrl/prop_up" "20:0.1 50:0.4"
+  "tt dblctrl/prop_lo" "20:0.1 50:0.8"
+}
+
+setstickrot ma7-ts:3007

tcl/thermalcond.stick

@@ -0,0 +1,22 @@
+stickDesc = 50 mm thermal conductivity stick, version with standard lsc370 driver
+
+stick_sensors x200047 none
+
+
+
+makenv res -driver 370_lsc {
+  lsc_sensor s1 -channel 1 -sensor x200037  -excitation 200uV
+  lsc_sensor s2 -channel 2 -sensor x200044  -excitation 200uV
+  lsc_sensor s3 -channel 3 -sensor x200038  -excitation 200uV
+  lsc_sensor s4 -channel 4 -sensor x200048  -excitation 200uV
+}
+
+GraphAdd res.s1 K R1
+GraphAdd res.s2 K R2
+GraphAdd res.s3 K R3
+GraphAdd res.s4 K R4
+
+res autoscan/interval 15
+res autoscan/pause 5
+res autoscan/dwell 5
+