Changeset 2fd30cb in git for Singular/LIB

Timestamp:

Dec 20, 2010, 9:30:02 PM (13 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

9e269a0a45fc3fa26da7b381bc6593a5b4b7df4d

Parents:

8f1d129f2b533ec4af12b38b87c5090b3559afa6

Message:

*levadov: repaired findimAlgebra proc

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

File:

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

Singular/LIB/nctools.lib

@@ -399 +399 @@
 RETURN:  ring
 PURPOSE: define a finite dimensional algebra structure on a ring
-NOTE:  the matrix M is used to define the relations x(j)*x(i) = M[i,j] in the
+NOTE:  the matrix M is used to define the relations x(i)*x(j) = M[i,j] in the
 basering (by default) or in the optional ring r.
 @* The procedure equips the ring with the noncommutative structure.
@@ -430 +430 @@
     {
       p=var(i)*var(j)-M[i,j];
-      if ( (size(I)==1) && (I[1]==0) )   { I=p; }
+      if ( (ncols(I)==1) && (I[1]==0) )   { I=p; }
       else { I=I,p; }
       if (j>i)
@@ -443 +443 @@
         }
         C[i,j]=c;
-        D[i,j]= - M[j,i] +c*M[i,j];
+        D[i,j]= M[j,i] -c*M[i,j];
       }
     }
@@ -449 +449 @@
   def save = basering;
   def S = nc_algebra(C,D); setring S;
-  ideal fdQuot = fetch(save,D);
+  ideal fdQuot = fetch(save,I);
   export fdQuot;
   return(S);