Changeset 7e5454 in git


Ignore:
Timestamp:
Apr 29, 2010, 1:32:12 PM (14 years ago)
Author:
Frank Seelisch <seelisch@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
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:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/ainvar.lib

    ra11d66 r7e5454  
    107107  matrix @m[size(id)+1][1];
    108108  @m=imap(bsr,m),0;
     109  int auxv;
    109110
    110111  //computes the exp(@t*m)(var(i)) for all i
     
    114115     delta=derivate(@m,inv);
    115116     j=1;
     117     auxv=1;
    116118     tee=@t;
    117119     while(delta!=0)
    118120     {
    119121        inv=inv+1/j*delta*tee;
    120         j=j*(j+1);
     122        auxv=auxv+1;
     123        j=j*auxv;
    121124        tee=tee*@t;
    122125        delta=derivate(@m,delta);
Note: See TracChangeset for help on using the changeset viewer.