Open Mash Cross Reference
mash/tcl/degas/degasmonitor/parse-monitor-log.tcl

   set f [open "aglp-monitor.log" r]
   set prev_rate 0
   while {![eof $f]} {
           set line [gets $f]
           if {$line == ""} {
                   break
           }
           set time [lindex $line 0]
           set total [lindex $line 2]
          if ![info exists start_time] {
                  set start_time $time
          }
          if {$start_time != $time} {
                  set rate [expr $total/double($time - $start_time)]
          } else {
                  set rate 0
          }
          set rate [expr {0.8*$prev_rate  + 0.2*$rate}]
          set prev_rate $rate
          puts "$time $rate"
  }