From 154fdcc49b7b4523a706c256f91e1bdb34fff3e3 Mon Sep 17 00:00:00 2001 From: hrpt Date: Thu, 6 Jun 2024 08:56:33 +0200 Subject: [PATCH 1/6] add /nv/ctrl/prop & int to ori4.config --- tcl/ori4.config | 2 ++ 1 file changed, 2 insertions(+) diff --git a/tcl/ori4.config b/tcl/ori4.config index 7d56929..12e8269 100644 --- a/tcl/ori4.config +++ b/tcl/ori4.config @@ -16,6 +16,8 @@ makeCCU4 ori4 nvstep n2 he hupdate /nv/set 1.4 hupdate /nv/flowmax 20 +hupdate /nv/ctrl/prop 2 +hupdate /nv/ctrl/int 60 makenv table -driver table /tt/tm { "tt set/prop" "1:0.5 6:1 7:10 50:50 300:20" From c792df651105afa2d4a6e15a843229f7fae318c9 Mon Sep 17 00:00:00 2001 From: hrpt Date: Thu, 6 Jun 2024 08:58:22 +0200 Subject: [PATCH 2/6] add nist.stick exmaple of extenral lakshore 340 --- tcl/nist.stick | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 tcl/nist.stick diff --git a/tcl/nist.stick b/tcl/nist.stick new file mode 100644 index 0000000..746916c --- /dev/null +++ b/tcl/nist.stick @@ -0,0 +1,14 @@ +stickDesc = lakeshore 340 with 2 channels + +stick_sensors undefined undefined + +makenv ts -driver 340_lsc { + lsc_sensor ts A -sensor manual -sensorname sample + lsc_sensor tc B -sensor manual -sensorname capillary + lsc_loop set -loop 1 -channel B -maxheater 80W -resist 20Ohm -color green +} + + +GraphAdd ts.ts K T_sample +GraphAdd ts.tc K T_cap +GraphAdd ts.set.reg K T_cap_set From bc89e348d758df2fa5ac83f6bbec64ae0d7a84da Mon Sep 17 00:00:00 2001 From: hrpt Date: Thu, 6 Jun 2024 08:58:55 +0200 Subject: [PATCH 3/6] add hrpt2 instconfig --- tcl/instconfig/hrpt2.tcl | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 tcl/instconfig/hrpt2.tcl diff --git a/tcl/instconfig/hrpt2.tcl b/tcl/instconfig/hrpt2.tcl new file mode 100644 index 0000000..59d5781 --- /dev/null +++ b/tcl/instconfig/hrpt2.tcl @@ -0,0 +1,6 @@ +# enable automatic filling +instconfig makeitem hefill 1 +instconfig makeitem n2fill 1 +# there is an ami136 level meter with RS232 for the he vessel +instconfig makeitem hevessel 1 + From 157a5f74338b2f5cdf6197223a25f0fa67a472f8 Mon Sep 17 00:00:00 2001 From: camea Date: Thu, 6 Jun 2024 09:05:23 +0200 Subject: [PATCH 4/6] add camea instconfig --- tcl/instconfig/camea.tcl | 2 ++ 1 file changed, 2 insertions(+) create mode 100644 tcl/instconfig/camea.tcl diff --git a/tcl/instconfig/camea.tcl b/tcl/instconfig/camea.tcl new file mode 100644 index 0000000..8a5b1d3 --- /dev/null +++ b/tcl/instconfig/camea.tcl @@ -0,0 +1,2 @@ +instconfig makeitem sensirion 1 +instconfig makeitem he_pump_type neodry From 47c0ce5f788fc2f96d9a107434586d45dea21a91 Mon Sep 17 00:00:00 2001 From: camea Date: Thu, 6 Jun 2024 09:05:43 +0200 Subject: [PATCH 5/6] add old sea versions of dil5 / mb11 --- tcl/dil5_sea.stick | 54 +++++++++++++++++++++++++++ tcl/mb11_sea.config | 89 +++++++++++++++++++++++++++++++++++++++++++++ tcl/mb11_sea.stick | 9 +++++ 3 files changed, 152 insertions(+) create mode 100644 tcl/dil5_sea.stick create mode 100644 tcl/mb11_sea.config create mode 100644 tcl/mb11_sea.stick diff --git a/tcl/dil5_sea.stick b/tcl/dil5_sea.stick new file mode 100644 index 0000000..2200687 --- /dev/null +++ b/tcl/dil5_sea.stick @@ -0,0 +1,54 @@ +stickDesc = 100 mm dilution + +set box linse-dil5 + +proc triton {kind obj name db col {htrdb ""}} { + upvar box box + makenv $obj -driver itc$kind -port ${box}:33576 -controller _tritondil $db $htrdb + switch $kind { + temp { + GraphAdd $obj K_3 T_$name + # GraphAdd $obj.raw Ohm_3 R_$name + } + press { + GraphAdd $obj mbar_2 p_$name + } + } +} + +proc itcchan {obj name dbt dbh col setcol} { + upvar box box + makenv $obj -driver itctemp -port ${box}:3000 -controller _itcdil ${dbt}.T1 ${dbh}.H1 + GraphAdd $obj K_5 T_$name + GraphAdd $obj.set K_5 T_${name}_set $setcol + # GraphAdd $obj.pow W_3 pow_$name + # GraphAdd $obj.raw Ohm_3 R_$name +} + +itcchan twstill wupstill MB1 MB0 blue cyan + +itcchan tonek oneK DB5 DB3 red orange + +itcchan twmix wupMix DB6 DB1 green lightgreen + +itcchan twivc wupIVC DB7 DB2 magenta violet + +itcchan tcond cond DB8 DB3 yellow grey + +triton temp tsorb sorb T1 dark_violet +triton temp tivc IVC T2 brown +triton temp tstill still T3 orange +triton temp tcp cond T4 grey +triton temp tmix mix T5 cyan H1 + +triton press pdump dump P1 cyan +triton press pcond cond P2 blue +triton press pstill still P3 black +triton press pfore fore P4 green +triton press pback back P5 red + +makenv tmixdrv -driver drvpar /tmix + +defineTemperature tmixdrv + + diff --git a/tcl/mb11_sea.config b/tcl/mb11_sea.config new file mode 100644 index 0000000..7544705 --- /dev/null +++ b/tcl/mb11_sea.config @@ -0,0 +1,89 @@ +deviceDesc = 11 Tesla vertical 100mm cryomagnet + +device stick_menu "mb11 dil5 varioxB" + +makenv tvs -driver itctemp -port mb11-ts:3001 -controller _tt DB6.T1 DB1.H1 +GraphAdd tvs K T_VTIs red +GraphAdd tvs.set K T_stat_set orange +GraphAdd tvs.pow W pow_tvs red +# GraphAdd tvs.raw Ohm R_tvs red + +makenv tvd -driver itctemp -port mb11-ts:3001 -controller _tt DB7.T1 DB2.H1 +GraphAdd tvd K T_VTId magenta +GraphAdd tvd.set K T_dyn_set violet +GraphAdd tvd.pow W pow_tvd magenta +# GraphAdd tvd.raw Ohm R_tvd magenta + +makeIpsLev -port mb11-ts:3003 -controller _mf -slot DB1 + +makenv pstat -driver itcpress -port mb11-ts:3001 -controller _tt DB5.P1 DB3.G1 +GraphAdd pstat mbar p_stat +# GraphAdd pstat.pos % nv_stat +GraphAdd pstat.set mbar p_stat_set + +makenv pdyn -driver itcpress -port mb11-ts:3001 -controller _tt DB8.P1 DB4.G1 +GraphAdd pdyn mbar p_dyn +# GraphAdd pdyn.pos % nv_dyn +GraphAdd pdyn.set mbar p_dyn_set + +makenv tneck1 -driver itctemp -port mb11-ts:3002 -controller _ta MB1.T1 MB0.H1 +makenv tneck2 -driver itctemp -port mb11-ts:3002 -controller _ta DB6.T1 DB1.H1 +makenv tnvs -driver itctemp -port mb11-ts:3002 -controller _ta DB7.T1 DB2.H1 +makenv tnvd -driver itctemp -port mb11-ts:3002 -controller _ta DB8.T1 DB3.H1 + +# GraphAdd tneck1 K_2 T_neck1 +# GraphAdd tneck1.pow W pow_neck1 +# GraphAdd tneck2 K_2 T_neck2 +# GraphAdd tneck2.pow W pow_neck2 +# GraphAdd tnvs K_2 T_nvs +# GraphAdd tnvs.pow W pow_nvs +# GraphAdd tnvd K_2 T_nvd +# GraphAdd tnvd.pow W pow_nvd + +makenv mf -driver ipsmag -port mb11-ts:3003 -controller _mf +makeCCU4 mb11 +makeHeFill ccu4ilm +makeN2Fill ccu4ilm { + ln2fill lowlevel 10 + ln2fill highlevel 90 + ln2fill minfillminutes 8 + ln2fill maxfillminutes 60 + ln2fill minholdhours 12 + ln2fill maxholdhours 96 +} + +makeHePump + +GraphAdd mf T mf +GraphAdd mf.ips.leads_meas T mf_leads green +GraphAdd mf.ips.slave1 A I_master red +GraphAdd mf.ips.slave2 A I_slave2 green +GraphAdd mf.ips.slave3 A I_slavw3 blue + + +hupdate /mf/ips/symode symmetric +mf gen/profile 11:0.25 +mf gen/profile_training 11:0.25 + +mf gen/limit 10 + +mf gen/wait_switch_on 60 +mf gen/wait_switch_off 60 +mf gen/wait_stable_leads 5 +mf gen/wait_stable_field 30 + +makeCCU4 mb11 +makeN2Fill ccu4ilm { + ln2fill lowlevel 10 + # ln2fill highlevel 95 + ln2fill minfillminutes 8 + ln2fill maxfillminutes 40 + ln2fill minholdhours 24 + ln2fill maxholdhours 96 + # appendVars ln2fill.smooth/%/N2smooth/13 +} + +makenv tcoil -driver itctemp -port mb11-ts:3003 -controller _mf MB1.T1 +# GraphAdd tcoil K_2 T_coil + +setstickrot mb11-ts:3004 diff --git a/tcl/mb11_sea.stick b/tcl/mb11_sea.stick new file mode 100644 index 0000000..8c33c56 --- /dev/null +++ b/tcl/mb11_sea.stick @@ -0,0 +1,9 @@ +stickDesc = stick for MB11 + +defineTemperature ts + +makenv ts -driver itctemp -port mb11-ts:3001 -controller _tt MB1.T1 MB0.H1 +GraphAdd ts K T_sam blue +GraphAdd ts.set K T_sam_set cyan +GraphAdd ts.pow W pow_ts blue +GraphAdd ts.raw Ohm R_ts blue From b5540c9dd66bf7ef520756359c34ec537bce83dd Mon Sep 17 00:00:00 2001 From: camea Date: Thu, 6 Jun 2024 09:06:29 +0200 Subject: [PATCH 6/6] add special config files for PE cell --- tcl/ccrpe_lowT.config | 33 +++++++++++++++++++++++++++++++++ tcl/flukepe.addon | 6 ++++++ 2 files changed, 39 insertions(+) create mode 100644 tcl/ccrpe_lowT.config create mode 100644 tcl/flukepe.addon diff --git a/tcl/ccrpe_lowT.config b/tcl/ccrpe_lowT.config new file mode 100644 index 0000000..1f1efd2 --- /dev/null +++ b/tcl/ccrpe_lowT.config @@ -0,0 +1,33 @@ +deviceDesc = 4 K closed cycle cryostat (PE cell) + +defineTemperature tt +makenv tt -driver [lsdriver] { + lsc_sensor tm A -sensor x33924 -sensorname main + lsc_sensor ts C -sensor x31320 -sensorname sample + lsc_sensor te D -sensor psam -sensorname screen + lsc_loop set -loop 1 -channel A -maxheater 100W -resist 25Ohm + if {[lsdriver] eq "336_lsc"} { + lsc_loop current -loop 3 -channel C -maxheater 0.59W -resist 220Ohm -loopname pewarmup -color hidden + } +} +tt set/limit 320 + +appendVars tt.te/K/firstStage_T/7 +catch { + enableTable 0 +} + +#makeN2Fill + +#makenv ep euro2k +#obj_list ep EuroThermPressure +#appendVars ep/%/Pressure + +makeCCU4 ccrpe nv + +makenv lev -driver ami136 + +makenv warmup -driver piloop -invar "tt" -outvar "tt current/manualpower" \ + -prop 0.0005 -int 120 -outmin 0 -outmax 0.053 + +GraphAdd warmup.output kW Htr_wup auto diff --git a/tcl/flukepe.addon b/tcl/flukepe.addon new file mode 100644 index 0000000..7a545d2 --- /dev/null +++ b/tcl/flukepe.addon @@ -0,0 +1,6 @@ +addonDesc = pe pressure over fluke 45 multimeter + +makenv p -driver fluke45 {X * 500 * 900 + 0.0} + +GraphAdd p bar p dark_green +