mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
f79b19a17e
Extrema between curves has been made producing correct result for the cases of solution located near bounds. - Class math_GlobOptMin has been improved to use lower order methods of local optimization when high-order methods are failed. - Add support of conditional optimization (in bounds) in the classes math_BFGS and math_BracketMinimum. - Turn on conditional optimization in the case of usage of math_BFGS in the class math_GlobOptMin. - Correct mistake in distmini command, which caused incorrect reading of deflection parameter. - To avoid possible FPE signals, ensure initialization of fields in the class math/math_BracketMinimum. - In the algorithms math_BFGS, math_Powell and math_FRPR, take into account that the function math_MultipleVarFunction can return failure status (e.g. when computing D0 out of bounds). New test cases have been added. Tests cases are updated. // correct test case
40 lines
1004 B
Plaintext
40 lines
1004 B
Plaintext
puts "============"
|
|
puts "CR28182"
|
|
puts "==========="
|
|
puts ""
|
|
###############################################################################
|
|
# BRepExtrema_DistShapeShape returns bad result of non-default deflection is used
|
|
###############################################################################
|
|
|
|
pload MODELING
|
|
|
|
restore [locate_data_file bug28175_borders2.brep] b
|
|
restore [locate_data_file bug28175_segments2_diff.brep] s
|
|
explode s
|
|
donly s_198 b
|
|
|
|
set ref_nbsol 4
|
|
set defl 0.0001
|
|
|
|
set res [distmini r s_198 b $defl]
|
|
|
|
set redges [lrange [lindex [split $res \n] 1] 1 end]
|
|
set nbsol [llength $redges]
|
|
set dist [dval r_val]
|
|
|
|
don b s_198
|
|
foreach q $redges { display $q; foreach v [explode $q] { display $v } }
|
|
fit
|
|
|
|
if { $dist > $defl } {
|
|
puts "Error: too big distance is reported: $dist"
|
|
} else {
|
|
puts "OK: reported distance $dist is below $defl"
|
|
}
|
|
|
|
if {$nbsol != $ref_nbsol} {
|
|
puts "Error: $ref_nbsol solutions expected, but $nbsol found"
|
|
} else {
|
|
puts "OK: $ref_nbsol solutions are found"
|
|
}
|