1# -*- tcl -*- 2 3# set a old 4# set b new 5# set c <num> 6# source this-file 7 8catch {unset time} 9catch {unset f} 10source test.$c.$a.data 11source test.$c.$b.data 12 13foreach al {bin oct hex} { 14 foreach ti {1000 1000000} { 15 16 set ta $time($al,$ti,$a) 17 set tb $time($al,$ti,$b) 18 19 set f($al,$ti) [list $ta $tb [expr {double ($ta) / double ($tb)}]] 20 } 21} 22 23parray f 24