Changeset aa04bc in git for Singular/LIB/surfacesignature.lib

Timestamp:

Sep 30, 2010, 4:29:18 PM (13 years ago)

Author:

Stefan Steidel <steidel@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

e67c6fc5ee997e9b0c7262a6f42a29368eca1c8c

Parents:

5e2dd1408b0e0191298d3cb3cb7327a1ff7c9464

Message:

long lines erased

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

File:

• Singular/LIB/surfacesignature.lib (modified) (4 diffs)

Singular/LIB/surfacesignature.lib

@@ -178 +178 @@
 static proc isRupture(intvec v)
 //=== decides whether the exceptional divisor given by the row v in the
-//=== incidence matrix of the resolution graph intersects at least 3 other divisors
+//=== incidence matrix of the resolution graph intersects at least 3 other 
+//=== divisors
 {
    int i,j;
@@ -332 +333 @@
       for(i = 1; i <= n; i++)
       {
-         if((L[2][i] == 2)&&((denominator(leadcoef(N*L[1][i]))==1)||(denominator(leadcoef(N*L[1][i]))==-1)))
+         if((L[2][i] == 2) && ((denominator(leadcoef(N*L[1][i]))==1)
+                              ||(denominator(leadcoef(N*L[1][i]))==-1)))
          {
             h = h + L[3][i];
@@ -344 +346 @@
       for(i = (n+3)/2; i <= n; i++)
       {
-         if(!((denominator(leadcoef(N*L[1][i]))==1)||(denominator(leadcoef(N*L[1][i]))==-1)))
+         if(!((denominator(leadcoef(N*L[1][i]))==1)
+             ||(denominator(leadcoef(N*L[1][i]))==-1)))
          {
             e = e + (1 - 2 * fracPart(N * number(L[1][i]))) * L[3][i];
@@ -357 +360 @@
 
 proc signature(int N, poly f, list #)
-"USAGE:  signature(N,f); N = integer, f = reduced poly in 2 variables, # empty or 1,2,3
+"USAGE:  signature(N,f); N = integer, f = reduced poly in 2 variables, 
+                         # empty or 1,2,3
 @*       - if # is empty or #[1] = 2 then resolution of singularities is used
-@*       - if #[1] = 1 then f has to be analytically irreducible and Puiseux expansions are used
+@*       - if #[1] = 1 then f has to be analytically irreducible and Puiseux 
+                       expansions are used
 @*       - if #[1] = 3 then spectral pairs are used
 RETURN:  signature of surface singularity defined by z^N + f(x,y) = 0