51 lines
962 B
Plaintext
51 lines
962 B
Plaintext
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 ]
|
|
|