29 lines
502 B
Plaintext
29 lines
502 B
Plaintext
|
|
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
|
|
}
|