add scripts for jtccr

tcl/fillgh.tcl

@@ -0,0 +1,33 @@
+clientput "start filling the jtccr-gh"
+
+clientput "configure compressor automatic..."
+jtccr p2min 0.12
+jtccr p2lim 0.5
+jtccr p2max 0.9
+jtccr p3max 6.6
+jtccr plow 4
+
+clientput "start compressor automatic"
+jtccr 1
+
+while {[result p3] < 6.0} {
+wait 30
+clientput "HP dump at [result p3] bar.."
+clientput ".. filling"
+wait 10
+}
+
+jtccr 0
+
+while {[result p2] < 1.01 } {
+  clientput "filling LP dump.."
+  wait 30
+}
+
+clientput "open v6 and v7"
+if {[result p2] > 1.01} {
+  v v6 1
+  v v7 1
+}
+clientput "done"
+

tcl/fixheater.tcl

@@ -0,0 +1,21 @@
+proc fixheater {} {
+  if {[catch {hval /tt/set/reg}]} {
+     set mout2 [silent 0 hgetpropval /tt/set/power last_htr]
+     hsetprop /tt/set @manual_out $mout2
+     set mout1 [silent 0 hgetpropval /tt/setvti/power last_htr]
+     hsetprop /tt/setvti @manual_out $mout1
+     tt set [silent 0 hgetpropval /tt/set last_target]
+     tt setvti [silent 0 hgetpropval /tt/setvti last_target]
+  } else {
+     set htr [silent 0 hgetpropval /tt/set/power htr]
+     if {$htr} {
+       hsetprop /tt/set/power last_htr $htr
+     }
+     set htr [silent 0 hgetpropval /tt/setvti/power htr]
+     if {$htr} {
+       hsetprop /tt/setvti/power last_htr $htr
+     }
+  }
+}
+
+publishLazy fixheater

tcl/jtccr_cool.tcl

@@ -0,0 +1,30 @@
+# this is not a functioning script, but just meta code
+# needs to be checked and written
+open V9
+close V8
+set preg auf 12
+while {[result tt] > 9.0 } {
+
+ if {[result pbuffer] > 0.99} {
+
+   close V2
+   close V9
+   open v7
+   while {p4 > 1.8 & p3 > 6 } {
+     open v4
+   }
+  close v4
+  open v8
+  switch on compressor 
+  while {p4 >1.8 & P3 > 5} {
+   open v4
+  }
+  close v4
+ } else {
+   close v4
+   close v7
+   close v8
+   open v9
+   open v2
+ }
+}

tcl/jtccr_overp.job

@@ -0,0 +1,18 @@
+while {[result jtccr] == 0} {
+    wait 5
+    if {([result p2] > 0.6) && ([result epc port1] == 0)} {
+       epc port1 1
+    }
+    if {([result p2] <0.4) && ([result epc port1] == 1)} {
+      epc port1 0
+    }
+    if {([result p3] > 4.5) && ([result jtccr v10] == 0)} {
+       jtccr v10 1
+    }
+    if {([result p3] <2.0) && ([result jtccr v10] == 1)} {
+      jtccr v10 0
+    }
+}
+epc port1 0
+jtccr v10 0
+

tcl/jtccr_valves.job

@@ -0,0 +1,12 @@
+while {[result tt] > 9.8} {
+    wait 5
+}
+jtccr v9 0
+jtccr v8 1
+pressreg setpoint 4
+wait 5
+jtccr v9 0
+jtccr v8 1
+pressreg setpoint 4
+
+