Changeset 7497ef3 in git

Timestamp:

Oct 23, 2001, 12:26:24 PM (22 years ago)

Author:

Gerhard Pfister <pfister@…>

Branches:

(u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')

Children:

3b1a83cc8c991db71ea6a548ef68a51a2789745b

Parents:

a3bc95e10500bd528426f85f773991263d42826f

Message:

Bug bei genus gefixed


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

File:

• Singular/LIB/normal.lib (modified) (5 diffs)

Singular/LIB/normal.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: normal.lib,v 1.36 2001-08-27 14:47:56 Singular Exp $";
+version="$Id: normal.lib,v 1.37 2001-10-23 10:26:24 pfister Exp $";
 category="Commutative Algebra";
 info="
@@ -1427 +1427 @@
        iloc=vdim(std(I1));
        if(iglob==iloc)  // only cusps and nodes outside 0
-       {  
-          I=imap(newR,I);
-          tauloc=vdim(std(I+jacob(I)));
+       { 
           setring newR;
+          tau=vdim(std(I+jacob(I)));
           inv=deltaLoc(I[1],maxideal(1));
           delta=inv[1];
-          tau=inv[2];
+          tauloc=inv[2];
           nodes=tau-tauloc-2*cusps; 
           nbranch=inv[3]+ 2*nodes+cusps;          
@@ -1449 +1448 @@
               nbranch=nbranch+inv[3];
            }
-           nodes=tau-tauloc-2*cusps;
            tau=vdim(std(I+jacob(I)));
+
+           nodes=tau-tausing-2*cusps;
            delta=delta+nodes+cusps;  
            nbranch=nbranch+2*nodes+cusps;            
@@ -1555 +1555 @@
  
       list NP=newton(g);
+
       int s=size(NP);
       int nN=-NP[1][2]-NP[s][1]+1;  // computation of the Newton-number
@@ -1913 +1914 @@
 ideal i=y40+y13x+x4y5+x3*(x+1)^2;
 
-ring r=0,(x,y),dp;  //genus 55
+ring r=0,(x,y),dp;  //genus 4
 ideal i=((x2+y3)^2+xy6)*((x3+y2)^2+x10y);