From 00764f27e1b90e187f595dce99407f71b3ce332a Mon Sep 17 00:00:00 2001 From: sans Date: Thu, 2 May 2024 16:34:19 +0200 Subject: [PATCH] from sans: sampleheat,thermalcond,piezo --- tcl/ma6_sampleheat.stick | 3 ++ tcl/ma7_piezo.config | 58 +++++++++++++++++++++++++++++++++++++++ tcl/ma7_piezo.stick | 4 +++ tcl/ma7_sampleheat.config | 56 +++++++++++++++++++++++++++++++++++++ tcl/ma7_thermalc.config | 55 +++++++++++++++++++++++++++++++++++++ tcl/thermalcond.stick | 22 +++++++++++++++ 6 files changed, 198 insertions(+) create mode 100644 tcl/ma6_sampleheat.stick create mode 100644 tcl/ma7_piezo.config create mode 100644 tcl/ma7_piezo.stick create mode 100644 tcl/ma7_sampleheat.config create mode 100644 tcl/ma7_thermalc.config create mode 100644 tcl/thermalcond.stick diff --git a/tcl/ma6_sampleheat.stick b/tcl/ma6_sampleheat.stick new file mode 100644 index 0000000..79f0d68 --- /dev/null +++ b/tcl/ma6_sampleheat.stick @@ -0,0 +1,3 @@ +\stickDesc = MA6 stick with heater and pt-1000 sensor + +stick_sensors x63161 pt-1000 diff --git a/tcl/ma7_piezo.config b/tcl/ma7_piezo.config new file mode 100644 index 0000000..b4696ce --- /dev/null +++ b/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 diff --git a/tcl/ma7_piezo.stick b/tcl/ma7_piezo.stick new file mode 100644 index 0000000..34bcdaa --- /dev/null +++ b/tcl/ma7_piezo.stick @@ -0,0 +1,4 @@ +stickDesc = high curr stick for MA7 (using piezo) + +stick_sensors x88935 undefined + diff --git a/tcl/ma7_sampleheat.config b/tcl/ma7_sampleheat.config new file mode 100644 index 0000000..816287b --- /dev/null +++ b/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 diff --git a/tcl/ma7_thermalc.config b/tcl/ma7_thermalc.config new file mode 100644 index 0000000..bdbdc68 --- /dev/null +++ b/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 diff --git a/tcl/thermalcond.stick b/tcl/thermalcond.stick new file mode 100644 index 0000000..36f6972 --- /dev/null +++ b/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 +