1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
puts "================"
puts "OCC862"
puts "================"
puts ""
########################################
## The result is just one extremum - intersection is not found.
########################################
restore [locate_data_file OCC862_1.draw] c1
restore [locate_data_file OCC862_2.draw] c2
set result [extrema c1 c2]
set err [llength $result]
if { $err <= 1} {
puts "Faulty OCC862 (amount of solution): command extrema does NOT work properly"
} else {
puts "OCC862 OK (amount of solution): command extrema works properly"
}
set 2dviewer 0
|
