move a lot of stuff to git

tcl/srrr.job

@@ -0,0 +1,28 @@
+
+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]
+}
+
+
+set iset 1.0
+set resistance 0
+cs Enable 1
+
+while {0 < 1 } {
+  set test [measres $iset 1E-7]
+  set resistance [lindex $test 0]
+  set iset [format "%.3f" [lindex $test 1]]
+  if {$iset > 1.0} {
+    set iset 1.0
+  }
+
+  clientput ${resistance} Ohm
+}