Changeset ac31058 in git


Ignore:
Timestamp:
Dec 6, 2000, 4:00:09 PM (23 years ago)
Author:
Mathias Schulze <mschulze@…>
Branches:
(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
Children:
a0eb7ac82a184a8b816be1774672dad8dfd404e3
Parents:
a23a7fdf702c84feef811d90c3cc7da8f45aa37f
Message:
Singular/LIB/gaussman.lib


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/gaussman.lib

    ra23a7fd rac31058  
    11///////////////////////////////////////////////////////////////////////////////
    22
    3 version="$Id: gaussman.lib,v 1.14 2000-12-06 14:56:26 mschulze Exp $";
     3version="$Id: gaussman.lib,v 1.15 2000-12-06 15:00:09 mschulze Exp $";
    44info="
    55LIBRARY:  gaussman.lib  GAUSS-MANIN CONNECTION OF A SINGULARITY
     
    821821
    822822  dbprint(printlevel-voice+2,
    823     "//gaussman::vjacob: compute multiplication of Jacobian algebra");
     823    "//gaussman::vjacob: compute multiplication in Jacobian algebra");
    824824  list M;
    825825  for(i=ncols(m);i>=1;i--)
     
    839839  {
    840840    dbprint(printlevel-voice+2,
    841       "//gaussman::vjacob: compute next difference r0 of spectral numbers");
     841      "//gaussman::vjacob: find next possible index");
    842842    r1=number(s[ncols(s)]-s[1]);
    843843    for(j=ncols(s);j>=1;j--)
     
    860860    }
    861861    r0=r1;
    862     dbprint(printlevel-voice+2,"//gaussman::vjacob: r0="+string(r1));
    863862
    864863    l=ideal();
     
    868867    }
    869868
    870     dbprint(printlevel-voice+2,"//gaussman::vjacob: compute conditions");
     869    dbprint(printlevel-voice+2,
     870      "//gaussman::vjacob: collect conditions for V["+string(r0)+"]");
    871871    j=ncols(s);
    872872    j0=mu;
     
    897897    }
    898898
    899     dbprint(printlevel-voice+2,"//gaussman::vjacob: compute condition matrix");
     899    dbprint(printlevel-voice+2,"//gaussman::vjacob: compose condition matrix");
    900900    L=transpose(module(l[1]));
    901901    for(k=2;k<=ncols(m);k++)
Note: See TracChangeset for help on using the changeset viewer.