352ffd73 |
1 | puts "==========" |
2 | puts "OCC703 " |
3 | puts "==========" |
4 | puts "" |
5 | ################################################## |
6 | ## Wrong result of extrema |
7 | ## Draw command extrema c1 ce gives no solutions, but must be 2 solutions |
8 | ################################################## |
9 | |
10 | restore [locate_data_file OCC703_1.draw] c1 |
11 | restore [locate_data_file OCC703_2.draw] ce |
12 | |
13 | set result [extrema c1 ce] |
14 | set err [llength $result] |
15 | if { $err != 2} { |
16 | puts "Faulty OCC703 (amount of solution): command extrema does NOT work properly" |
17 | } else { |
18 | puts "OCC703 OK (amount of solution): command extrema works properly" |
19 | } |
20 | |
21 | set 2dviewer 0 |
22 | |