From b5540c9dd66bf7ef520756359c34ec537bce83dd Mon Sep 17 00:00:00 2001
From: camea <markus.zolliker@psi.ch>
Date: Thu, 6 Jun 2024 09:06:29 +0200
Subject: [PATCH] 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
+