2fe0e897 |
1 | puts "===========" |
2 | puts "OCC24946" |
3 | puts "===========" |
4 | puts "" |
5 | ###################################################### |
6 | # Wrong result obtained by Extrema Curve/Curve |
7 | ###################################################### |
8 | |
9 | restore [locate_data_file bug24946_ez5] b1 |
10 | restore [locate_data_file bug24946_ez101] b2 |
11 | |
12 | mkcurve cb1 b1 |
13 | mkcurve cb2 b2 |
14 | |
15 | extrema cb1 cb2 |
16 | regexp {The length ext_1 is+ +([-0-9.+eE]+)} [length ext_1] full ll |
17 | |
18 | if { $ll < 1.0e-7 } { |
19 | puts "OK: extrema is good" |
20 | } else { |
21 | puts "Error: extrema is wrong" |
22 | } |