puts "==================================" puts "BUC60622" puts "==================================" puts "There was an infinity of solutions and also c1, c2 and c3 are solutions" puts "" puts "It takes visual check for this BUG" puts "==================================" puts "" set len_ch1 1570 set len_ch2 785 set len_ch3 785 set len_ch4 523 set len_ch5 523 circle c3 500 3000 250 circle c2 375 3000 125 circle c1 625 3000 125 cirtang result c1 c2 c3 set info1 [length $result_1] set info2 [length $result_2] set info3 [length $result_3] set info4 [length $result_4] set info5 [length $result_5] regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1 regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2 regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3 regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4 regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5 set len_int1 [expr int($len1)] set len_int2 [expr int($len2)] set len_int3 [expr int($len3)] set len_int4 [expr int($len4)] set len_int5 [expr int($len5)] if { ${len_int1} != ${len_ch1} || ${len_int2} != ${len_ch2} || ${len_int3} != ${len_ch3} || ${len_int4} != ${len_ch4} || ${len_int5} != ${len_ch5} } { puts "Error : Length is invalid" }