Changeset 731e67e in git for Singular/LIB/equising.lib

Timestamp:

Jul 18, 2006, 5:48:31 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

a15d90a2e309f3fabc9f9d147ba93e4fbaff9e3d

Parents:

dd73043aece50a3b540b469cacfe1e7bb5712915

Message:

*hannes: format, typos in docu


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

File:

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

Singular/LIB/equising.lib

@@ -1 @@
-version="$Id: equising.lib,v 1.16 2006-06-13 14:29:48 Singular Exp $";
+version="$Id: equising.lib,v 1.17 2006-07-18 15:48:12 Singular Exp $";
 category="Singularities";
 info="
@@ -1086 +1086 @@
     }
   }
- 
+
   // Computation for all equimultiple sections being trivial (I^s(f))
   ideal Jtriv=J;
@@ -1129 +1129 @@
   }
 
-  //new CL 11/06:  check in which equations b(k) appears and remove those b(k) 
+  //new CL 11/06:  check in which equations b(k) appears and remove those b(k)
   //               which appear in exactly one of the equations (by removing this
   //               equation)
@@ -1144 +1144 @@
   for (i=1;i<=no_b; i++)
   {
-    ideal b_appears_in(i);            // Eintraege sind spaeter 1 oder 0 
-    intmat b_app_in(i)[1][ncJ];       // Eintraege sind spaeter 1 oder 0 
-    b_appears_in(i)[ncJ]=0;  
+    ideal b_appears_in(i);            // Eintraege sind spaeter 1 oder 0
+    intmat b_app_in(i)[1][ncJ];       // Eintraege sind spaeter 1 oder 0
+    b_appears_in(i)[ncJ]=0;
     J_Tmp = J-subst(J,b(i),0);
-    for (Z=1; Z<=ncJ; Z++) { 
+    for (Z=1; Z<=ncJ; Z++) {
       if (J_Tmp[Z]<>0) {      // b(i) appear in J_Tmp[Z]
         b_appears_in(i)[Z]=1;