0e94a94e |
1 | |
2 | puts "========" |
3 | puts "BUC60870" |
4 | puts "========" |
5 | |
6 | pload QAcommands |
7 | |
8 | vertex vertex_1 0 0 0 |
9 | vertex vertex_2 0 1 0 |
10 | vertex vertex_3 0 0.3 1 |
11 | |
12 | edge edge_1 vertex_1 vertex_2 |
13 | |
14 | set result [BUC60870 test_result edge_1 vertex_3 2.0] |
15 | |
16 | if {[llength ${result}] < 4} { |
17 | puts "BUC60870: Error; must be 3 solutions" |
18 | } else { |
19 | set MinimumDistance [dval test_result_val] |
20 | set TheorMinimumDistance 1.0 |
21 | set percent_max 1.0 |
22 | set percent [expr abs(${MinimumDistance} - ${TheorMinimumDistance}) / ${TheorMinimumDistance} * 100.] |
23 | if {${percent} > ${percent_max}} { |
24 | puts "MinimumDistance=${MinimumDistance}" |
25 | puts "TheorMinimumDistance=${TheorMinimumDistance}" |
26 | puts "percent=${percent}" |
27 | puts "percent_max=${percent_max}" |
28 | puts "BUC60870: Error; bad value of minimum distance" |
29 | } else { |
30 | puts "BUC60870: OK" |
31 | } |
32 | } |
33 | |
34 | set 2dviewer 0 |
35 | |