5 #################################################
6 # Extrema algorithm raises exception
7 #################################################
9 # Curves c1 and c2 lie on parallel lines.
10 # However, they are bounded (trimmed) curves
11 # and are shifted relatively to each other. So,
12 # there exists single perpendicular only.
19 foreach a [ directory ext_* ] { unset $a }
21 if { [llength [ directory ext_* ] ] != 1 } {
22 puts "Error: Wrong number of solutions (c1 c2)"
25 checklength ext_1 -l 4.0 -eps 2.0e-8
27 foreach a [ directory ext_* ] { unset $a }
29 if { [llength [ directory ext_* ] ] != 1 } {
30 puts "Error: Wrong number of solutions (c1 c2)"
33 checklength ext_1 -l 4.0 -eps 2.0e-8