Changeset 5887d7 in git

Timestamp:

Mar 1, 2009, 6:41:31 PM (14 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

338842d01fe627d4e6675ec8df5900eef6af97af

Parents:

c9193a7b24bb3467ad3f2a44a6c2d358c98db0f3

Message:

*levandov: Appel definitions revisited


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

File:

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

Singular/LIB/dmodapp.lib

@@ -1 +1 @@
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: dmodapp.lib,v 1.19 2009-02-21 15:26:41 levandov Exp $";
+version="$Id: dmodapp.lib,v 1.20 2009-03-01 17:41:31 levandov Exp $";
 category="Noncommutative";
 info="
@@ -602 +602 @@
   ideal IAppel1 =
     (x*Dx)*(x*Dx+y*Dy+c-1) - x*(x*Dx+y*Dy+a)*(x*Dx+b),
-    (y*Dy)*(x*Dx+y*Dy+c-1) - y*(x*Dx+y*Dy+a)*(x*Dx+d),
+    (y*Dy)*(x*Dx+y*Dy+c-1) - y*(x*Dx+y*Dy+a)*(y*Dy+d),
     (x-y)*Dx*Dy - d*Dx + b*Dy;
   export IAppel1;
@@ -660 +660 @@
   setring @S;
   ideal IAppel4 =
-    Dx*(x*Dx+c-1) - x*(x*Dx+y*Dy+a)*(x*Dx+y*Dy+b),
-    Dy*(y*Dy+d-1) - y*(x*Dx+y*Dy+a)*(x*Dx+y*Dy+b);
+    Dx*(x*Dx+c-1) - (x*Dx+y*Dy+a)*(x*Dx+y*Dy+b),
+    Dy*(y*Dy+d-1) - (x*Dx+y*Dy+a)*(x*Dx+y*Dy+b);
   export IAppel4;
   kill @r;