1 puts "=================================="
3 puts "=================================="
4 puts "There was an infinity of solutions and also c1, c2 and c3 are solutions"
6 puts "It takes visual check for this BUG"
7 puts "=================================="
16 circle c3 500 3000 250
17 circle c2 375 3000 125
18 circle c1 625 3000 125
19 cirtang result c1 c2 c3
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]
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
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)]
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"