Changeset 8427c4 in git for Singular/LIB/ratgb.lib

Timestamp:

Oct 30, 2007, 4:22:44 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

dc0ff72b0054190ba8bb2ae8f3679112013481f9

Parents:

fee6e73c0f6e546f7e266fb1221fbdb2c0d595a3

Message:

*hannes: ncalgebra


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

File:

• Singular/LIB/ratgb.lib (modified) (3 diffs)

Singular/LIB/ratgb.lib

@@ -1 +1 @@
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: ratgb.lib,v 1.4 2007-07-11 20:20:54 levandov Exp $";
+version="$Id: ratgb.lib,v 1.5 2007-10-30 15:22:44 Singular Exp $";
 category="Noncommutative";
 info="
@@ -201 +201 @@
   D[1,3] = K;
   D[2,4] = N;
-  ncalgebra(1,D);
+  def S=ncalgebra(1,D);setring S;
   ideal I = (k+1)*K - (n-k), (n-k+1)*N - (n+1);
   int is = 2;
@@ -216 +216 @@
   matrix @D[4][4];
   @D[1,3]=1; @D[2,4]=1;
-  ncalgebra(1,@D);
+  def S=ncalgebra(1,@D);setring S;
   ideal I =
     x*Dx*(x*Dx+c-1) - x*(x*Dx+y*Dy+a)*(x*Dx+y*Dy+b),