Changeset 21a9f5 in git

Timestamp:

Jul 7, 2009, 6:17:06 PM (14 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

6d5f07fc0cb4ce2f4c48acf8a4816a6c809a5175

Parents:

6ca8b083892b98cc2f6836da7504ab9d4272cf90

Message:

*levandov: cosmetics


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

File:

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

Singular/LIB/dmodapp.lib

@@ -1 +1 @@
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: dmodapp.lib,v 1.29 2009-04-15 11:11:34 seelisch Exp $";
+version="$Id: dmodapp.lib,v 1.30 2009-07-07 16:17:06 levandov Exp $";
 category="Noncommutative";
 info="
@@ -307 +307 @@
 }
 
-proc appelF2() //(number a,b,c)
+proc appelF2() 
 "USAGE:  appelF2();
 RETURN:  ring (and exports an ideal into it)
@@ -1693 +1693 @@
   for (i=1; i<=n; i++)
   {
-    weighttx[i+1] = u0[n-i+1];
-    weightD[i+1]  = d+1-u0[n-i+1];
+    weighttx[i+1] = u0[i];
+    weightD[i+1]  = d+1-u0[i];
   }
   @a = weighttx,weightD,1;
@@ -1776 +1776 @@
   setring r;
   intvec v = 3,2;
-  def D2 = initialMalgrange(f,1,0,1,v);
+  def D2 = initialMalgrange(f,1,1,v);
   setring D2;
   inF;