move a lot of stuff to git

tcl/rrr.job

@@ -0,0 +1,50 @@
+set Tmax 300
+set Tmin 4.0
+set Tramp 5
+set Imax 1.0
+
+proc measres {iset dv} {
+  cs iset $iset
+  wait 15
+  set Vpos [result vm u1]
+  cs iset -$iset
+  wait 15
+  set Vneg [result vm u1]
+  set res [expr ($Vpos - $Vneg) / (2. * $iset)]
+  set inew [expr $dv/ ($Vpos - $Vneg) * $iset]
+  return [list $res $inew]
+}
+
+
+tt set/ramp $Tramp
+set iset 1.0
+set resistance 0
+set rhigh 0
+set rlow 1
+cs Enable 1
+
+while {[result tt] > [expr $Tmin * 1.1] | [result tt] < $Tmax } {
+  set test [measres $iset 1E-7]
+  set resistance [lindex $test 0]
+  set iset [format "%.3f" [lindex $test 1]]
+  if {$iset > $Imax} {
+    set iset $Imax
+  }
+
+  clientput [result tt] ${resistance}
+
+  if {[result tt] > 290} {
+    set rhigh $resistance
+    set thigh [result tt]
+  }
+
+  if {[result tt] < 6.0} {
+    set rlow $resistance
+    set tlow [result tt]
+  }
+}
+
+clientput resistance at ${thigh} K : ${rhigh} Ohm
+clientput resistance at ${tlow} K : ${rlow} Ohm
+clientput RRR : [ expr $rhigh / $rlow ]
+