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 2000-12-06 14:56:26mschulze Exp $";3 version="$Id: gaussman.lib,v 1.15 2000-12-06 15:00:09 mschulze Exp $"; 4 4 info=" 5 5 LIBRARY: gaussman.lib GAUSS-MANIN CONNECTION OF A SINGULARITY … … 821 821 822 822 dbprint(printlevel-voice+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(printlevel-voice+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(printlevel-voice+2,"//gaussman::vjacob: r0="+string(r1));863 862 864 863 l=ideal(); … … 868 867 } 869 868 870 dbprint(printlevel-voice+2,"//gaussman::vjacob: compute conditions"); 869 dbprint(printlevel-voice+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(printlevel-voice+2,"//gaussman::vjacob: comp ute condition matrix");899 dbprint(printlevel-voice+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.