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 1570 |
11 | set len_ch2 785 |
12 | set len_ch3 785 |
13 | set len_ch4 523 |
14 | set len_ch5 523 |
15 | |
16 | circle c3 500 3000 250 |
17 | circle c2 375 3000 125 |
18 | circle c1 625 3000 125 |
19 | cirtang result c1 c2 c3 |
20 | |
21 | set info1 [length $result_1] |
22 | set info2 [length $result_2] |
23 | set info3 [length $result_3] |
24 | set info4 [length $result_4] |
25 | set info5 [length $result_5] |
26 | |
27 | regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1 |
28 | regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2 |
29 | regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3 |
30 | regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4 |
31 | regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5 |
32 | |
33 | set len_int1 [expr int($len1)] |
34 | set len_int2 [expr int($len2)] |
35 | set len_int3 [expr int($len3)] |
36 | set len_int4 [expr int($len4)] |
37 | set len_int5 [expr int($len5)] |
38 | |
39 | if { ${len_int1} != ${len_ch1} |
40 | || ${len_int2} != ${len_ch2} |
41 | || ${len_int3} != ${len_ch3} |
42 | || ${len_int4} != ${len_ch4} |
43 | || ${len_int5} != ${len_ch5} } { |
44 | puts "Error : Length is invalid" |
45 | } |
46 | |