a87752f3 |
1 | puts "========" |
2 | puts "BUC60890" |
3 | puts "========" |
4 | puts "" |
5 | ##################################################### |
6 | ## The Extrema raises when the number of C2 intervals is greater that 16. |
7 | ##################################################### |
8 | |
9 | set poles { { 0 0 1 } { 1 0 1 } { 1.3 1 1 } { 2 1 1 } { 2 0 1 } { 3 0 1} { 3.5 1 1 } { 4 1 1 } { 4 0 1 } { 5 0 1 } { 5 1 1 } { 6 1 1 } { 6 0 1 } { 7 0 1 } { 7 1 1 } { 8 1 1 } { 8 0 1 } { 9 0 1 } } |
10 | set knots { { 0 2 } { 1 1 } { 2 1 } { 3 1 } { 4 1 } { 5 1 } { 6 1 } { 7 1 } { 8 1 } { 9 1 } { 10 1 } { 11 1 } { 12 1 } { 13 1 } { 14 1 } { 15 1 } { 16 1 } {17 2 } } |
11 | |
12 | eval 2dbsplinecurve curve_1 1 [ llength $knots] [ join $knots ] [ join $poles ] |
13 | |
14 | circle curve_2 5.3 -0.5 2 |
15 | |
16 | set err [llength [2dextrema curve_1 curve_2]] |
17 | |
18 | if {$err == 16} { |
19 | puts "BUC60890 OK: Function 2dextrema works properly." |
20 | } else { |
21 | puts "Faulty BUC60890 : Function 2dextrema works wrongly." |
22 | } |