Changeset 0e760d0 in git for Singular/LIB/solve.lib

Timestamp:

Jul 2, 1999, 6:14:41 PM (25 years ago)

Author:

Moritz Wenk <wenk@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

bad4044b17c2db928e269ccf80888ade701dae6c

Parents:

78315991a696a660dd3d43059499d754ccf8c669

Message:

* wenk: did some changes in floatToStr; removed TIMING


git-svn-id: file:///usr/local/Singular/svn/trunk@3226 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/solve.lib (modified) (3 diffs)

Singular/LIB/solve.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: solve.lib,v 1.6 1999-07-02 14:33:45 wenk Exp $";
+version="$Id: solve.lib,v 1.7 1999-07-02 16:14:41 wenk Exp $";
 info="
 LIBRARY: solve.lib     PROCEDURES TO SOLVE POLYNOMIAL SYSTEMS
@@ -83 +83 @@
   // now with complex coefficient field, precision is 10 digits 
   ring rsc= (real,10,I),(x,y),lp;
-  ideal i = x2 + y2 - 8, x2 + xy + 2y2;
+  ideal i = (2+3*I)*x2 + (0.35+I*45.0e-2)*y2 - 8, x2 + xy + (42.7)*y2;
   ures_solve(i);
   // result is a list of (x,y)-coordinates of complex numbers
@@ -146 +146 @@
   // Now with complex coefficients, precision is 20 digits:
   ring rsc= (real,20,I),x,lp;
-  poly f = (15+I*5)*x^5 + (0.25+I*2)*x^3 + x2 - 10*I;
+  poly f = (15.4+I*5)*x^5 + (25.0e-2+I*2)*x^3 + x2 - 10*I;
   list l = laguerre_solve(f);
   l;