Changeset 7e5454 in git

Timestamp:

Apr 29, 2010, 1:32:12 PM (13 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

1fec282c231feced1bec34ea75ff9af154dcfa45

Parents:

a11d666e8ebc8b549f09872de8ae3f270153c0e4

Message:

bug fix, reported by jaradat, drueda

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

File:

• Singular/LIB/ainvar.lib (modified) (2 diffs)

Singular/LIB/ainvar.lib

@@ -107 +107 @@
   matrix @m[size(id)+1][1];
   @m=imap(bsr,m),0;
+  int auxv;
 
   //computes the exp(@t*m)(var(i)) for all i
@@ -114 +115 @@
      delta=derivate(@m,inv);
      j=1;
+     auxv=1;
      tee=@t;
      while(delta!=0)
      {
         inv=inv+1/j*delta*tee;
-        j=j*(j+1);
+        auxv=auxv+1;
+        j=j*auxv;
         tee=tee*@t;
         delta=derivate(@m,delta);