Changeset fc3e38 in git

Timestamp:

Feb 8, 2023, 1:10:19 PM (15 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

88dd63c4e241bfd61fa7506cac9ded8e7027eac6

Parents:

febcebcb8b08ab3b903463b6752cccc4bae5fbe7

Message:

fix: syntax (classifyci.lib, primdec.lib)

Location:

Singular/LIB

Files:

• classifyci.lib (modified) (2 diffs)
• primdec.lib (modified) (1 diff)

Singular/LIB/classifyci.lib

@@ -984 +984 @@
 
    list A;
-   string mpo;
    list LL;
    for(k=1;k<=size(H);k++)
@@ -992 +991 @@
      setring S;
      list TT;
+     poly mpo;
      for(i=1;i<=size(Param);i++)
      {
        d=deg(Param[i][2]);
        TT=Param[i];
-       poly mpo=Param[i][2];
+       mpo=Param[i][2];
        ring S1=(0,a),(t),ds;
        setring S1;
-       minpoly=imap(S,mpo);
+       minpoly=leadcoef(imap(S,mpo));
        list TT=imap(S,TT);
        list T;

Singular/LIB/primdec.lib

@@ -5801 +5801 @@
          for(int @k=size(absolute_primes);@k>=1;@k--)
          {
-            @tempid=absolute_primes[k][1];
+            @tempid=absolute_primes[@k][1];
             @tempid[1]=0;                  // ignore minimal polynomial
             if(size(reduce(lead(@tempid),@max_of_r,5))!=0)