Changeset 81d00f in git


Ignore:
Timestamp:
Dec 6, 2000, 12:21:03 PM (23 years ago)
Author:
Mathias Schulze <mschulze@…>
Branches:
(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
Children:
a775430797dd1daa4ec080eef91fde4c3c0ca1f6
Parents:
cf42ab1853ca41adff5ae7640c9e60bfb157b4ae
Message:
*** empty log message ***


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

Legend:

Unmodified
Added
Removed

  • Singular/LIB/gaussman.lib

    rcf42ab1 r81d00f  
    11///////////////////////////////////////////////////////////////////////////////
    22
    3 version="$Id: gaussman.lib,v 1.11 2000-12-05 21:12:22 mschulze Exp $";
     3version="$Id: gaussman.lib,v 1.12 2000-12-06 11:21:03 mschulze Exp $";
    44info="
    55LIBRARY:  gaussman.lib  GAUSS-MANIN CONNECTION OF A SINGULARITY
    … …  
    189189
    190190    dbprint(printlevel-voice+2,"//gaussman::monomat: compute C");
    191     C=coeffs(redNF(w,sJ,U),m,product(maxideal(1)));
     191    C=coeffs(redNF(w,sJ,U),m);
    192192    A0=A0+C*var(1)^k;
    193193
    … …  
    418418
    419419    dbprint(printlevel-voice+2,"//gaussman::vfilt: compute C");
    420     C=coeffs(redNF(w,sJ,U),m,product(maxideal(1)));
     420    C=coeffs(redNF(w,sJ,U),m);
    421421    A=A+C*var(1)^k;
    422422
    … …  
    824824  for(i=ncols(m);i>=1;i--)
    825825  {
    826     M[i]=lift(V,coeffs(redNF(m[i]*m,sJ),m)*V,product(maxideal(1)));
     826    M[i]=lift(V,coeffs(redNF(m[i]*m,sJ),m)*V);
    827827  }
    828828
Note: See TracChangeset for help on using the changeset viewer.