a87752f3 |
1 | puts "==================================" |
2 | puts "BUC60622" |
3 | puts "==================================" |
4 | puts "There was an infinity of solutions and also c1, c2 and c3 are solutions" |
5 | puts "" |
6 | puts "It takes visual check for this BUG" |
7 | puts "==================================" |
8 | puts "" |
9 | |
10 | set len_ch1 2513 |
11 | set len_ch2 837 |
12 | set len_ch3 279 |
13 | |
14 | circle c1 500 1800 500 |
15 | circle c2 500 1900 400 |
16 | circle c3 700 1900 200 |
17 | cirtang result c1 c2 c3 |
18 | |
19 | set info1 [length $result_1] |
20 | set info2 [length $result_2] |
21 | set info3 [length $result_3] |
22 | regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1 |
23 | regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2 |
24 | regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3 |
25 | set len_int1 [expr int($len1)] |
26 | set len_int2 [expr int($len2)] |
27 | set len_int3 [expr int($len3)] |
28 | |
29 | if { ${len_int1} != ${len_ch1} |
30 | || ${len_int2} != ${len_ch2} |
31 | || ${len_int3} != ${len_ch3} } { |
32 | puts "Error : Length is invalid" |
33 | } |