Changeset 75089b in git for Singular/LIB/hnoether.lib
- Timestamp:
- Mar 6, 1998, 12:52:59 PM (26 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 795d89ff087d287c65cfbcc8982e712d343906ee
- Parents:
- c5f2c70e71ec178186313403410039af7986408b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/hnoether.lib
rc5f2c70 r75089b 1 // $Id: hnoether.lib,v 1. 1 1997-08-13 14:13:29 Singular Exp $1 // $Id: hnoether.lib,v 1.2 1998-03-06 11:52:55 krueger Exp $ 2 2 // This library requires Singular 1.0 3 3 /////////////////////////////////////////////////////////////////////////////// … … 97 97 proc T2_Transform (poly f, number d, int M, int N) 98 98 USAGE: T2_Transform(f,d,M,N); f poly, d number; M,N int 99 RETURN: list: poly T2(f,d',M,N), number d' in { d, 1/d}99 RETURN: list: poly T2(f,d',M,N), number d' in \{ d, 1/d \} 100 100 { 101 101 //---------------------- compute gcd and extgcd of N,M ----------------------- … … 973 973 (list l (matrix m, intvec v, int s[,poly g])) 974 974 RETURN: an ideal of the following form: 975 _[1]=-y+[]*z(0)^1+[]*z(0)^2+...+z(0)^ {}*z(1)976 _[2]=-x+ []*z(1)^2+...+z(1)^ {}*z(2)977 _[3]= []*z(2)^2+...+z(2)^ {}*z(3)975 _[1]=-y+[]*z(0)^1+[]*z(0)^2+...+z(0)^\{\}*z(1) 976 _[2]=-x+ []*z(1)^2+...+z(1)^\{\}*z(2) 977 _[3]= []*z(2)^2+...+z(2)^\{\}*z(3) 978 978 ... .......................... 979 979 _[r+1]= []*z(r)^2+... 980 980 where x,y are the indeterminants of the basering. The values of [] are 981 the coefficients of the Hamburger-Noether-matrix, the values of {} are981 the coefficients of the Hamburger-Noether-matrix, the values of \{\} are 982 982 represented in the HN-matrix as 'x' 983 983 the 1st line (_[1]) means that y==[]*z(0)^1+... ,
Note: See TracChangeset
for help on using the changeset viewer.