Changeset a4337a1 in git

Timestamp:

Oct 31, 2007, 6:49:54 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7e13d42835c6327d0cdb77f81933304f228c4e52

Parents:

8d080143a9d434f6fe242515ae3aba1992d6f4ef

Message:

*hannes: syntax


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

File:

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

Singular/LIB/nctools.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: nctools.lib,v 1.36 2007-10-31 17:23:49 Singular Exp $";
+version="$Id: nctools.lib,v 1.37 2007-10-31 17:49:54 Singular Exp $";
 category="Noncommutative";
 info="
@@ -387 +387 @@
 proc findimAlgebra(matrix M, list #)
 "USAGE:   findimAlgebra(M,[r]); M a matrix, r an optional ring
-RETURN:  nothing
+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
@@ -441 +441 @@
   ideal fdQuot = fetch(save,D);
   export fdQuot;
+  return(S);
 }
 example
@@ -448 +449 @@
   matrix S[3][3];
   S[2,3]=a*x(1); S[3,2]=-b*x(1);
-  findimAlgebra(S);
+  def A=findimAlgebra(S); setring A;
   fdQuot = twostd(fdQuot);
   qring Qr = fdQuot;
@@ -528 +529 @@
   C[1,3]   = q;
   print(C);
-  def S = nc_algebra(C,0); serring S;
+  def S = nc_algebra(C,0); setring S;
   S;
 }