Changeset ac31058 in git
 Timestamp:
 Dec 6, 2000, 4:00:09 PM (23 years ago)
 Branches:
 (u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
 Children:
 a0eb7ac82a184a8b816be1774672dad8dfd404e3
 Parents:
 a23a7fdf702c84feef811d90c3cc7da8f45aa37f
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/gaussman.lib
ra23a7fd rac31058 1 1 /////////////////////////////////////////////////////////////////////////////// 2 2 3 version="$Id: gaussman.lib,v 1.1 4 20001206 14:56:26mschulze Exp $";3 version="$Id: gaussman.lib,v 1.15 20001206 15:00:09 mschulze Exp $"; 4 4 info=" 5 5 LIBRARY: gaussman.lib GAUSSMANIN CONNECTION OF A SINGULARITY … … 821 821 822 822 dbprint(printlevelvoice+2, 823 "//gaussman::vjacob: compute multiplication ofJacobian algebra");823 "//gaussman::vjacob: compute multiplication in Jacobian algebra"); 824 824 list M; 825 825 for(i=ncols(m);i>=1;i) … … 839 839 { 840 840 dbprint(printlevelvoice+2, 841 "//gaussman::vjacob: compute next difference r0 of spectral numbers");841 "//gaussman::vjacob: find next possible index"); 842 842 r1=number(s[ncols(s)]s[1]); 843 843 for(j=ncols(s);j>=1;j) … … 860 860 } 861 861 r0=r1; 862 dbprint(printlevelvoice+2,"//gaussman::vjacob: r0="+string(r1));863 862 864 863 l=ideal(); … … 868 867 } 869 868 870 dbprint(printlevelvoice+2,"//gaussman::vjacob: compute conditions"); 869 dbprint(printlevelvoice+2, 870 "//gaussman::vjacob: collect conditions for V["+string(r0)+"]"); 871 871 j=ncols(s); 872 872 j0=mu; … … 897 897 } 898 898 899 dbprint(printlevelvoice+2,"//gaussman::vjacob: comp ute condition matrix");899 dbprint(printlevelvoice+2,"//gaussman::vjacob: compose condition matrix"); 900 900 L=transpose(module(l[1])); 901 901 for(k=2;k<=ncols(m);k++)
Note: See TracChangeset
for help on using the changeset viewer.