2 puts "If scales by 1000, time to compute is 10 times greater "
5 restore buc60068a.rle a
6 restore buc60068b.rle b
7 restore buc60068a.rle c
8 restore buc60068b.rle d
9 restore buc60068a.rle e
10 restore buc60068b.rle f
11 restore buc60068a.rle g
12 restore buc60068b.rle h
39 regexp {Elapsed time: ([0-9]+) Hours ([0-9]+) Minutes ([0-9]|.+) Seconds} [dchrono j show] full Jhours Jminutes Jseconds
40 regexp {Elapsed time: ([0-9]+) Hours ([0-9]+) Minutes ([0-9]|.+) Seconds} [dchrono k show] full Khours Kminutes Kseconds
41 regexp {Elapsed time: ([0-9]+) Hours ([0-9]+) Minutes ([0-9]|.+) Seconds} [dchrono l show] full Lhours Lminutes Lseconds
42 regexp {Elapsed time: ([0-9]+) Hours ([0-9]+) Minutes ([0-9]|.+) Seconds} [dchrono m show] full Mhours Mminutes Mseconds
44 set Jtime [expr ($Jhours*60*60 + $Jminutes*60 + $Jseconds)*2]
45 set Ktime [expr $Khours*60*60 + $Kminutes*60 + $Kseconds]
46 set Ltime [expr $Lhours*60*60 + $Lminutes*60 + $Lseconds]
47 set Mtime [expr $Mhours*60*60 + $Mminutes*60 + $Mseconds]
49 if { $Jtime < $Ktime || $Jtime < $Ltime || $Jtime < $Mtime} {
50 puts "Error: incorrect performance of bfuse operation:"
51 puts "SCALE=1 : $Jtime seconds."
52 puts "SCALE=100 : $Ktime seconds."
53 puts "SCALE=1000 : $Ltime seconds."
54 puts "SCALE=10000 : $Mtime seconds."
57 compound resab rescd resef resgh result