Changeset 9d64ac in git

Timestamp:

Sep 17, 2014, 10:49:07 AM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

258f6335e22e091c2215931d3099f5881f63f2aa

Parents:

96a18116acad728d793c95eaa3cf8b553eac13d9

Message:

fix: tr.#642 (genus(I,"pri"))

Files:

• Singular/LIB/normal.lib (modified) (3 diffs)
• Tst/Long/bug_tr642.res.gz.uu (added)
• Tst/Long/bug_tr642.stat (added)
• Tst/Long/bug_tr642.tst (added)
• Tst/Long/ok_l2.lst (modified) (1 diff)

Singular/LIB/normal.lib

@@ -2184 +2184 @@
 {
    ASSUME(0, not isQuotientRing(basering) );
-   if ( string(minpoly) !="0" ) 
+   if ( string(minpoly) !="0" )
    {
       ERROR("genus does not yet support extension fields");
@@ -2288 +2288 @@
    if(size(N[1])==1)
    {
-
       poly p=I[1];
      // if(deg(squarefree(p))<deg(p)){ERROR("Curve is not reduced");}
@@ -2295 +2294 @@
    if(size(N[1]) < nvars(R0))
    {
-      string newvar=string(N[1]);
-      execute("ring R=("+charstr(R0)+"),("+newvar+"),dp;");
-      ideal I =imap(R0,I);
-      attrib(I,"isSB",1);
+     string newvar=string(N[1]);
+     execute("ring R=("+charstr(R0)+"),("+newvar+"),dp;");
+     ideal I =imap(R0,I);
+     if((ringlist(R0)[3][1][1]=="dp")&&(size(ringlist(R0)[3])==2))
+     {
+       attrib(I,"isSB",1);
+     }
+     else
+     {
+       I=std(I);
+     }
    }
    else

Tst/Long/ok_l2.lst

@@ +1 @@
+bug_tr642
 king_3_colors_l
 modstd_l