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
}