Changeset 7c0376 in git

Timestamp:

Mar 30, 2021, 2:52:53 PM (3 years ago)

Author:

Christian Eder

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

a1048f9412a7661be9788c568a503c871eedeb1b

Parents:

9e5a6c133d12cc9750553f96ddb76b671e731293

Message:

fixes functions for solving zero dimensional systems

File:

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

Singular/LIB/solve.lib

@@ -1924 +1924 @@
     }
 
-    def R=triang_solve(triangLfak(stdfglm(fi)),prec);
+    def save=basering;
+    list L=ringlist(save);
+    L[3]=list(list("lp",1:nvars(save)),list("C",1));
+    def Rlex=ring(L);
+    setring Rlex;
+    ideal fi=fetch(save,fi);
+    fi=stdfglm(fi);
+    def R=triang_solve(triangLfak(fi),prec);
     dbprint( printlevel-voice+3,"
 // 'triangLf_solve' created a ring, in which a list rlist of numbers (the
@@ -1966 +1973 @@
     }
 
-    def R = triang_solve(triangM(stdfglm(fi)),prec);
+    def save=basering;
+    list L=ringlist(save);
+    L[3]=list(list("lp",1:nvars(save)),list("C",1));
+    def Rlex=ring(L);
+    setring Rlex;
+    ideal fi=fetch(save,fi);
+    fi=stdfglm(fi);
+    def R = triang_solve(triangM(fi),prec);
     dbprint( printlevel-voice+3,"
 // 'triangM_solve' created a ring, in which a list rlist of numbers (the
@@ -2007 +2021 @@
     }
 
-    def R=triang_solve(triangL(stdfglm(fi)),prec);
+    def save=basering;
+    list L=ringlist(save);
+    L[3]=list(list("lp",1:nvars(save)),list("C",1));
+    def Rlex=ring(L);
+    setring Rlex;
+    ideal fi=fetch(save,fi);
+    fi=stdfglm(fi);
+    def R=triang_solve(triangL(fi),prec);
     dbprint( printlevel-voice+3,"
 // 'triangL_solve' created a ring, in which a list rlist of numbers (the