puts " BUC60068 " puts "If scales by 1000, time to compute is 10 times greater " ## ## mod pkv from restore [locate_data_file buc60068a.rle] a restore [locate_data_file buc60068b.rle] b restore [locate_data_file buc60068a.rle] c restore [locate_data_file buc60068b.rle] d restore [locate_data_file buc60068a.rle] e restore [locate_data_file buc60068b.rle] f restore [locate_data_file buc60068a.rle] g restore [locate_data_file buc60068b.rle] h ## mod pkv from ## ## section dchrono j start bsection resab a b dchrono j stop tscale c 0 0 0 100 tscale d 0 0 0 100 dchrono k start bsection rescd c d dchrono k stop tscale e 0 0 0 1000 tscale f 0 0 0 1000 dchrono l start bsection resef e f dchrono l stop tscale g 0 0 0 10000 tscale h 0 0 0 10000 dchrono m start bsection resgh g h dchrono m stop regexp {CPU user time: ([0-9|.]+) seconds} [dchrono j show] full Jseconds regexp {CPU user time: ([0-9|.]+) seconds} [dchrono k show] full Kseconds regexp {CPU user time: ([0-9|.]+) seconds} [dchrono l show] full Lseconds regexp {CPU user time: ([0-9|.]+) seconds} [dchrono m show] full Mseconds #sometimes CPU user time may be 0 set Jtime [expr ($Jseconds * 1.1) + 0.2] set Ktime $Kseconds set Ltime $Lseconds set Mtime $Mseconds if { $Jtime < $Ktime || $Jtime < $Ltime || $Jtime < $Mtime} { puts "Error: incorrect performance of bsection operation:" puts "SCALE=1 : $Jtime seconds." puts "SCALE=100 : $Ktime seconds." puts "SCALE=1000 : $Ltime seconds." puts "SCALE=10000 : $Mtime seconds." } compound resab rescd resef resgh result set length 1.41538e+07