mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-08 18:40:55 +03:00
I Lipschitz constant tuning. Shubert estimation for minimal value is added. II Math_GlobOptMin Refactoring. III Test case is added. class NCollection_CellFilter_Inspector moved into math_GlobOptMin class.
33 lines
838 B
Plaintext
33 lines
838 B
Plaintext
puts "========"
|
|
puts "OCC27371"
|
|
puts "========"
|
|
puts ""
|
|
##############################################
|
|
# Regression: BRepExtrema works too much slower in 691 (from 670)
|
|
##############################################
|
|
restore [locate_data_file bug27371.brep] aShape
|
|
explode aShape
|
|
|
|
cpulimit 20
|
|
|
|
# Check computation time
|
|
chrono h reset; chrono h start
|
|
for { set i 1 } { $i <= 100 } { incr i } {
|
|
distmini d aShape_1 aShape_2
|
|
distmini d aShape_2 aShape_1
|
|
}
|
|
chrono h stop; chrono h show
|
|
|
|
regexp {CPU user time: (\d*)} [dchrono h show] dummy sec
|
|
if {$sec > 1} {
|
|
puts "Error: too long computation time $sec seconds"
|
|
} else {
|
|
puts "Computation time is OK"
|
|
}
|
|
|
|
# Check result of distance distance
|
|
set absTol 1.0e-10
|
|
set relTol 0.001
|
|
set aDist_Exp 0.2
|
|
set aDist [dval d_val]
|
|
checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol |