regexp {([0-9]+) nodes} ${trinfo_s} str nbnod_s
regexp {deflection ([0-9.+e-]+)} ${trinfo_s} str defl_s
-if { ${nbtri_s} != 90 } {
+if { ${nbtri_s} != 99 } {
puts "Error: triangle number is bad"
}
-if { ${nbnod_s} != 54 } {
+if { ${nbnod_s} != 59 } {
puts "Error: node number is bad"
}
-set expected_defl_s 0.59663444648536101
+set expected_defl_s 0.59663444648536146
set tol_abs_defl_s 1.e-3
set tol_rel_defl_s 0.01
checkreal "Deflection" ${defl_s} ${expected_defl_s} ${tol_abs_defl_s} ${tol_rel_defl_s}
set good_nbtri 2721
set good_nbnod 1405
-set good_defl 0.082010129769776202
+set good_defl 0.048938765264496524
set good_percent 5
puts "KnotsPoles=${KnotsPoles}"
puts ""
-set tol_abs 1.e-7
+set tol_abs 1.e-4
set tol_rel 0.01
set V_i 0
}
if { ${i} > 1 } {
#puts "i=${i} U_i=${U_i} V_i=${V_i} V_i_1=${V_i_1}"
- if { ${V_i_1} >= ${V_i} } {
+ if { ${V_i_1} - ${V_i} > ${tol_abs} } {
puts "Error: Bad value of V in string: ${i} :${U_i}, ${V_i}"
}
}
regexp { +([-0-9.+eE]+) +triangles} $info full tri
regexp { +([-0-9.+eE]+) +nodes} $info full nod
-if { $tri != 84 || $nod != 84 } {
+if { $tri != 92 || $nod != 92 } {
puts "Faulty OCC364: here is shading problem"
} else {
puts "Shading of OCC364 is OK"
[string compare $command "mesh"] == 0 ||
[string compare $command "incmesh_parallel"] == 0 } {
set bug_area "OCC25519"
- set rel_tol 1.3654
+ set rel_tol 1.3485
}
set TheFileName shading_102.brep
if { [string compare $command "shading"] == 0 } {
set bug_area "OCC22687"
- set rel_tol 1.7
+ set rel_tol 1.692
}