3cb19cf1 |
1 | puts "========================" |
2 | puts " CR24375 " |
3 | puts "========================" |
4 | puts "" |
5 | ################################################################## |
6 | ## Exception in IntAna on touching circles |
7 | ################################################################## |
8 | |
9 | circle c1 10 0 100 |
10 | circle c2 10.00000000000001 0 100 |
11 | |
12 | set info1 [2dintanalytical c1 c2] |
13 | |
14 | set str1 "Intersection point 1 : +\(\[-0-9.+eE\]+\) +\(\[-0-9.+eE\]+\)\n" |
15 | set str2 "parameter on the fist: +\(\[-0-9.+eE\]+\) parameter on the second: +\(\[-0-9.+eE\]+\)\n" |
16 | set str3 "Intersection point 2 : +\(\[-0-9.+eE\]+\) +\(\[-0-9.+eE\]+\)\n" |
17 | set str4 "parameter on the fist: +\(\[-0-9.+eE\]+\) parameter on the second: +\(\[-0-9.+eE\]+\)\n" |
18 | |
19 | regexp "${str1}${str2}${str3}${str4}" ${info1} full ip1_1 ip1_2 p1_1 p1_2 ip2_1 ip2_2 p2_1 p2_2 |
20 | |
21 | set tol_abs_length 1.0e-07 |
22 | set tol_rel_length 0.01 |
23 | |
24 | set expected_p1_1 1.5707963267948966 |
25 | set expected_p1_2 1.5707963267948968 |
26 | set expected_p2_1 4.7123889803846897 |
27 | set expected_p2_2 4.7123889803846897 |
28 | |
29 | checkreal "Parameter p1_1" ${p1_1} ${expected_p1_1} ${tol_abs_length} ${tol_rel_length} |
30 | checkreal "Parameter p1_2" ${p1_2} ${expected_p1_2} ${tol_abs_length} ${tol_rel_length} |
31 | checkreal "Parameter p2_1" ${p2_1} ${expected_p2_1} ${tol_abs_length} ${tol_rel_length} |
32 | checkreal "Parameter p2_2" ${p2_2} ${expected_p2_2} ${tol_abs_length} ${tol_rel_length} |