|  |  D.8.3.12 triang_solve Procedure from librarysolve.lib(see  solve_lib).
 
Example:Usage:
triang_solve(l,p [,d] ); l=list, p,d=integersl is a list of finitely many triangular systems, such that the union of
their varieties equals the variety of the initial ideal.
 p>0: gives precision of complex numbers in digits,
 d>0: gives precision (1<d<p) for near-zero-determination,
 (default: d=1/2*p).
 
Assume:
the ground field has char 0;l was computed using the algorithm of Lazard or the algorithm of
Moeller (see triang.lib).
 
Return:
ring Rwith the same number of variables, but with complex
coefficients (and precision p).Rcomes with a listrlistof numbers, in which the complex roots of l are stored.
 
 |  | LIB "solve.lib";
ring r = 0,(x,y),lp;
// compute the intersection points of two curves
ideal s=  x2 + y2 - 10, x2 + xy + 2y2 - 16;
def R=triang_solve(triangLfak(stdfglm(s)),10);
==> 
==> // 'triang_solve' created a ring, in which a list rlist of numbers (the
==> // complex solutions) is stored.
==> // To access the list of complex solutions, type (if the name R was assig\
   ned
==> // to the return value):
==>         setring R; rlist; 
setring R; rlist;
==> [1]:
==>    [1]:
==> -1
==>    [2]:
==> 3
==> [2]:
==>    [1]:
==> 1
==>    [2]:
==> -3
==> [3]:
==>    [1]:
==> -2.828427125
==>    [2]:
==> -1.414213562
==> [4]:
==>    [1]:
==> 2.828427125
==>    [2]:
==> 1.414213562
 | 
 |