Changeset 7b55a0 in git


Ignore:
Timestamp:
Jul 23, 2002, 6:39:15 PM (22 years ago)
Author:
Mathias Schulze <mschulze@…>
Branches:
(u'spielwiese', 'd1d239e9808fca76a9497a01fa91ad4e8db6fba5')
Children:
9acedb2b74c4ce80b42912ac30782fb362240b07
Parents:
4f364b0b6ea7642eaea0a22c5ff4d02af80b0bde
Message:
gaussman.lib


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/gaussman.lib

    r4f364b r7b55a0  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="$Id: gaussman.lib,v 1.86 2002-07-23 15:29:34 mschulze Exp $";
     2version="$Id: gaussman.lib,v 1.87 2002-07-23 16:39:15 mschulze Exp $";
    33category="Singularities";
    44
     
    373373  list l;
    374374
     375  dbprint(printlevel-voice+2,"// compute saturation of H''");
    375376  while(size(reduce(H,std(H0*var(1))))>0)
    376377  {
     
    382383    A0=A0+C;
    383384
    384     dbprint(printlevel-voice+2,"// compute saturation of H''");
     385    dbprint(printlevel-voice+2,"// compute saturation step");
    385386    H0=H;
    386387    H1=jet(module(A0*H1+var(1)^2*diff(matrix(H1),var(1))),k);
     
    417418{
    418419  dbprint(printlevel-voice+2,
    419     "// compute eigenvalues e with multiplicities m of A0");
     420    "// compute eigenvalues e with multiplicities m of A1");
    420421  matrix A;
    421422  A,A0,r=tjet(A0,r,H,k0,0);
     
    436437
    437438  int i,j,k;
    438   int k1;
    439439  intvec d;
    440440  d[ncols(e)]=0;
     
    442442  {
    443443    dbprint(printlevel-voice+2,
    444       "// compute maximal differences d of e");
     444      "// compute rounded maximal differences d of e");
    445445    for(i=1;i<=ncols(e);i++)
    446446    {
     
    481481  }
    482482
    483   A,A0,r=tjet(A0,r,H,k0,K+k1);
     483  A,A0,r=tjet(A0,r,H,k0,K+k);
    484484  module U0=var(1)^k0*freemodule(mu);
    485485
     
    504504
    505505      dbprint(printlevel-voice+2,
    506         "// transform to reduce d by 1");
     506        "// transform to reduce maximum of d by 1");
    507507      for(i0,i=1,1;i0<=ncols(e);i0++)
    508508      {
Note: See TracChangeset for help on using the changeset viewer.