Changeset 53238a in git

Timestamp:

Aug 26, 2018, 11:33:13 AM (5 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2fa36c576e6a4ddbb1093b43c7f8e9835e17e52a')

Children:

1eabfccc017851ee1d256ef319925d2d4a5e35cd

Parents:

ee2d4d9162fd2e873069727d177f55017eccc232

Message:

fix: primdec.lib::prepareQuotientring: Float

File:

• Singular/LIB/primdec.lib (modified) (2 diffs)

Singular/LIB/primdec.lib

@@ -1898 +1898 @@
     if (typeof(rl[1])=="list")
     {
+      if(size(rl[1])==4)
+      {
         list rl1=rl[1];
         list rl2=rl[2];
@@ -1907 +1909 @@
         rl[2]=list(rl2[1..nnp]);
         rl[3]=list(list(order,1:nnp),list("C",0));
+      }
+      else /*Float(..), Complex(..) */
+      {
+        list p=rl[1];
+        list rl2=rl[2];
+        rl[1]=list(p,
+            list(rl2[nnp+1..nvars(basering)]),
+            list(list("lp",1:(nvars(basering)-nnp))),
+            ideal(0));
+        rl[2]=list(rl2[1..nnp]);
+        rl[3]=list(list(order,1:nnp),list("C",0));
+      }
     }
     else