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 ]