mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-06 18:26:22 +03:00
61 lines
1.6 KiB
Plaintext
61 lines
1.6 KiB
Plaintext
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
|