add archive (files probably no longer used)
here we can find old files
This commit is contained in:
47
tcl/archive/startup/Datafile.tcl
Normal file
47
tcl/archive/startup/Datafile.tcl
Normal file
@ -0,0 +1,47 @@
|
||||
######################################
|
||||
proc DataFile {fname dt criterium} {
|
||||
set fd [open $fname a]
|
||||
puts $fd "# Time Temp Curr Volt"
|
||||
puts $fd "# sec K pA V "
|
||||
|
||||
set t0 [clock clicks -milliseconds]
|
||||
set time [expr ([clock clicks -milliseconds] - $t0) * 0.001]
|
||||
set temp [result tt ts]
|
||||
set curr [result kth]
|
||||
set volt [result kth volt]
|
||||
set nr 0
|
||||
hsetprop tt updateperiod $dt
|
||||
while {[expr $criterium]} {
|
||||
|
||||
set time [expr ([clock clicks -milliseconds] - $t0) * 0.001]
|
||||
set temp [result tt ts]
|
||||
set curr [result kth]
|
||||
set volt [result kth volt]
|
||||
set nr [expr $nr + 1]
|
||||
|
||||
puts $fd "$time $temp $curr $volt"
|
||||
|
||||
if {$nr > 10 } {
|
||||
close $fd
|
||||
set nr 0
|
||||
set fd [open $fname a]
|
||||
}
|
||||
|
||||
wait $dt
|
||||
|
||||
|
||||
}
|
||||
clientput "...done!"
|
||||
close $fd
|
||||
hsetprop tt updateperiod 5
|
||||
|
||||
}
|
||||
|
||||
####################################
|
||||
##example
|
||||
#set fname "testfile.dat"
|
||||
#set dt 1
|
||||
#set criterium {$time < 8.0}
|
||||
|
||||
#DataFile $fname $dt $criterium
|
||||
###################################
|
Reference in New Issue
Block a user