Changeset dc5e5b in git
 Timestamp:
 Apr 28, 2005, 11:23:17 AM (18 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
 Children:
 bf801507fe105954de296fd0a5ca0d803af6ba2f
 Parents:
 daa83bcd8a2f618d74ab2877569d0c88d17bece7
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/gmspoly.lib
rdaa83b rdc5e5b 1 1 /////////////////////////////////////////////////////////////////////////////// 2 version="$Id: gmspoly.lib,v 1. 8 20040810 17:03:44 mschulzeExp $";2 version="$Id: gmspoly.lib,v 1.9 20050428 09:23:17 Singular Exp $"; 3 3 category="Singularities"; 4 4 … … 8 8 AUTHOR: Mathias Schulze, email: mschulze@mathematik.unikl.de 9 9 10 OVERVIEW: A library to compute invariants related to the theGaussManin system10 OVERVIEW: A library to compute invariants related to the GaussManin system 11 11 of a cohomologically tame polynomial 12 12 … … 56 56 proc istame(poly f) 57 57 "USAGE: istame(f); poly f 58 ASSUME: basering has no variables named w(1),w(2),... 58 59 RETURN: 59 60 @format … … 69 70 def @X=basering; 70 71 int n=nvars(@X); 71 changechar("@WX","(0,w(1.."+string(n)+"))"); 72 def @WX=changechar("(0,w(1.."+string(n)+"))"); 73 setring @WX; 72 74 ideal J=jacob(imap(@X,f)); 73 75 ~ 74 76 int i; 75 77 for(i=1;i<=n;i++)
Note: See TracChangeset
for help on using the changeset viewer.