10 vertex vertex_3 0 0.3 1
12 edge edge_1 vertex_1 vertex_2
14 set result [BUC60870 test_result edge_1 vertex_3 2.0]
16 if {[llength ${result}] < 4} {
17 puts "BUC60870: Error; must be 3 solutions"
19 set MinimumDistance [dval test_result_val]
20 set TheorMinimumDistance 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"