a87752f3 |
1 | puts "========" |
2 | puts "BUC60843" |
3 | puts "========" |
4 | puts "" |
5 | #################################################################### |
6 | ## code throws an exception as: .. The exception is:0x5feff388 : StdFail_NotDone: 2d lin = lintan. |
7 | ## ThisSolution(); is not right.( the line is not tangent to circle and ellipse ) |
8 | #################################################################### |
9 | |
10 | pload QAcommands |
11 | |
12 | set len_ch 4.0000000000000001e+100 |
13 | |
14 | ellipse test_ellipse_1 0 0 50 50 |
15 | ellipse test_ellipse_2 460 0 150 100 |
16 | |
17 | BUC60843 result test_ellipse_1 test_ellipse_2 1.0 1.0 |
18 | |
19 | set info [length $result] |
20 | regexp {The length result is +([-0-9.+eE]+)} $info full len |
21 | |
22 | if { ${len} != ${len_ch} } { |
23 | puts "Error : length is invalid" |
24 | } |
25 | |