Changeset dc5e5b in git
- Timestamp:
- Apr 28, 2005, 11:23:17 AM (18 years ago)
- Branches:
- (u'jengelh-datetime', '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 2004-08-10 17:03:44 mschulzeExp $";2 version="$Id: gmspoly.lib,v 1.9 2005-04-28 09:23:17 Singular Exp $"; 3 3 category="Singularities"; 4 4 … … 8 8 AUTHOR: Mathias Schulze, email: mschulze@mathematik.uni-kl.de 9 9 10 OVERVIEW: A library to compute invariants related to the theGauss-Manin system10 OVERVIEW: A library to compute invariants related to the Gauss-Manin 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.